aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDan Gudmundsson <[email protected]>2013-05-23 12:49:00 +0200
committerDan Gudmundsson <[email protected]>2013-05-23 12:49:00 +0200
commit9e3547d97e1ce3597422d7ee146b2f2f1dabcd11 (patch)
tree82a7a862bab66dcd53487202c40aad9f05865459
parent6a1c4daa036cd5e26bfe1995b004621ba6984d60 (diff)
downloadotp-9e3547d97e1ce3597422d7ee146b2f2f1dabcd11.tar.gz
otp-9e3547d97e1ce3597422d7ee146b2f2f1dabcd11.tar.bz2
otp-9e3547d97e1ce3597422d7ee146b2f2f1dabcd11.zip
observer: Improve initial call info
-rw-r--r--lib/runtime_tools/src/observer_backend.erl7
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/runtime_tools/src/observer_backend.erl b/lib/runtime_tools/src/observer_backend.erl
index 25ed093d45..670e216d97 100644
--- a/lib/runtime_tools/src/observer_backend.erl
+++ b/lib/runtime_tools/src/observer_backend.erl
@@ -285,7 +285,7 @@ etop_collect([P|Ps], Acc) ->
[{registered_name,Reg},{initial_call,Initial},{memory,Mem},
{reductions,Reds},{current_function,Current},{message_queue_len,Qlen}] ->
Name = case Reg of
- [] -> Initial;
+ [] -> initial_call(Initial, P);
_ -> Reg
end,
Info = #etop_proc_info{pid=P,mem=Mem,reds=Reds,name=Name,
@@ -294,6 +294,11 @@ etop_collect([P|Ps], Acc) ->
end;
etop_collect([], Acc) -> Acc.
+initial_call({proc_lib, init_p, _}, Pid) ->
+ proc_lib:translate_initial_call(Pid);
+initial_call(Initial, _Pid) ->
+ Initial.
+
%%
%% ttb backend
%%