diff options
| author | Siri Hansen <[email protected]> | 2013-02-26 12:00:53 +0100 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2013-03-04 11:05:33 +0100 |
| commit | f6177aea6270909574e7fc0598d4f16c764491f5 (patch) | |
| tree | 2b41e0288a80abe218523e219a657650db0024f4 /lib/observer/src/etop_gui.erl | |
| parent | 999e827ed1d9b5c966af2fc7480e57d2b60b7b09 (diff) | |
| download | otp-f6177aea6270909574e7fc0598d4f16c764491f5.tar.gz otp-f6177aea6270909574e7fc0598d4f16c764491f5.tar.bz2 otp-f6177aea6270909574e7fc0598d4f16c764491f5.zip | |
[observer] Accept current function for a process to be 'undefined' on hipe
Diffstat (limited to 'lib/observer/src/etop_gui.erl')
| -rw-r--r-- | lib/observer/src/etop_gui.erl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/observer/src/etop_gui.erl b/lib/observer/src/etop_gui.erl index f5cc0deb38..3971646abc 100644 --- a/lib/observer/src/etop_gui.erl +++ b/lib/observer/src/etop_gui.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2002-2012. All Rights Reserved. +%% Copyright Ericsson AB 2002-2013. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -276,7 +276,12 @@ clear_lines(From, To, Grid) -> end. formatmfa({M, F, A}) -> - io_lib:format("~w:~w/~w",[M, F, A]). + io_lib:format("~w:~w/~w",[M, F, A]); +formatmfa(Other) -> + %% E.g. when running hipe - the current_function for some + %% processes will be 'undefined' + io_lib:format("~w",[Other]). + makegridlines([#etop_proc_info{pid=Pid, mem=Mem, |