147 lines
3.9 KiB
Raku
Executable File
147 lines
3.9 KiB
Raku
Executable File
#!/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);
|