diff options
author | Jim Blandy <jimb@codesourcery.com> | 2003-05-07 21:52:53 +0000 |
---|---|---|
committer | Jim Blandy <jimb@codesourcery.com> | 2003-05-07 21:52:53 +0000 |
commit | 09bf6082f5ff04bb271e9d6904a29df03027ea37 (patch) | |
tree | dcb76505d83856b82a3bc5e22dd8babc11aca173 /gdb | |
parent | be375bae059c965706281375c38c638438640cda (diff) | |
download | gdb-09bf6082f5ff04bb271e9d6904a29df03027ea37.zip gdb-09bf6082f5ff04bb271e9d6904a29df03027ea37.tar.gz gdb-09bf6082f5ff04bb271e9d6904a29df03027ea37.tar.bz2 |
Add support for assembly source testing on the s390x.
* gdb.asm/asm-source.exp: Add a case for the s390x-*-*
architecture.
* gdb.asm/s390x.inc: New file.
Diffstat (limited to 'gdb')
-rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gdb/testsuite/gdb.asm/asm-source.exp | 3 | ||||
-rw-r--r-- | gdb/testsuite/gdb.asm/s390x.inc | 68 |
3 files changed, 76 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index c2b3631..c53111d 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2003-05-07 Jim Blandy <jimb@redhat.com> + Add support for assembly source testing on the s390x. + * gdb.asm/asm-source.exp: Add a case for the s390x-*-* + architecture. + * gdb.asm/s390x.inc: New file. + * gdb.asm/asm-source.exp: Use a 'switch -glob' statement, not a succession of 'if' statements. diff --git a/gdb/testsuite/gdb.asm/asm-source.exp b/gdb/testsuite/gdb.asm/asm-source.exp index 8194f9e..e4aa7be 100644 --- a/gdb/testsuite/gdb.asm/asm-source.exp +++ b/gdb/testsuite/gdb.asm/asm-source.exp @@ -48,6 +48,9 @@ switch -glob -- [istarget] { "s390-*-*" { set asm-arch s390 } + "s390x-*-*" { + set asm-arch s390x + } "x86_64-*-*" { set asm-arch x86_64 set asm-flags "-gdwarf2 -I${srcdir}/${subdir} -I${objdir}/${subdir}" diff --git a/gdb/testsuite/gdb.asm/s390x.inc b/gdb/testsuite/gdb.asm/s390x.inc new file mode 100644 index 0000000..4e5bf2e --- /dev/null +++ b/gdb/testsuite/gdb.asm/s390x.inc @@ -0,0 +1,68 @@ +### entry point code + .macro gdbasm_startup + + # Align the stack pointer to an 8-byte boundary. + lghi %r0,-16 + ngr %r15,%r0 + + # Reserve space for the standard stack frame: + # back chain, and space for the callee to save its registers. + aghi %r15,-168 + + # Zero this frame's back chain pointer. + xc 0(8,%r15),0(%r15) + .endm + + +### Call a function. + .macro gdbasm_call subr + brasl %r14, \subr + .endm + + +### Exit with a zero status. + .macro gdbasm_exit0 + lghi %r2, 0 + svc 1 + .endm + +### Standard subroutine prologue. + .macro gdbasm_enter + + # Save all the callee-saves registers. What the heck. + stmg %r6,%r15,48(%r15) + + # Allocate the stack frame, and write the back chain pointer. + # Keep the original SP in %r11. + lgr %r11,%r15 + aghi %r15,-168 + stg %r11,0(%r15) + .endm + + +### Standard subroutine epilogue. + .macro gdbasm_leave + + # Restore all our registers. This also pops the frame, and + # restores our return address. + lmg %r6,%r15,216(%r15) + + # Jump to the return address. + br %r14 + + .endm + +### Several nops. + .macro gdbasm_several_nops + lr %r0, %r0 + lr %r0, %r0 + lr %r0, %r0 + lr %r0, %r0 + .endm + +### Declare an `int' variable. + .macro gdbasm_datavar name value + .data +\name: + .long \value + .endm |