summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorManinder Singh <maninder1.s@samsung.com>2020-05-08 14:03:15 +0300
committerMasahiro Yamada <masahiroy@kernel.org>2020-05-25 18:03:16 +0300
commit572220aad525bd3650f796d7e29cc06d41df4235 (patch)
treec2ab1fa5a93ef0b374b4263893a26888552c7b5d
parent677f1410e05813fde62d724d9210fce04c505fc7 (diff)
downloadlinux-572220aad525bd3650f796d7e29cc06d41df4235.tar.xz
scripts/checkstack.pl: Add argument to print stacks greather than value.
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>
-rwxr-xr-xscripts/checkstack.pl11
1 files changed, 8 insertions, 3 deletions
diff --git a/scripts/checkstack.pl b/scripts/checkstack.pl
index 695710895560..bc23cc7edcaa 100755
--- a/scripts/checkstack.pl
+++ b/scripts/checkstack.pl
@@ -35,7 +35,7 @@ use strict;
# $1 (first bracket) matches the dynamic amount of the stack growth
#
# 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;
if ($arch eq "") {
@@ -43,6 +43,11 @@ my (@stack, $re, $dre, $x, $xs, $funcre);
chomp($arch);
}
+ $min_stack = shift;
+ if ($min_stack eq "" || $min_stack !~ /^\d+$/) {
+ $min_stack = 100;
+ }
+
$x = "[0-9a-f]"; # hex character
$xs = "[0-9a-f ]"; # hex character or space
$funcre = qr/^$x* <(.*)>:$/;
@@ -117,7 +122,7 @@ while (my $line = <STDIN>) {
if ($line =~ m/$funcre/) {
$func = $1;
next if $line !~ m/^($xs*)/;
- if ($total_size > 100) {
+ if ($total_size > $min_stack) {
push @stack, "$intro$total_size\n";
}
@@ -162,7 +167,7 @@ while (my $line = <STDIN>) {
$total_size += $size;
}
}
-if ($total_size > 100) {
+if ($total_size > $min_stack) {
push @stack, "$intro$total_size\n";
}