Update summarizing script for memory dump results....

tools/memory_watcher/scripts/summary.pl

 #!/usr/bin/perl
 #
 # Read a memtrace logfile from stdin and group memory allocations by logical
 # code component. The code component is guessed from the callstack, and
 # is something like {v8, sqlite, disk cache, skia, etc..}
 #
 # Usage:
 #
 #   summary.pl
 #
@@ skipping 15 matching lines @@
         chomp($cont);
         last if $cont =~ m/=====/;
         $loc .= "\n" . $cont;
     }
     my $location_blame = "";
 
 #    print "Found: $bytes, $loc\n";
     
     if ($loc =~ m/v8::internal::Snapshot::Deserialize/) {
       $location_blame = "v8 Snapshot Deserialize";
+    } elsif ($loc =~ m/RenderStyle::create/) {
+      $location_blame = "RenderStyle::create";
     } elsif ($loc =~ m/v8::internal::OldSpace::SlowAllocateRaw/) {
       $location_blame = "v8 OldSpace";
-    } elsif ($loc =~ m/v8/) {
-      $location_blame = "v8";
     } elsif ($loc =~ m/sqlite/) {
       $location_blame = "sqlite";
     } elsif ($loc =~ m/ TransportDIB::Map/) {
       $location_blame = "Shared Memory Backing Store";
     } elsif ($loc =~ m/imagedecoder/) {
       $location_blame = "img decoder";
     } elsif ($loc =~ m/SkBitmap/) {
       $location_blame = "skia";
     } elsif ($loc =~ m/disk_cache/) {
       $location_blame = "disk cache";
@@ skipping 58 matching lines @@
     } elsif ($loc =~ m/NewDOMUI/) {
       $location_blame = "NewDOMUI";
     } elsif ($loc =~ m/RegistryControlledDomainService/) {
       $location_blame = "RegistryControlledDomainService";
     } elsif ($loc =~ m/URLRequestChromeJob::DataAvailable/) {
       $location_blame = "URLRequestChromeJob DataAvailable";
     } elsif ($loc =~ m/history_publisher/) {
       $location_blame = "history publisher";
     } else {
       $location_blame = "unknown";
-#      print "$location_blame: ($bytes) $loc\n";
     }
 
     # Surface large outliers in an "interesting" group.
-    # When questioned about a specific group listed above, we
-    # can just enter its name here, and get details.
+    my $interesting_group = "unknown";
+    my $interesting_size = 10000000;  # Make this smaller as needed.
     # TODO(jar): Add this as a pair of shell arguments.
-    if ($bytes > 10000000 && $location_blame eq "unknown") {
-      $location_blame = "\n" . $loc;
+    if ($bytes > $interesting_size && $location_blame eq $interesting_group) {
+      # Create a special group for the exact stack that contributed so much.
+      $location_blame = $loc;
     }
 
     $total_bytes += $bytes;
     $leaks{$location_blame} += $bytes;
   }
 
   # now dump our hash table
   my $sum = 0;
   my @keys = sort { $leaks{$b} <=> $leaks{$a}  }keys %leaks;
   for ($i=0; $i<@keys; $i++) {
     my $key = @keys[$i];
-    printf "%11s\t%3.2f%%\t%s\n", comma_print($leaks{$key}), (100* $leaks{$key} / $total_bytes), $key;
+    printf "%11s\t(%3.2f%%)\t%s\n", comma_print($leaks{$key}), (100* $leaks{$key} / $total_bytes), $key;
     $sum += $leaks{$key};
   }
   printf("TOTAL: %s\n", comma_print($sum));
 }
 
 # Insert commas into an integer after each three digits for printing.
 sub comma_print {
     my $num = "$_[0]";
     $num =~ s/(\d{1,3}?)(?=(\d{3})+$)/$1,/g;
     return $num;
 }
 
 # ----- Main ------------------------------------------------
 
 process_stdin();