Messages in this thread Patch in this message | | | From | Arnd Bergmann <> | Subject | Re: [PATCH] add checkstack Makefile target | Date | Thu, 06 Mar 2003 02:50:22 +0100 |
| |
Jörn Engel wrote:
> Yet another version: > - Arch dependent code is reduced to one regular expression. > - Much shorter. > - A tiny bit faster. > > Still, Keith' code beats the crap out of mine, speed-wise.
Ok, here is another regex for s390, including a changed $line calculation. I didn't have ksymoops around, but this change removes the need for it and should also speed things up.
Arnd <><
--- checkstack.pl 2003-03-06 02:28:13.000000000 +0100 +++ scripts/checkstack.pl 2003-03-06 02:25:23.000000000 +0100 @@ -31,6 +31,9 @@ } elsif ($arch =~ /^ppc$/) { #c00029f4: 94 21 ff 30 stwu r1,-208(r1) $re = qr/.*(stwu.*r1,-($x{3,5})\(r1\))/o; + } elsif ($arch =~ /^s390x?$/) { + # 11160: a7 fb ff 60 aghi %r15,-160 + $re = qr/.*(ag?hi.*\%r15,-(([0-9]{2}|[3-9])[0-9]{2}))/o; } else { print "wrong or unknown architecture\n"; exit @@ -46,16 +49,17 @@ # # main() # +$funcre = qr/^$x* \<(.*)\>:$/; while (defined($line = <STDIN>)) { + if ($line =~ m/$funcre/) { + ($func = $line) =~ s/$funcre/\1/; + chomp($func); + } + if ($line =~ m/$re/) { - (my $addr = $line) =~ s/^($x{8}).*/0x\1/o; + (my $addr = $line) =~ s/^([ 0-9a-z]{8}):.*/0x\1/o; chomp($addr); - my $ksymoops = `ksymoops -v vmlinux -m System.map -K -L -O -A $addr | \ - tail -2 | head -1`; - (my $func = $ksymoops) =~ s/^Adhoc [0-9a-f]{8} (<.*>)/\1/; - chomp($func); - my $intro = "$addr $func:"; my $padlen = 56 - length($intro); while ($padlen > 0) { - To unsubscribe from this list: send the line "unsubscribe linux-kernel" in the body of a message to majordomo@vger.kernel.org More majordomo info at http://vger.kernel.org/majordomo-info.html Please read the FAQ at http://www.tux.org/lkml/
| |