From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 575 invoked by alias); 1 Dec 2001 01:30:47 -0000 Mailing-List: contact gdb-patches-help@sourceware.cygnus.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sources.redhat.com Received: (qmail 553 invoked from network); 1 Dec 2001 01:30:45 -0000 Received: from unknown (HELO zwingli.cygnus.com) (208.245.165.35) by hostedprojects.ges.redhat.com with SMTP; 1 Dec 2001 01:30:45 -0000 Received: by zwingli.cygnus.com (Postfix, from userid 442) id 9653A5E9D8; Fri, 30 Nov 2001 20:31:49 -0500 (EST) From: Jim Blandy To: gdb-patches@sources.redhat.com Subject: PATCH: S/390: add assembly-language tests Message-Id: <20011201013149.9653A5E9D8@zwingli.cygnus.com> Date: Sun, 25 Nov 2001 09:08:00 -0000 X-SW-Source: 2001-11/txt/msg00427.txt.bz2 2001-11-30 Jim Blandy Add assembly-source tests for s390-ibm-linux. * gdb.asm/s390.inc: New file. * gdb.asm/configure.in, gdb.asm/asm-source.exp: Add clauses for the S/390 architecture. * gdb.asm/configure: Regenerated. Index: gdb/testsuite/gdb.asm/asm-source.exp =================================================================== RCS file: /cvs/src/src/gdb/testsuite/gdb.asm/asm-source.exp,v retrieving revision 1.9 diff -c -r1.9 asm-source.exp *** gdb/testsuite/gdb.asm/asm-source.exp 2001/11/27 01:29:03 1.9 --- gdb/testsuite/gdb.asm/asm-source.exp 2001/12/01 01:11:03 *************** *** 38,43 **** --- 38,46 ---- if [istarget "d10v-*-*"] then { set asm-arch d10v } + if [istarget "s390-*-*"] then { + set asm-arch s390 + } if [istarget "i\[3456\]86-*-*"] then { set asm-arch i386 } Index: gdb/testsuite/gdb.asm/configure.in =================================================================== RCS file: /cvs/src/src/gdb/testsuite/gdb.asm/configure.in,v retrieving revision 1.5 diff -c -r1.5 configure.in *** gdb/testsuite/gdb.asm/configure.in 2001/11/27 01:28:35 1.5 --- gdb/testsuite/gdb.asm/configure.in 2001/12/01 01:11:04 *************** *** 16,21 **** --- 16,22 ---- archinc=common.inc case ${target} in d10v-*-*) archinc=d10v.inc ;; + s390-*-*) archinc=s390.inc ;; i[[3456]]86*) archinc=i386.inc ;; m32r*-*) archinc=m32r.inc ;; sparc-*-*) archinc=sparc.inc ;; Index: gdb/testsuite/gdb.asm/s390.inc =================================================================== RCS file: s390.inc diff -N s390.inc *** gdb/testsuite/gdb.asm/s390.inc Tue May 5 13:32:27 1998 --- gdb/testsuite/gdb.asm/s390.inc Fri Nov 30 17:11:04 2001 *************** *** 0 **** --- 1,68 ---- + ### entry point code + .macro gdbasm_startup + + # Align the stack pointer to an 8-byte boundary. + lhi %r0,-8 + nr %r15,%r0 + + # Reserve space for the standard stack frame: + # back chain, and space for the callee to save its registers. + ahi %r15,-104 + + # Zero this frame's back chain pointer. + xc 0(4,%r15),0(%r15) + .endm + + + ### Call a function. + .macro gdbasm_call subr + + # Put the address of the constant in %r1, load the constant + # (SUBR's address), and jump to it. + bras %r1, .Lafterconst\@ + .long \subr + .Lafterconst\@: + l %r1,0(%r1) + basr %r14,%r1 + .endm + + + ### Exit with a zero status. + .macro gdbasm_exit0 + lhi %r2, 0 + svc 1 + .endm + + ### Standard subroutine prologue. + .macro gdbasm_enter + + # Save all the callee-saves registers. What the heck. + stm %r6,%r15,24(%r15) + + # Allocate the stack frame, and write the back chain pointer. + # Keep the original SP in %r11. + lr %r1,%r15 + ahi %r15,-96 + st %r1,0(%r15) + .endm + + + ### Standard subroutine epilogue. + .macro gdbasm_leave + + # Restore all our registers. This also pops the frame, and + # restores our return address. + lm %r6,%r15,120(%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 From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jim Blandy To: gdb-patches@sources.redhat.com Subject: PATCH: S/390: add assembly-language tests Date: Fri, 30 Nov 2001 17:30:00 -0000 Message-ID: <20011201013149.9653A5E9D8@zwingli.cygnus.com> X-SW-Source: 2001-11/msg00642.html Message-ID: <20011130173000.S7K25csISYbmJXUB5QmceEgXH89mvpxQqcpf9Dx5N7A@z> 2001-11-30 Jim Blandy Add assembly-source tests for s390-ibm-linux. * gdb.asm/s390.inc: New file. * gdb.asm/configure.in, gdb.asm/asm-source.exp: Add clauses for the S/390 architecture. * gdb.asm/configure: Regenerated. Index: gdb/testsuite/gdb.asm/asm-source.exp =================================================================== RCS file: /cvs/src/src/gdb/testsuite/gdb.asm/asm-source.exp,v retrieving revision 1.9 diff -c -r1.9 asm-source.exp *** gdb/testsuite/gdb.asm/asm-source.exp 2001/11/27 01:29:03 1.9 --- gdb/testsuite/gdb.asm/asm-source.exp 2001/12/01 01:11:03 *************** *** 38,43 **** --- 38,46 ---- if [istarget "d10v-*-*"] then { set asm-arch d10v } + if [istarget "s390-*-*"] then { + set asm-arch s390 + } if [istarget "i\[3456\]86-*-*"] then { set asm-arch i386 } Index: gdb/testsuite/gdb.asm/configure.in =================================================================== RCS file: /cvs/src/src/gdb/testsuite/gdb.asm/configure.in,v retrieving revision 1.5 diff -c -r1.5 configure.in *** gdb/testsuite/gdb.asm/configure.in 2001/11/27 01:28:35 1.5 --- gdb/testsuite/gdb.asm/configure.in 2001/12/01 01:11:04 *************** *** 16,21 **** --- 16,22 ---- archinc=common.inc case ${target} in d10v-*-*) archinc=d10v.inc ;; + s390-*-*) archinc=s390.inc ;; i[[3456]]86*) archinc=i386.inc ;; m32r*-*) archinc=m32r.inc ;; sparc-*-*) archinc=sparc.inc ;; Index: gdb/testsuite/gdb.asm/s390.inc =================================================================== RCS file: s390.inc diff -N s390.inc *** gdb/testsuite/gdb.asm/s390.inc Tue May 5 13:32:27 1998 --- gdb/testsuite/gdb.asm/s390.inc Fri Nov 30 17:11:04 2001 *************** *** 0 **** --- 1,68 ---- + ### entry point code + .macro gdbasm_startup + + # Align the stack pointer to an 8-byte boundary. + lhi %r0,-8 + nr %r15,%r0 + + # Reserve space for the standard stack frame: + # back chain, and space for the callee to save its registers. + ahi %r15,-104 + + # Zero this frame's back chain pointer. + xc 0(4,%r15),0(%r15) + .endm + + + ### Call a function. + .macro gdbasm_call subr + + # Put the address of the constant in %r1, load the constant + # (SUBR's address), and jump to it. + bras %r1, .Lafterconst\@ + .long \subr + .Lafterconst\@: + l %r1,0(%r1) + basr %r14,%r1 + .endm + + + ### Exit with a zero status. + .macro gdbasm_exit0 + lhi %r2, 0 + svc 1 + .endm + + ### Standard subroutine prologue. + .macro gdbasm_enter + + # Save all the callee-saves registers. What the heck. + stm %r6,%r15,24(%r15) + + # Allocate the stack frame, and write the back chain pointer. + # Keep the original SP in %r11. + lr %r1,%r15 + ahi %r15,-96 + st %r1,0(%r15) + .endm + + + ### Standard subroutine epilogue. + .macro gdbasm_leave + + # Restore all our registers. This also pops the frame, and + # restores our return address. + lm %r6,%r15,120(%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