diff options
author | The Android Open Source Project <initial-contribution@android.com> | 2009-03-03 18:28:41 -0800 |
---|---|---|
committer | The Android Open Source Project <initial-contribution@android.com> | 2009-03-03 18:28:41 -0800 |
commit | 648161bb0edfc3d43db63caed5cc5213bc6cb78f (patch) | |
tree | 4b825dc642cb6eb9a060e54bf8d69288fbee4904 /WebKitTools/Scripts/parse-malloc-history | |
parent | a65af38181ac7d34544586bdb5cd004de93897ad (diff) | |
download | external_webkit-648161bb0edfc3d43db63caed5cc5213bc6cb78f.zip external_webkit-648161bb0edfc3d43db63caed5cc5213bc6cb78f.tar.gz external_webkit-648161bb0edfc3d43db63caed5cc5213bc6cb78f.tar.bz2 |
auto import from //depot/cupcake/@135843
Diffstat (limited to 'WebKitTools/Scripts/parse-malloc-history')
-rwxr-xr-x | WebKitTools/Scripts/parse-malloc-history | 154 |
1 files changed, 0 insertions, 154 deletions
diff --git a/WebKitTools/Scripts/parse-malloc-history b/WebKitTools/Scripts/parse-malloc-history deleted file mode 100755 index 76ca74b..0000000 --- a/WebKitTools/Scripts/parse-malloc-history +++ /dev/null @@ -1,154 +0,0 @@ -#!/usr/bin/perl - -# Copyright (C) 2007 Apple Inc. All rights reserved. -# -# Redistribution and use in source and binary forms, with or without -# modification, are permitted provided that the following conditions -# are met: -# -# 1. Redistributions of source code must retain the above copyright -# notice, this list of conditions and the following disclaimer. -# 2. Redistributions in binary form must reproduce the above copyright -# notice, this list of conditions and the following disclaimer in the -# documentation and/or other materials provided with the distribution. -# 3. Neither the name of Apple Computer, Inc. ("Apple") nor the names of -# its contributors may be used to endorse or promote products derived -# from this software without specific prior written permission. -# -# THIS SOFTWARE IS PROVIDED BY APPLE AND ITS CONTRIBUTORS "AS IS" AND ANY -# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED -# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE -# DISCLAIMED. IN NO EVENT SHALL APPLE OR ITS CONTRIBUTORS BE LIABLE FOR ANY -# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES -# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; -# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND -# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF -# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -# Parses the callstacks in a file with malloc_history formatted content, sorting -# based on total number of bytes allocated, and filtering based on command-line -# parameters. - -use Getopt::Long; -use File::Basename; - -use strict; -use warnings; - -sub commify($); - -sub main() -{ - my $usage = - "Usage: " . basename($0) . " [options] malloc_history.txt\n" . - " --grep-regexp Include only call stacks that match this regular expression.\n" . - " --byte-minimum Include only call stacks with allocation sizes >= this value.\n" . - " --merge-regexp Merge all call stacks that match this regular expression.\n" . - " --merge-depth Merge all call stacks that match at this stack depth and above.\n"; - - my $grepRegexp = ""; - my $byteMinimum = ""; - my @mergeRegexps = (); - my $mergeDepth = ""; - my $getOptionsResult = GetOptions( - "grep-regexp:s" => \$grepRegexp, - "byte-minimum:i" => \$byteMinimum, - "merge-regexp:s" => \@mergeRegexps, - "merge-depth:i" => \$mergeDepth - ); - my $fileName = $ARGV[0]; - die $usage if (!$getOptionsResult || !$fileName); - - open FILE, "<$fileName" or die "bad file: $fileName"; - my @file = <FILE>; - close FILE; - - my %callstacks = (); - my $byteCountTotal = 0; - - for (my $i = 0; $i < @file; $i++) { - my $line = $file[$i]; - my ($callCount, $byteCount); - - next if $line =~ /^\-/; - - # First try malloc_history format - # 6 calls for 664 bytes thread_ffffffff |0x0 | start - ($callCount, $byteCount) = ($line =~ /(\d+) calls for (\d+) bytes/); - - # Then try leaks format - # Leak: 0x0ac3ca40 size=48 - # 0x00020001 0x00000001 0x00000000 0x00000000 ................ - # Call stack: [thread ffffffff]: | 0x0 | start - if (!$callCount || !$byteCount) { - $callCount = 1; - ($byteCount) = ($line =~ /Leak: [x[:xdigit:]]* size=(\d+)/); - - if ($byteCount) { - while (!($line =~ "Call stack: ")) { - $i++; - $line = $file[$i]; - } - } - } - - # Then give up - next if (!$callCount || !$byteCount); - - $byteCountTotal += $byteCount; - - next if ($grepRegexp && !($line =~ $grepRegexp)); - - my $callstackBegin = 0; - if ($mergeDepth) { - # count stack frames backwards from end of callstack - $callstackBegin = length($line); - for (my $pipeCount = 0; $pipeCount < $mergeDepth; $pipeCount++) { - my $rindexResult = rindex($line, "|", $callstackBegin - 1); - last if $rindexResult == -1; - $callstackBegin = $rindexResult; - } - } else { - # start at beginning of callstack - $callstackBegin = index($line, "|"); - } - - my $callstack = substr($line, $callstackBegin + 2); # + 2 skips "| " - for my $regexp (@mergeRegexps) { - if ($callstack =~ $regexp) { - $callstack = $regexp . "\n"; - last; - } - } - - if (!$callstacks{$callstack}) { - $callstacks{$callstack} = {"callCount" => 0, "byteCount" => 0}; - } - - $callstacks{$callstack}{"callCount"} += $callCount; - $callstacks{$callstack}{"byteCount"} += $byteCount; - } - - my $byteCountTotalReported = 0; - for my $callstack (sort { $callstacks{$b}{"byteCount"} <=> $callstacks{$a}{"byteCount"} } keys %callstacks) { - my $callCount = $callstacks{$callstack}{"callCount"}; - my $byteCount = $callstacks{$callstack}{"byteCount"}; - last if ($byteMinimum && $byteCount < $byteMinimum); - - $byteCountTotalReported += $byteCount; - print commify($callCount) . " calls for " . commify($byteCount) . " bytes: $callstack\n"; - } - - print "total: " . commify($byteCountTotalReported) . " bytes (" . commify($byteCountTotal - $byteCountTotalReported) . " bytes excluded).\n"; -} - -exit(main()); - -# Copied from perldoc -- please excuse the style -sub commify($) -{ - local $_ = shift; - 1 while s/^([-+]?\d+)(\d{3})/$1,$2/; - return $_; -} |