Changeset 6520ef5

Timestamp:

05/28/15 17:50:41 (10 years ago)

Author:

Hal Finkel <hfinkel@…>

Branches:

master

Children:

81dea5b

Parents:

c4f89cf

git-author:

Hal Finkel <hfinkel@…> (05/28/15 17:50:41)

git-committer:

Hal Finkel <hfinkel@…> (05/28/15 17:50:41)

Message:

fix edge font sizes and function printing

File:

• memlog2dot (modified) (3 diffs)

memlog2dot

@@ -118 +118 @@
 
   if ($func !~ /^\?/) {
+    # In general, this function name might look something like:
+    #   00000329.plt_call.wcsnrtombs@@GLIBC_2.3+0
+    $func =~ s/@.*//;
     $func =~ s/.*\.//;
     $func = `c++filt '$func'`;
@@ -158 +161 @@
   }
 
-  printf("N%s [label=\"%s\\n%s\", shape=box,fontsize=%.1f%s];\n",
+  printf("N%s [label=\"%s\\n%s\", shape=box, fontsize=%.1f%s];\n",
     $pc, $name, format_bytes($local_size), $fs);
 }
@@ -179 +182 @@
 
     my $weight = 100.0 * sqrt($frac);
-    my $style = sprintf("setlinewidth(%f)", 3.0 * sqrt($frac));
+    my $style = sprintf("setlinewidth(%f)", 8.0 * sqrt($frac));
 
-    printf("N%s -> N%s [label=\"%s\", weight=%d, style=\"%s\"];\n",
-      $pc, $cpc, format_bytes($child_size), $weight, $style);
+    my $fs = 40.0 * $frac**0.125;
+
+    printf("N%s -> N%s [label=\"%s\", weight=%d, style=\"%s\", fontsize=%.1f];\n",
+      $pc, $cpc, format_bytes($child_size), $weight, $style, $fs);
   }
 }