diff options
author | Sverker Eriksson <[email protected]> | 2017-03-16 19:01:08 +0100 |
---|---|---|
committer | Sverker Eriksson <[email protected]> | 2017-03-22 15:27:17 +0100 |
commit | 772f04770bdec7341f63bf4fddb7b893b4ffdd27 (patch) | |
tree | 89226abd3794b9bf31e2d2f16700aa1ad202bb4d /lib/observer/src/crashdump_viewer.erl | |
parent | 68091d358305c90240976ff0c6bf297ec07307dd (diff) | |
download | otp-772f04770bdec7341f63bf4fddb7b893b4ffdd27.tar.gz otp-772f04770bdec7341f63bf4fddb7b893b4ffdd27.tar.bz2 otp-772f04770bdec7341f63bf4fddb7b893b4ffdd27.zip |
observer: Polish crashdump viewer for ETS
Replaced "Id" column with "Is Named".
Removed "Slot" column.
Sort by name instead if id.
Use name in right-click menu instead of id.
Diffstat (limited to 'lib/observer/src/crashdump_viewer.erl')
-rw-r--r-- | lib/observer/src/crashdump_viewer.erl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/observer/src/crashdump_viewer.erl b/lib/observer/src/crashdump_viewer.erl index 13e73f027d..e21f1c501b 100644 --- a/lib/observer/src/crashdump_viewer.erl +++ b/lib/observer/src/crashdump_viewer.erl @@ -1555,10 +1555,14 @@ split_pid_list_no_space([],[],Pids) -> %% Page with external ets tables get_ets_tables(File,Pid,WS) -> ParseFun = fun(Fd,Id) -> - get_etsinfo(Fd,#ets_table{pid=list_to_pid(Id)},WS) + ET = get_etsinfo(Fd,#ets_table{pid=list_to_pid(Id)},WS), + ET#ets_table{is_named=tab_is_named(ET)} end, lookup_and_parse_index(File,{?ets,Pid},ParseFun,"ets"). +tab_is_named(#ets_table{id=Name,name=Name}) -> "yes"; +tab_is_named(#ets_table{}) -> "no". + get_etsinfo(Fd,EtsTable = #ets_table{details=Ds},WS) -> case line_head(Fd) of "Slot" -> |