summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSiri Hansen <siri@erlang.org>2017-09-07 15:42:31 +0200
committerSiri Hansen <siri@erlang.org>2017-09-13 17:55:47 +0200
commit858254fc02e4c9ef2ea16275b2dfe60707ebb069 (patch)
tree1ba75da8f784c596f41aee5884c34083f2d2d681
parent0994e6fcef37da935ade7952e4ed1b6573eca033 (diff)
downloaderlang-858254fc02e4c9ef2ea16275b2dfe60707ebb069.tar.gz
cdv: Don't mark process as truncated if truncation is after all proc_heaps
-rw-r--r--lib/observer/src/crashdump_viewer.erl8
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/observer/src/crashdump_viewer.erl b/lib/observer/src/crashdump_viewer.erl
index fd8b3b9e67..9f68fee942 100644
--- a/lib/observer/src/crashdump_viewer.erl
+++ b/lib/observer/src/crashdump_viewer.erl
@@ -106,6 +106,8 @@
-define(internal_ets,internal_ets).
-define(loaded_modules,loaded_modules).
-define(memory,memory).
+-define(memory_map,memory_map).
+-define(memory_status,memory_status).
-define(mod,mod).
-define(no_distribution,no_distribution).
-define(node,node).
@@ -911,7 +913,11 @@ check_if_truncated() ->
find_truncated_proc(TruncatedTag)
end.
-find_truncated_proc({?atoms,_Id}) ->
+find_truncated_proc({Tag,_Id}) when Tag==?atoms;
+ Tag==?binary;
+ Tag==?instr_data;
+ Tag==?memory_status;
+ Tag==?memory_map ->
put(truncated_proc,false);
find_truncated_proc({Tag,Pid}) ->
case is_proc_tag(Tag) of