Changeset 4bd7a88 for memlog2dot

Timestamp:

05/28/15 16:48:52 (10 years ago)

Author:

Hal Finkel <hfinkel@…>

Branches:

master

Children:

c4f89cf

Parents:

ebd57f8

git-author:

Hal Finkel <hfinkel@…> (05/28/15 16:48:52)

git-committer:

Hal Finkel <hfinkel@…> (05/28/15 16:48:52)

Message:

working on filtering nodes...

File:

• memlog2dot (modified) (4 diffs)

memlog2dot

@@ -84 +84 @@
   }
 
-  return sprintf("%.3f$sizes[$i]", $size);
+  return sprintf("%.3f $sizes[$i]", $size);
 }
 
 printf("digraph \"memlog %s\" {\n", format_bytes($total_size));
-print("size=\"8,11\"\n");
+print("size=\"8,11\";\n");
 print("node [width=0.375,height=0.25];\n");
 
@@ -121 +121 @@
 
     $ret .= $func . '\n' . $loc . '\n';
+  } elsif ($node->{'proc_name'} ne '?') {
+    my $proc_name = $node->{'proc_name'};
+    $proc_name = `c++filt '$proc_name'`;
+    chomp($proc_name);
+
+    $ret .= $proc_name . '\n';
   }
 
@@ -132 +138 @@
 }
 
+my $skip_frac = 0.01;
+my %skipped;
+
 foreach my $node (@all_nodes) {
   my $name = get_name($node);
 
   my $local_size = $node->{'size'};
+  if ($local_size * 1.0 / $total_size < $skip_frac) {
+    $skipped{$node->{'pc'}} = 1;
+    next;
+  }
 
   my $fs = 8.0;
   if ($local_size > 0) {
-    $fs = 50.0 * sqrt(abs($local_size * 1.0 / $total_size));
+    $fs = 50.0 * (abs($local_size * 1.0 / $total_size))**0.125;
   }
 
@@ -148 +161 @@
 foreach my $node (@all_nodes) {
   my $local_size = $node->{'size'};
+  if ($skipped{$node->{'pc'}}) {
+    next;
+  }
 
   foreach my $cpc (keys %{$node->{'child_sizes'}}) {
+    if ($skipped{$cpc}) {
+      next;
+    }
+
     my $child_size = $node->{'child_sizes'}->{$cpc};
     my $frac = $child_size * 1.0 / $local_size;
 
-    my $weight = 100.0 * $frac;
-    my $style = sprintf("setlinewidth(%f)", 3.0 * $frac);
+    my $weight = 100.0 * sqrt($frac);
+    my $style = sprintf("setlinewidth(%f)", 3.0 * sqrt($frac));
 
     printf("N%s -> N%s [label=\"%s\", weight=%d, style=\"%s\"];\n",