diff options
author | Kyle McMartin <kyle@shortfin.cabal.ca> | 2007-10-20 13:18:56 -0700 |
---|---|---|
committer | Kyle McMartin <kyle@shortfin.cabal.ca> | 2007-10-20 13:18:56 -0700 |
commit | 562d139cc587fc7f7fb8e07aad13cdd2a412c9a7 (patch) | |
tree | cef4b30885483dbd2bc52a868115313c1527a096 /scripts/checkstack.pl | |
parent | f67d4033c143d74fff3a9aff03772d912b1ec317 (diff) |
[PARISC] Port checkstack.pl to parisc
Signed-off-by: Kyle McMartin <kyle@mcmartin.ca>
Diffstat (limited to 'scripts/checkstack.pl')
-rwxr-xr-x | scripts/checkstack.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/scripts/checkstack.pl b/scripts/checkstack.pl index b458e2acb4a..c3b42f99df3 100755 --- a/scripts/checkstack.pl +++ b/scripts/checkstack.pl @@ -13,6 +13,7 @@ # Random bits by Matt Mackall <mpm@selenic.com> # M68k port by Geert Uytterhoeven and Andreas Schwab # AVR32 port by Haavard Skinnemoen <hskinnemoen@atmel.com> +# PARISC port by Kyle McMartin <kyle@parisc-linux.org> # # Usage: # objdump -d vmlinux | stackcheck.pl [arch] @@ -61,6 +62,8 @@ my (@stack, $re, $x, $xs); } elsif ($arch eq 'mips') { #88003254: 27bdffe0 addiu sp,sp,-32 $re = qr/.*addiu.*sp,sp,-(([0-9]{2}|[3-9])[0-9]{2})/o; + } elsif ($arch eq 'parisc' || $arch eq 'parisc64') { + $re = qr/.*ldo ($x{1,8})\(sp\),sp/o; } elsif ($arch eq 'ppc') { #c00029f4: 94 21 ff 30 stwu r1,-208(r1) $re = qr/.*stwu.*r1,-($x{1,8})\(r1\)/o; |