Minki/linux
1
0
Fork 1
mirror of https://github.com/torvalds/linux.git synced 2024-12-29 14:21:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

scripts/checkstack.pl: Add argument to print stacks greather than value.

Browse Source 
Add arguments support to print stacks which are greater than
argument value only.

Co-developed-by: Vaneet Narang <v.narang@samsung.com>
Signed-off-by: Vaneet Narang <v.narang@samsung.com>
Signed-off-by: Maninder Singh <maninder1.s@samsung.com>
Signed-off-by: Masahiro Yamada <masahiroy@kernel.org>
This commit is contained in:
Maninder Singh 2020-05-08 16:33:15 +05:30 committed by Masahiro Yamada
parent 677f1410e0
commit 572220aad5
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
scripts/checkstack.pl
View File

@ -35,7 +35,7 @@ use strict;
# $1 (first bracket) matches the dynamic amount of the stack growth # $1 (first bracket) matches the dynamic amount of the stack growth
# #
# use anything else and feel the pain ;) # use anything else and feel the pain ;)
my (@stack, $re, $dre, $x, $xs, $funcre); my (@stack, $re, $dre, $x, $xs, $funcre, $min_stack);
{ {
my $arch = shift; my $arch = shift;
if ($arch eq "") { if ($arch eq "") {
@ -43,6 +43,11 @@ my (@stack, $re, $dre, $x, $xs, $funcre);
chomp($arch); chomp($arch);
} }
$min_stack = shift;
if ($min_stack eq "" || $min_stack !~ /^\d+$/) {
$min_stack = 100;
}
$x = "[0-9a-f]"; # hex character $x = "[0-9a-f]"; # hex character
$xs = "[0-9a-f ]"; # hex character or space $xs = "[0-9a-f ]"; # hex character or space
$funcre = qr/^$x* <(.*)>:$/; $funcre = qr/^$x* <(.*)>:$/;
@ -117,7 +122,7 @@ while (my $line = <STDIN>) {
if ($line =~ m/$funcre/) { if ($line =~ m/$funcre/) {
$func = $1; $func = $1;
next if $line !~ m/^($xs*)/; next if $line !~ m/^($xs*)/;
if ($total_size > 100) { if ($total_size > $min_stack) {
push @stack, "$intro$total_size\n"; push @stack, "$intro$total_size\n";
} }
@ -162,7 +167,7 @@ while (my $line = <STDIN>) {
$total_size += $size; $total_size += $size;
} }
} }
if ($total_size > 100) { if ($total_size > $min_stack) {
push @stack, "$intro$total_size\n"; push @stack, "$intro$total_size\n";
} }