diff options
| author | Siri Hansen <[email protected]> | 2013-05-21 09:49:51 +0200 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2013-05-21 09:49:51 +0200 |
| commit | 1611ef713c832ab24f1d077a0ad31e5676882389 (patch) | |
| tree | 25a85c46da5f0456d8fb8ffd64ec442da8ec8370 /lib/observer/src/crashdump_viewer_html.erl | |
| parent | 5240f22038603f025274173fad71d0d4dd544bef (diff) | |
| download | otp-1611ef713c832ab24f1d077a0ad31e5676882389.tar.gz otp-1611ef713c832ab24f1d077a0ad31e5676882389.tar.bz2 otp-1611ef713c832ab24f1d077a0ad31e5676882389.zip | |
[observer] Add allocator summary in crashdump_viewer
A new table with summary of allocator blocks- and carriers size is
added under "Allocator information" in crashdump viewer.
Diffstat (limited to 'lib/observer/src/crashdump_viewer_html.erl')
| -rw-r--r-- | lib/observer/src/crashdump_viewer_html.erl | 24 |
1 files changed, 19 insertions, 5 deletions
diff --git a/lib/observer/src/crashdump_viewer_html.erl b/lib/observer/src/crashdump_viewer_html.erl index 3151b83bfb..40d6d4a374 100644 --- a/lib/observer/src/crashdump_viewer_html.erl +++ b/lib/observer/src/crashdump_viewer_html.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2003-2012. All Rights Reserved. +%% Copyright Ericsson AB 2003-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 @@ -815,12 +815,26 @@ allocator_info_body(Heading,Allocators,TW) -> [heading(Heading,"memory"), warn(TW), p(b("Sizes are in bytes")), - lists:map(fun({SubTitle,Allocator}) -> + lists:map(fun({Head,Allocator}) -> + TableHead = + case Head of + {SubTitle,Columns} -> + tr("BGCOLOR=\"#8899AA\"", + [th("ALIGN=left", + font("SIZE=+1",SubTitle)) | + lists:map( + fun(CH) -> + th("ALIGN=right",CH) + end, + Columns)]); + SubTitle -> + tr("BGCOLOR=\"#8899AA\"", + th("COLSPAN=10 ALIGN=left", + font("SIZE=+1",SubTitle))) + end, [table( "BORDER=4 CELLPADDING=4", - [tr("BGCOLOR=\"#8899AA\"", - th("COLSPAN=10 ALIGN=left", - font("SIZE=+1",SubTitle))) | + [TableHead | lists:map( fun({Key,Values}) -> tr([th("ALIGN=left",Key) | |