aboutsummaryrefslogtreecommitdiffstats
path: root/scripts/checkstack.pl
diff options
context:
space:
mode:
authorChristian Borntraeger <borntraeger@de.ibm.com>2008-10-10 21:33:30 +0200
committerMartin Schwidefsky <schwidefsky@de.ibm.com>2008-10-10 21:34:03 +0200
commit89d49841e9e7a90b04b036b7dbe7521b55edbe24 (patch)
tree6284b071511c4cdd50219a212c24a4ed62f7af4e /scripts/checkstack.pl
parent4a672cfa3a7fcbc6f2adc558f34148be1096c561 (diff)
downloadmrst-s0i3-test-89d49841e9e7a90b04b036b7dbe7521b55edbe24.tar.gz
mrst-s0i3-test-89d49841e9e7a90b04b036b7dbe7521b55edbe24.tar.xz
mrst-s0i3-test-89d49841e9e7a90b04b036b7dbe7521b55edbe24.zip
[S390] Fix checkstack for s390
With -march=z990 and later gcc can use the long displacement facility insruction lay for stack register handling. This patch adopts checkstack to catch lay in addition to ahi and aghi. Signed-off-by: Christian Borntraeger <borntraeger@de.ibm.com> Signed-off-by: Martin Schwidefsky <schwidefsky@de.ibm.com>
Diffstat (limited to 'scripts/checkstack.pl')
-rwxr-xr-xscripts/checkstack.pl5
1 files changed, 4 insertions, 1 deletions
diff --git a/scripts/checkstack.pl b/scripts/checkstack.pl
index 3eca62566d6..f7e8e93ff30 100755
--- a/scripts/checkstack.pl
+++ b/scripts/checkstack.pl
@@ -81,7 +81,10 @@ my (@stack, $re, $dre, $x, $xs);
$re = qr/.*st[dw]u.*r1,-($x{1,8})\(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;
+ # or
+ # 100092: e3 f0 ff c8 ff 71 lay %r15,-56(%r15)
+ $re = qr/.*(?:lay|ag?hi).*\%r15,-(([0-9]{2}|[3-9])[0-9]{2})
+ (?:\(\%r15\))?$/ox;
} elsif ($arch =~ /^sh64$/) {
#XXX: we only check for the immediate case presently,
# though we will want to check for the movi/sub