cuberite/polarssl
1
0
Fork 0
mirror of https://github.com/cuberite/polarssl.git synced 2025-11-03 20:22:59 -05:00
Code Issues Packages Projects Releases Wiki Activity

Output stack+heap usage with massif

Browse Source
This commit is contained in:
Manuel Pégourié-Gonnard 2014-12-01 14:05:45 +01:00
parent 0de7f94773
commit c6dbc8eb84
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scripts/massif_max.pl
View File

@ -15,7 +15,7 @@ open my $fh, '<', $ARGV[0] or die;
{ local $/ = 'snapshot='; @snaps = <$fh>; }
close $fh or die;
my $max = 0;
my ($max, $max_heap, $max_he, $max_stack) = (0, 0, 0, 0);
for (@snaps)
{
my ($heap, $heap_extra, $stack) = m{
@ -25,7 +25,9 @@ for (@snaps)
}xm;
next unless defined $heap;
my $total = $heap + $heap_extra + $stack;
$max = $total if $total > $max;
if( $total > $max ) {
($max, $max_heap, $max_he, $max_stack) = ($total, $heap, $heap_extra, $stack);
}
}
printf "$max\n";
printf "$max (heap $max_heap+$max_he, stack $max_stack)\n";