| OLD | NEW |
| 1 #!/usr/bin/perl | 1 #!/usr/bin/perl |
| 2 | 2 # Copyright (c) 2012 The Chromium Authors. All rights reserved. |
| 3 # Use of this source code is governed by a BSD-style license that can be |
| 4 # found in the LICENSE file. |
| 3 # | 5 # |
| 4 # Given a memwatcher logfile, group memory allocations by callstack. | 6 # Given a memwatcher logfile, group memory allocations by callstack. |
| 5 # | 7 # |
| 6 # Usage: | 8 # Usage: |
| 7 # | 9 # |
| 8 # memprof.pl <logfile> | 10 # memprof.pl <logfile> |
| 9 # | 11 # |
| 10 # logfile -- The memwatcher.logXXXX file to summarize. | 12 # logfile -- The memwatcher.logXXXX file to summarize. |
| 11 # | 13 # |
| 12 # | 14 # |
| (...skipping 92 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 105 } | 107 } |
| 106 | 108 |
| 107 # ----- Main ------------------------------------------------ | 109 # ----- Main ------------------------------------------------ |
| 108 | 110 |
| 109 # Get the command line argument | 111 # Get the command line argument |
| 110 my $filename = shift; | 112 my $filename = shift; |
| 111 my $filter = shift; | 113 my $filter = shift; |
| 112 | 114 |
| 113 # Process the file. | 115 # Process the file. |
| 114 process_raw($filename, $filter); | 116 process_raw($filename, $filter); |
| OLD | NEW |