* gdb.asm/arm.inc: New file.

* gdb.asm/asm-source.exp: Add arm targets.
	* gdb.asm/configure.in: Ditto.
	* gdb.asm/configure: Recreated from configure.in.

gdb/testsuite/ChangeLog

@@ -1,3 +1,10 @@
+2001-12-20  Corinna Vinschen  <vinschen@redhat.com>
+
+	* gdb.asm/arm.inc: New file.
+	* gdb.asm/asm-source.exp: Add arm targets.
+	* gdb.asm/configure.in: Ditto.
+	* gdb.asm/configure: Recreated from configure.in.
+
 Thu Dec 20 09:54:36 2001  Jeffrey A Law  (law@redhat.com)
 
 	* gdb.c++/templates.exp: Use "hppa64-*-*", not "hppa2.0w-*-*"

gdb/testsuite/gdb.asm/arm.inc

@@ -0,0 +1,34 @@
+	comment "subroutine prologue"
+	.macro gdbasm_enter
+	mov ip, sp
+	stmdb sp!, {fp, ip, lr, pc}
+	sub fp, ip, #4
+	.endm
+
+	comment "subroutine epilogue"
+	.macro gdbasm_leave
+	ldmea fp, {fp, sp, pc}
+	.endm
+
+	.macro gdbasm_call subr
+	bl \subr
+	.endm
+
+	.macro gdbasm_several_nops
+	nop
+	nop
+	nop
+	nop
+	.endm
+
+	comment "exit (0)"
+	.macro gdbasm_exit0
+	mov r0, #0
+	swi 0x00123456
+	.endm
+
+	comment "crt0 startup"
+	.macro gdbasm_startup
+	mov sp, #0
+	.endm
+

gdb/testsuite/gdb.asm/asm-source.exp

@@ -35,6 +35,12 @@ set asm-arch ""
 set asm-flags ""
 set link-flags ""
 
+if [istarget "*arm-*-*"] then {
+    set asm-arch arm
+}
+if [istarget "xscale-*-*"] then {
+    set asm-arch arm
+}
 if [istarget "d10v-*-*"] then {
     set asm-arch d10v
 }

gdb/testsuite/gdb.asm/configure

@@ -635,6 +635,8 @@ test "$host_alias" != "$target_alias" &&
 
 archinc=common.inc
 case ${target} in
+*arm-*-*) archinc=arm.inc ;;
+xscale-*-*) archinc=arm.inc ;;
 d10v-*-*) archinc=d10v.inc ;;
 s390-*-*) archinc=s390.inc ;;
 i[3456]86*) archinc=i386.inc ;;

gdb/testsuite/gdb.asm/configure.in

@@ -15,6 +15,8 @@ AC_CANONICAL_SYSTEM
 dnl In default case we need to link with some file so use common.inc.
 archinc=common.inc
 case ${target} in
+*arm-*-*) archinc=arm.inc ;;
+xscale-*-*) archinc=arm.inc ;;
 d10v-*-*) archinc=d10v.inc ;;
 s390-*-*) archinc=s390.inc ;;
 i[[3456]]86*) archinc=i386.inc ;;