Changeset 9fcaba3 for memlog_analyze

Timestamp:

06/01/15 05:56:52 (10 years ago)

Author:

Hal Finkel <hfinkel@…>

Branches:

master

Children:

0109b01

Parents:

3533094

git-author:

Hal Finkel <hfinkel@…> (06/01/15 05:56:52)

git-committer:

Hal Finkel <hfinkel@…> (06/01/15 05:56:52)

Message:

add leak-finding mode

File:

• memlog_analyze (modified) (6 diffs)

memlog_analyze

@@ -4 +4 @@
 use Getopt::Long;
 
+my $find_leaks = 0;
 my $print_raw_proc_name = 0;
 my $quiet = 0;
@@ -13 +14 @@
 Usage: $0 [options] <memlog file> [<output directory>]
   options:
+    --leaks
+      Provide information on leaks instead of peak usage
     --print-symbol-names
       Include symbol names and offsets in the output
@@ -24 +27 @@
 
 GetOptions("help|h|?" => \$help,
+           "leaks" => \$find_leaks,
            "print-symbol-names" => \$print_raw_proc_name,
            "quiet|q" => \$quiet)
@@ -69 +73 @@
 # Scan the log for malloc/free pairings. We're interested only in active
 # allocations at the time when the rss reaches the final maxrss.
-my $max_rss_time = 0;
+# If we're finding leaks, then go to the very end.
+my $active_alloc_time = 0;
 my %malloc_lines;
 foreach my $line (<MEMLOG>) {
@@ -88 +93 @@
   }
 
-  # If we've reached the max rss, we've seen all we need to see.
   my ($time, $then_max_rss, $tid) = split(/\s+/, $state);
-  $max_rss_time = $time;
-  if ($then_max_rss == $max_rss) {
-    last;
+  $active_alloc_time = $time;
+
+  if (!$find_leaks) {
+    # If we've reached the max rss, we've seen all we need to see.
+    if ($then_max_rss == $max_rss) {
+      last;
+    }
   }
 }
@@ -207 +215 @@
 print DOT ("node [width=0.375,height=0.25];\n");
 
+my $find_type = $find_leaks ? " (leaks)" : "";
 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);
+            "label=\"Total: %s active$find_type at maxrss = %s after %s s\"];\n",
+            format_bytes($total_size), format_bytes($max_rss),
+            $active_alloc_time);
+
+printf TXT ("memlog: Total: %s active$find_type at maxrss = %s after %s s\n\n",
+            format_bytes($total_size), format_bytes($max_rss),
+            $active_alloc_time);
 
 my %cached_names;