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>

diff --git a/scripts/checkstack.pl b/scripts/checkstack.pl
index 695710895560e9474c0d0bbc9b533ccad5eb7f16..bc23cc7edcaaf3ae32f4ce5a43d6193d8af7f6c4 100755 (executable)
--- 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";
 }