Changeset 20b45de for memlog2dot

Timestamp:

05/29/15 19:05:23 (10 years ago)

Author:

Hal Finkel <hfinkel@…>

Branches:

master

Children:

24aa734

Parents:

510af01

git-author:

Hal Finkel <hfinkel@…> (05/29/15 19:05:23)

git-committer:

Hal Finkel <hfinkel@…> (05/29/15 19:05:23)

Message:

add a txt output too for analysis

File:

• memlog2dot (modified) (6 diffs)

memlog2dot

@@ -147 +147 @@
 }
 
+my $txt_fn = "$out_dir/" . basename($memlog_fn) . ".txt";
 my $dot_fn = "$out_dir/" . basename($memlog_fn) . ".dot";
 my $ps_fn = "$out_dir/" . basename($memlog_fn) . ".ps";
 my $pdf_fn = "$out_dir/" . basename($memlog_fn) . ".pdf";
 
+open(TXT, ">$txt_fn") || die "Can't open $txt_fn: $!";
 open(DOT, ">$dot_fn") || die "Can't open $dot_fn: $!";
 
@@ -172 +174 @@
 printf DOT ("Legend [shape=box, fontsize=100, shape=oval," .
             "label=\"Total: %s active at maxrss = %s after %s s\"];\n",
+            format_bytes($total_size), format_bytes($max_rss), $max_rss_time);
+
+printf TXT ("memlog: Total: %s active at maxrss = %s after %s s\n\n",
             format_bytes($total_size), format_bytes($max_rss), $max_rss_time);
 
@@ -247 +252 @@
 foreach my $pc (keys %all_nodes) {
   my $node = $all_nodes{$pc};
-  my $name = get_name($node);
 
   my $local_size = $node->{'size'};
@@ -260 +264 @@
   }
 
+  my $name = get_name($node);
+
   printf DOT ("N%s [label=\"%s\\n%s\", shape=box, fontsize=%.1f%s];\n",
     $pc, $name, format_bytes($local_size), $fs);
@@ -265 +271 @@
 
 foreach my $pc (keys %all_nodes) {
+  if ($skipped{$pc}) {
+    next;
+  }
+
   my $node = $all_nodes{$pc};
-
   my $local_size = $node->{'size'};
-  if ($skipped{$pc}) {
-    next;
-  }
 
   foreach my $cpc (keys %{$node->{'child_sizes'}}) {
@@ -292 +298 @@
 print DOT ("}\n");
 
+foreach my $pc (sort { $all_nodes{$::b}->{'size'} <=>
+                       $all_nodes{$::a}->{'size'} } keys %all_nodes) {
+  if ($skipped{$pc}) {
+    next;
+  }
+
+  print TXT ('*' x 80) . "\n\n";
+
+  my $node = $all_nodes{$pc};
+
+  my $local_size = $node->{'size'};
+  printf TXT ("%s - %.1f%%\n", format_bytes($local_size),
+              $local_size * 100.0 / $total_size);
+
+  my $name = get_name($node);
+  $name =~ s/\\n/\n/g;
+
+  print TXT "$name\n$pc\n";
+
+  print TXT "\nMEMORY ALLOCATED BY CALLEES:\n";
+
+  foreach my $cpc (sort { $node->{'child_sizes'}->{$::b} <=>
+                          $node->{'child_sizes'}->{$::a} }
+                     keys %{$node->{'child_sizes'}}) {
+    if ($skipped{$cpc}) {
+      next;
+    }
+
+    my $child_node = $all_nodes{$cpc};
+    my $child_size = $node->{'child_sizes'}->{$cpc};
+
+    printf TXT ("\t%s - %.1f%%\n", format_bytes($child_size),
+                $child_size * 100.0 / $local_size);
+
+    my $child_name = get_name($child_node);
+    $child_name =~ s/\\n/\n\t/g;
+    print TXT "\t$child_name\n\t$cpc\n";
+
+    print TXT "\n";
+  }
+
+  print TXT "\n";
+}
+
+close(TXT);
 close(DOT);