X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;f=scripts%2Fcheckstack.pl;h=dadfa20ffec0106ecea591e607a4ca3f722f3e27;hb=9464c7cf61b9433057924c36e6e02f303a00e768;hp=b34924663ac1f749d385efe70d09e226aff6bf45;hpb=41689045f6a3cbe0550e1d34e9cc20d2e8c432ba;p=linux-2.6.git

diff --git a/scripts/checkstack.pl b/scripts/checkstack.pl
index b34924663..dadfa20ff 100644
--- a/scripts/checkstack.pl
+++ b/scripts/checkstack.pl
@@ -89,21 +89,11 @@ sub bysize($) {
 #
 my $funcre = qr/^$x* <(.*)>:$/;
 my $func;
-my $file, $lastslash;
-
 while (my $line = <STDIN>) {
 	if ($line =~ m/$funcre/) {
 		$func = $1;
 	}
-	elsif ($line =~ m/(.*):\s*file format/) {
-		$file = $1;
-		$file =~ s/\.ko//;
-		$lastslash = rindex($file, "/");
-		if ($lastslash != -1) {
-			$file = substr($file, $lastslash + 1);
-		}
-	}
-	elsif ($line =~ m/$re/) {
+	if ($line =~ m/$re/) {
 		my $size = $1;
 		$size = hex($size) if ($size =~ /^0x/);
 
@@ -119,7 +109,7 @@ while (my $line = <STDIN>) {
 		$addr =~ s/ /0/g;
 		$addr = "0x$addr";
 
-		my $intro = "$addr $func [$file]:";
+		my $intro = "$addr $func:";
 		my $padlen = 56 - length($intro);
 		while ($padlen > 0) {
 			$intro .= '	';