mirror of
https://github.com/yuzu-emu/mbedtls.git
synced 2024-11-26 05:25:38 +01:00
Output stack+heap usage with massif
This commit is contained in:
parent
0de7f94773
commit
c6dbc8eb84
@ -15,7 +15,7 @@ open my $fh, '<', $ARGV[0] or die;
|
|||||||
{ local $/ = 'snapshot='; @snaps = <$fh>; }
|
{ local $/ = 'snapshot='; @snaps = <$fh>; }
|
||||||
close $fh or die;
|
close $fh or die;
|
||||||
|
|
||||||
my $max = 0;
|
my ($max, $max_heap, $max_he, $max_stack) = (0, 0, 0, 0);
|
||||||
for (@snaps)
|
for (@snaps)
|
||||||
{
|
{
|
||||||
my ($heap, $heap_extra, $stack) = m{
|
my ($heap, $heap_extra, $stack) = m{
|
||||||
@ -25,7 +25,9 @@ for (@snaps)
|
|||||||
}xm;
|
}xm;
|
||||||
next unless defined $heap;
|
next unless defined $heap;
|
||||||
my $total = $heap + $heap_extra + $stack;
|
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";
|
||||||
|
Loading…
Reference in New Issue
Block a user