| #!/usr/bin/perl |
| # Copyright (c) 2012 The Chromium Authors. All rights reserved. |
| # Use of this source code is governed by a BSD-style license that can be |
| # found in the LICENSE file. |
| # |
| # Blame callstacks for each memory allocation. |
| # Similar to memprof.pl, will also try to filter out unuseful stacks. |
| # TODO: better describe how these tools differ. |
| # |
| # Usage: |
| # |
| # memtrace.pl <logfile> |
| # |
| # logfile -- The memwatcher.logXXXX file to summarize. |
| # |
| # |
| # |
| # Sample output: |
| # |
| # 41,975,368 77.64% f:\sp\vctools\crt_bld\self_x86\crt\src\malloc.c (163): malloc |
| # 2,097,152 3.88% c:\src\chrome1\src\webkit\pending\frameloader.cpp (3300): WebCore::FrameLoader::committedLoad |
| # 1,572,864 2.91% c:\src\chrome1\src\webkit\port\bridge\v8bridge.cpp (214): WebCore::V8Bridge::evaluate |
| # 1,572,864 2.91% c:\src\chrome1\src\webkit\glue\webframeloaderclient_impl.cc (1071): WebFrameLoaderClient::committedLoad |
| # 1,572,864 2.91% c:\src\chrome1\src\v8\src\ast.h (1181): v8::internal::Visitor::Visit |
| # |
| # |
| # |
| |
| |
| sub process_raw($) { |
| my $file = shift; |
| |
| my %leaks = (); |
| |
| my $location_bytes = 0; |
| my $location_hits = 0; |
| my $location_blame = ""; |
| my $location_last = ""; |
| my $contains_load_lib = 0; |
| my $total_bytes = 0; |
| open (LOGFILE, "$file") or die("could not open $file"); |
| while(<LOGFILE>) { |
| my $line = $_; |
| #print "$line"; |
| chomp($line); |
| if ($line =~ m/([0-9]*) bytes, ([0-9]*) allocs/) { |
| |
| #print "START\n"; |
| # Dump "prior" frame here |
| if ($location_bytes > 0) { |
| #print("GOTLEAK: $location_bytes ($location_hits) $location_blame\n"); |
| if ($location_blame eq "") { |
| $location_blame = $location_last; |
| } |
| if (!$contains_load_lib) { |
| $leaks{$location_blame} += $location_bytes; |
| } |
| $location_bytes = 0; |
| $location_blame = ""; |
| $contains_load_lib = 0; |
| } |
| |
| #print("stackframe " . $1 . ", " . $2 . "\n"); |
| $location_hits = $2; |
| $location_bytes = $1; |
| } |
| elsif ($line =~ m/Total Bytes:[ ]*([0-9]*)/) { |
| $total_bytes += $1; |
| } |
| elsif ($line =~ m/LoadLibrary/) { |
| # skip these, they contain false positives. |
| $contains_load_lib = 1; |
| next; |
| } |
| elsif ($line =~ m/=============/) { |
| next; |
| } |
| elsif ($line =~ m/Untracking untracked/) { |
| next; |
| } |
| elsif ($line =~ m/[ ]*([a-z]:\\[a-z]*\\[a-zA-Z_\\0-9\.]*) /) { |
| my $filename = $1; |
| if ($filename =~ m/memory_watcher/) { |
| next; |
| } |
| if ($filename =~ m/skmemory_stdlib.cpp/) { |
| next; |
| } |
| if ($filename =~ m/stringimpl.cpp/) { |
| next; |
| } |
| if ($filename =~ m/stringbuffer.h/) { |
| next; |
| } |
| if ($filename =~ m/fastmalloc.h/) { |
| next; |
| } |
| if ($filename =~ m/microsoft visual studio 8/) { |
| next; |
| } |
| if ($filename =~ m/platformsdk_win2008_6_1/) { |
| next; |
| } |
| if ($location_blame eq "") { |
| # use this to blame the line |
| $location_blame = $line; |
| |
| # use this to blame the file. |
| # $location_blame = $filename; |
| |
| #print("blaming $location_blame\n"); |
| } |
| } else { |
| # print("junk: " . $line . "\n"); |
| if (! ($line =~ m/GetModuleFileNameA/) ) { |
| $location_last = $line; |
| } |
| } |
| } |
| |
| # 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]; |
| if (0 == $total_bytes) { $total_bytes = 1; } |
| 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 ------------------------------------------------ |
| |
| # Get the command line argument |
| my $filename = shift; |
| |
| # Process the file. |
| process_raw($filename); |