diff options
| author | Dan Gudmundsson <[email protected]> | 2013-05-23 12:49:00 +0200 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2013-05-23 12:49:00 +0200 |
| commit | 9e3547d97e1ce3597422d7ee146b2f2f1dabcd11 (patch) | |
| tree | 82a7a862bab66dcd53487202c40aad9f05865459 | |
| parent | 6a1c4daa036cd5e26bfe1995b004621ba6984d60 (diff) | |
| download | otp-9e3547d97e1ce3597422d7ee146b2f2f1dabcd11.tar.gz otp-9e3547d97e1ce3597422d7ee146b2f2f1dabcd11.tar.bz2 otp-9e3547d97e1ce3597422d7ee146b2f2f1dabcd11.zip | |
observer: Improve initial call info
| -rw-r--r-- | lib/runtime_tools/src/observer_backend.erl | 7 |
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 %% |