The Tor Browser / file comparison
comparison: tools/rb/find-leakers.pl
tools/rb/find-leakers.pl
- changeset 0
- 6474c204b198
equal
deleted
inserted
replaced
| -1:000000000000 | 0:2765fb4b93c6 |
|---|---|
| 1 #!/usr/bin/perl -w | |
| 2 # | |
| 3 # This Source Code Form is subject to the terms of the Mozilla Public | |
| 4 # License, v. 2.0. If a copy of the MPL was not distributed with this | |
| 5 # file, You can obtain one at http://mozilla.org/MPL/2.0/. | |
| 6 | |
| 7 use strict; | |
| 8 | |
| 9 my %allocs; | |
| 10 my %classes; | |
| 11 my %counter; | |
| 12 | |
| 13 LINE: while (<>) { | |
| 14 next LINE if (! /^</); | |
| 15 | |
| 16 my @fields = split(/ /, $_); | |
| 17 my $class = shift(@fields); | |
| 18 my $obj = shift(@fields); | |
| 19 my $sno = shift(@fields); | |
| 20 my $op = shift(@fields); | |
| 21 my $cnt = shift(@fields); | |
| 22 | |
| 23 # for AddRef/Release $cnt is the refcount, for Ctor/Dtor it's the size | |
| 24 | |
| 25 if ($op eq 'AddRef' && $cnt == 1) { | |
| 26 # Example: <nsStringBuffer> 0x01AFD3B8 1 AddRef 1 | |
| 27 | |
| 28 $allocs{$obj} = ++$counter{$class}; # the order of allocation | |
| 29 $classes{$obj} = $class; | |
| 30 } | |
| 31 elsif ($op eq 'Release' && $cnt == 0) { | |
| 32 # Example: <nsStringBuffer> 0x01AFD3B8 1 Release 0 | |
| 33 | |
| 34 delete($allocs{$obj}); | |
| 35 delete($classes{$obj}); | |
| 36 } | |
| 37 elsif ($op eq 'Ctor') { | |
| 38 # Example: <PStreamNotifyParent> 0x08880BD0 8 Ctor (20) | |
| 39 | |
| 40 $allocs{$obj} = ++$counter{$class}; | |
| 41 $classes{$obj} = $class; | |
| 42 } | |
| 43 elsif ($op eq 'Dtor') { | |
| 44 # Example: <PStreamNotifyParent> 0x08880BD0 8 Dtor (20) | |
| 45 | |
| 46 delete($allocs{$obj}); | |
| 47 delete($classes{$obj}); | |
| 48 } | |
| 49 } | |
| 50 | |
| 51 | |
| 52 sub sort_by_value { | |
| 53 my %x = @_; | |
| 54 sub _by_value($) { my %x = @_; $x{$a} cmp $x{$b}; } | |
| 55 sort _by_value keys(%x); | |
| 56 } | |
| 57 | |
| 58 | |
| 59 foreach my $key (&sort_by_value(%allocs)) { | |
| 60 # Example: 0x03F1D818 (2078) @ <nsStringBuffer> | |
| 61 print "$key (", $allocs{$key}, ") @ ", $classes{$key}, "\n"; | |
| 62 } |
