mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-03-26 09:50:40 +08:00
S/390: Add __morestack test.
gcc/testsuite/ChangeLog: * gcc.target/s390/morestack.c: New test. From-SVN: r233547
This commit is contained in:
Marcin Kościelnicki
Andreas Krebbel
parent
ca2bfbc2ca
commit
efc2340b5f
@ -1,3 +1,7 @@
|
||||
2016-02-19 Marcin Kościelnicki <koriakin@0x04.net>
|
||||
|
||||
* gcc.target/s390/morestack.c: New test.
|
||||
|
||||
2016-02-19 Dominik Vogt <vogt@linux.vnet.ibm.com>
|
||||
|
||||
PR target/69625
|
||||
|
||||
260
gcc/testsuite/gcc.target/s390/morestack.c
Normal file
260
gcc/testsuite/gcc.target/s390/morestack.c
Normal file
@ -0,0 +1,260 @@
|
||||
/* Checks proper behavior of __morestack function - specifically, GPR
|
||||
values surviving, stack parameters being copied, and vararg
|
||||
pointer being correct. */
|
||||
|
||||
/* { dg-do run } */
|
||||
/* { dg-options "" } */
|
||||
|
||||
#include <stdlib.h>
|
||||
|
||||
void *orig_r15;
|
||||
|
||||
/* 1. Function "test" saves registers, makes a stack frame, puts known
|
||||
* values in registers, and calls __morestack, telling it to jump to
|
||||
* testinner, with return address pointing to "testret".
|
||||
* 2. "testinner" checks that parameter registers match what has been
|
||||
* passed from "test", stack parameters were copied properly to
|
||||
* the new stack, and the argument pointer matches the calling
|
||||
* function's stack pointer. It then leaves new values in volatile
|
||||
* registers (including return value registers) and returns.
|
||||
* 3. "testret" checks that return value registers contain the expected
|
||||
* return value, callee-saved GPRs match the values from "test",
|
||||
* and then returns to main. */
|
||||
|
||||
extern unsigned long testparams[3];
|
||||
|
||||
#ifdef __s390x__
|
||||
|
||||
asm(
|
||||
".global test\n"
|
||||
"test:\n"
|
||||
".type test, @function\n"
|
||||
/* Save registers. */
|
||||
"stmg %r6, %r15, 0x30(%r15)\n"
|
||||
/* Save original sp in a global. */
|
||||
"larl %r1, orig_r15\n"
|
||||
"stg %r15, 0(%r1)\n"
|
||||
/* Make a stack frame. */
|
||||
"aghi %r15, -168\n"
|
||||
/* A stack parameter. */
|
||||
"lghi %r1, 0x1240\n"
|
||||
"stg %r1, 160(%r15)\n"
|
||||
/* Registers. */
|
||||
"lghi %r0, 0x1230\n"
|
||||
"lghi %r2, 0x1232\n"
|
||||
"lghi %r3, 0x1233\n"
|
||||
"lghi %r4, 0x1234\n"
|
||||
"lghi %r5, 0x1235\n"
|
||||
"lghi %r6, 0x1236\n"
|
||||
"lghi %r7, 0x1237\n"
|
||||
"lghi %r8, 0x1238\n"
|
||||
"lghi %r9, 0x1239\n"
|
||||
"lghi %r10, 0x123a\n"
|
||||
"lghi %r11, 0x123b\n"
|
||||
"lghi %r12, 0x123c\n"
|
||||
"lghi %r13, 0x123d\n"
|
||||
/* Fake return address. */
|
||||
"larl %r14, testret\n"
|
||||
/* Call morestack. */
|
||||
"larl %r1, testparams\n"
|
||||
"jg __morestack\n"
|
||||
|
||||
/* Entry point. */
|
||||
"testinner:\n"
|
||||
/* Check registers. */
|
||||
"cghi %r0, 0x1230\n"
|
||||
"jne testerr\n"
|
||||
"cghi %r2, 0x1232\n"
|
||||
"jne testerr\n"
|
||||
"cghi %r3, 0x1233\n"
|
||||
"jne testerr\n"
|
||||
"cghi %r4, 0x1234\n"
|
||||
"jne testerr\n"
|
||||
"cghi %r5, 0x1235\n"
|
||||
"jne testerr\n"
|
||||
"cghi %r6, 0x1236\n"
|
||||
"jne testerr\n"
|
||||
/* Check stack param. */
|
||||
"lg %r0, 0xa0(%r15)\n"
|
||||
"cghi %r0, 0x1240\n"
|
||||
"jne testerr\n"
|
||||
/* Check argument pointer. */
|
||||
"aghi %r1, 8\n"
|
||||
"larl %r2, orig_r15\n"
|
||||
"cg %r1, 0(%r2)\n"
|
||||
"jne testerr\n"
|
||||
/* Modify volatile registers. */
|
||||
"lghi %r0, 0x1250\n"
|
||||
"lghi %r1, 0x1251\n"
|
||||
"lghi %r2, 0x1252\n"
|
||||
"lghi %r3, 0x1253\n"
|
||||
"lghi %r4, 0x1254\n"
|
||||
"lghi %r5, 0x1255\n"
|
||||
/* Return. */
|
||||
"br %r14\n"
|
||||
|
||||
/* Returns here. */
|
||||
"testret:\n"
|
||||
/* Check return registers. */
|
||||
"cghi %r2, 0x1252\n"
|
||||
"jne testerr\n"
|
||||
/* Check callee-saved registers. */
|
||||
"cghi %r6, 0x1236\n"
|
||||
"jne testerr\n"
|
||||
"cghi %r7, 0x1237\n"
|
||||
"jne testerr\n"
|
||||
"cghi %r8, 0x1238\n"
|
||||
"jne testerr\n"
|
||||
"cghi %r9, 0x1239\n"
|
||||
"jne testerr\n"
|
||||
"cghi %r10, 0x123a\n"
|
||||
"jne testerr\n"
|
||||
"cghi %r11, 0x123b\n"
|
||||
"jne testerr\n"
|
||||
"cghi %r12, 0x123c\n"
|
||||
"jne testerr\n"
|
||||
"cghi %r13, 0x123d\n"
|
||||
"jne testerr\n"
|
||||
/* Return. */
|
||||
"lmg %r6, %r15, 0xd8(%r15)\n"
|
||||
"br %r14\n"
|
||||
|
||||
/* Parameters block. */
|
||||
".section .data\n"
|
||||
".align 8\n"
|
||||
"testparams:\n"
|
||||
".quad 160\n"
|
||||
".quad 8\n"
|
||||
".quad testinner-testparams\n"
|
||||
".text\n"
|
||||
);
|
||||
|
||||
#else
|
||||
|
||||
asm(
|
||||
".global test\n"
|
||||
"test:\n"
|
||||
".type test, @function\n"
|
||||
/* Save registers. */
|
||||
"stm %r6, %r15, 0x18(%r15)\n"
|
||||
/* Save original sp in a global. */
|
||||
"larl %r1, orig_r15\n"
|
||||
"st %r15, 0(%r1)\n"
|
||||
/* Make a stack frame. */
|
||||
"ahi %r15, -0x68\n"
|
||||
/* A stack parameter. */
|
||||
"lhi %r1, 0x1240\n"
|
||||
"st %r1, 0x60(%r15)\n"
|
||||
"lhi %r1, 0x1241\n"
|
||||
"st %r1, 0x64(%r15)\n"
|
||||
/* Registers. */
|
||||
"lhi %r0, 0x1230\n"
|
||||
"lhi %r2, 0x1232\n"
|
||||
"lhi %r3, 0x1233\n"
|
||||
"lhi %r4, 0x1234\n"
|
||||
"lhi %r5, 0x1235\n"
|
||||
"lhi %r6, 0x1236\n"
|
||||
"lhi %r7, 0x1237\n"
|
||||
"lhi %r8, 0x1238\n"
|
||||
"lhi %r9, 0x1239\n"
|
||||
"lhi %r10, 0x123a\n"
|
||||
"lhi %r11, 0x123b\n"
|
||||
"lhi %r12, 0x123c\n"
|
||||
"lhi %r13, 0x123d\n"
|
||||
/* Fake return address. */
|
||||
"larl %r14, testret\n"
|
||||
/* Call morestack. */
|
||||
"larl %r1, testparams\n"
|
||||
"jg __morestack\n"
|
||||
|
||||
/* Entry point. */
|
||||
"testinner:\n"
|
||||
/* Check registers. */
|
||||
"chi %r0, 0x1230\n"
|
||||
"jne testerr\n"
|
||||
"chi %r2, 0x1232\n"
|
||||
"jne testerr\n"
|
||||
"chi %r3, 0x1233\n"
|
||||
"jne testerr\n"
|
||||
"chi %r4, 0x1234\n"
|
||||
"jne testerr\n"
|
||||
"chi %r5, 0x1235\n"
|
||||
"jne testerr\n"
|
||||
"chi %r6, 0x1236\n"
|
||||
"jne testerr\n"
|
||||
/* Check stack param. */
|
||||
"l %r0, 0x60(%r15)\n"
|
||||
"chi %r0, 0x1240\n"
|
||||
"jne testerr\n"
|
||||
"l %r0, 0x64(%r15)\n"
|
||||
"chi %r0, 0x1241\n"
|
||||
"jne testerr\n"
|
||||
/* Check argument pointer. */
|
||||
"ahi %r1, 8\n"
|
||||
"larl %r2, orig_r15\n"
|
||||
"c %r1, 0(%r2)\n"
|
||||
"jne testerr\n"
|
||||
/* Modify volatile registers. */
|
||||
"lhi %r0, 0x1250\n"
|
||||
"lhi %r1, 0x1251\n"
|
||||
"lhi %r2, 0x1252\n"
|
||||
"lhi %r3, 0x1253\n"
|
||||
"lhi %r4, 0x1254\n"
|
||||
"lhi %r5, 0x1255\n"
|
||||
/* Return. */
|
||||
"br %r14\n"
|
||||
|
||||
/* Returns here. */
|
||||
"testret:\n"
|
||||
/* Check return registers. */
|
||||
"chi %r2, 0x1252\n"
|
||||
"jne testerr\n"
|
||||
"chi %r3, 0x1253\n"
|
||||
"jne testerr\n"
|
||||
/* Check callee-saved registers. */
|
||||
"chi %r6, 0x1236\n"
|
||||
"jne testerr\n"
|
||||
"chi %r7, 0x1237\n"
|
||||
"jne testerr\n"
|
||||
"chi %r8, 0x1238\n"
|
||||
"jne testerr\n"
|
||||
"chi %r9, 0x1239\n"
|
||||
"jne testerr\n"
|
||||
"chi %r10, 0x123a\n"
|
||||
"jne testerr\n"
|
||||
"chi %r11, 0x123b\n"
|
||||
"jne testerr\n"
|
||||
"chi %r12, 0x123c\n"
|
||||
"jne testerr\n"
|
||||
"chi %r13, 0x123d\n"
|
||||
"jne testerr\n"
|
||||
/* Return. */
|
||||
"lm %r6, %r15, 0x80(%r15)\n"
|
||||
"br %r14\n"
|
||||
|
||||
/* Parameters block. */
|
||||
".section .data\n"
|
||||
".align 4\n"
|
||||
"testparams:\n"
|
||||
".long 96\n"
|
||||
".long 8\n"
|
||||
".long testinner-testparams\n"
|
||||
".text\n"
|
||||
);
|
||||
|
||||
#endif
|
||||
|
||||
_Noreturn void testerr (void) {
|
||||
exit(1);
|
||||
}
|
||||
|
||||
extern void test (void);
|
||||
|
||||
int main (void) {
|
||||
test();
|
||||
/* Now try again, with huge stack frame requested - to exercise
|
||||
both paths in __morestack (new allocation needed or not). */
|
||||
testparams[0] = 1000000;
|
||||
test();
|
||||
return 0;
|
||||
}
|
||||
Loading…
x
Reference in New Issue
Block a user