aboutsummaryrefslogtreecommitdiffstats
path: root/lib/observer/src/etop_gui.erl
diff options
context:
space:
mode:
authorSiri Hansen <[email protected]>2013-02-26 12:00:53 +0100
committerSiri Hansen <[email protected]>2013-03-04 11:05:33 +0100
commitf6177aea6270909574e7fc0598d4f16c764491f5 (patch)
tree2b41e0288a80abe218523e219a657650db0024f4 /lib/observer/src/etop_gui.erl
parent999e827ed1d9b5c966af2fc7480e57d2b60b7b09 (diff)
downloadotp-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.erl9
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,