Branch HEAD

[fs/lustre-release.git] / build / checkstack.pl

diff --git a/build/checkstack.pl b/build/checkstack.pl
index 3504e96..6bdab11 100644 (file)
--- a/build/checkstack.pl
+++ b/build/checkstack.pl
@@ -27,7 +27,7 @@
 # use anything else and feel the pain ;)
 {
        my $arch = shift;
-       $x      = "[0-9a-f]{3,5}";              # hex number     >= 256
+       $x      = "[0-9a-f]{2,5}";              # hex number     >= 256
        $d      = "([0-9]{2}|[2-9])[0-9]{2}";   # decimal number >= 200
        if ($arch eq "") {
                $arch = `uname -m`;
@@ -36,6 +36,10 @@
                #c0105234:       81 ec ac 05 00 00       sub    $0x5ac,%esp
                $re = qr/^.*(sub    \$(0x$x),\%esp)$/o;
                $todec = sub { return hex($_[0]); };
+       } elsif ($arch =~ 'x86_64') {
+               #    2f60:      48 81 ec e8 05 00 00    sub    $0x5e8,%rsp
+               $re = qr/^.*(add    \$(0x$x),\%rsp)$/o;
+               $todec = sub { return hex($_[0]); };
        } elsif ($arch =~ /^ia64$/) {
                #e0000000044011fc:       01 0f fc 8c     adds r12=-384,r12
                $re = qr/.*(adds.*r12=-($d),r12)/o;