From c1d88655bbf33f050943125801b2bdc5d1a73b8d Mon Sep 17 00:00:00 2001
From: Ulrich Weigand <uweigand@de.ibm.com>
Date: Wed, 22 Nov 2006 17:19:52 +0000
Subject: 	* gdb.asm/asm-source.exp: Add "spu*-*-*" target. 	*
 gdb.asm/spu.inc: New file. 	* gdb.base/term.exp: Disable if [target_info
 exists noargs]. 	* gdb.gdb/complaints.exp: Disable if ![isnative]. 
 * gdb.gdb/selftest.exp: Likewise. 	* gdb.gdb/observer.exp: Likewise. 
 * gdb.gdb/xfullpath.exp: Likewise. 	* gdb.base/attach.exp: Disable on SPU
 target. 	* gdb.cp/bs145503.exp: Likewise. 	*
 gdb.cp/exception.exp: Likewise. 	* gdb.cp/userdef.exp: Likewise.

---
 gdb/testsuite/ChangeLog              | 14 ++++++++++++
 gdb/testsuite/gdb.asm/asm-source.exp |  5 +++++
 gdb/testsuite/gdb.asm/spu.inc        | 42 ++++++++++++++++++++++++++++++++++++
 gdb/testsuite/gdb.base/attach.exp    |  5 +++++
 gdb/testsuite/gdb.base/term.exp      |  5 +++++
 gdb/testsuite/gdb.cp/bs15503.exp     |  5 +++++
 gdb/testsuite/gdb.cp/exception.exp   |  5 +++++
 gdb/testsuite/gdb.cp/userdef.exp     |  5 +++++
 gdb/testsuite/gdb.gdb/complaints.exp |  2 +-
 gdb/testsuite/gdb.gdb/observer.exp   |  2 +-
 gdb/testsuite/gdb.gdb/selftest.exp   |  2 +-
 gdb/testsuite/gdb.gdb/xfullpath.exp  |  2 +-
 12 files changed, 90 insertions(+), 4 deletions(-)
 create mode 100644 gdb/testsuite/gdb.asm/spu.inc

(limited to 'gdb/testsuite')

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 4cf0816..68b7c95 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,17 @@
+2006-11-22  Ulrich Weigand  <Ulrich.Weigand@de.ibm.com>
+
+	* gdb.asm/asm-source.exp: Add "spu*-*-*" target.
+	* gdb.asm/spu.inc: New file.
+	* gdb.base/term.exp: Disable if [target_info exists noargs].
+	* gdb.gdb/complaints.exp: Disable if ![isnative].
+	* gdb.gdb/selftest.exp: Likewise.
+	* gdb.gdb/observer.exp: Likewise.
+	* gdb.gdb/xfullpath.exp: Likewise.
+	* gdb.base/attach.exp: Disable on SPU target.
+	* gdb.cp/bs145503.exp: Likewise.
+	* gdb.cp/exception.exp: Likewise.
+	* gdb.cp/userdef.exp: Likewise.
+
 2006-11-22  Daniel Jacobowitz  <dan@codesourcery.com>
 
 	* gdb.stabs/weird.exp (print_weird_var): Don't send extra \n.
diff --git a/gdb/testsuite/gdb.asm/asm-source.exp b/gdb/testsuite/gdb.asm/asm-source.exp
index 2de43c9..3e6a4c7 100644
--- a/gdb/testsuite/gdb.asm/asm-source.exp
+++ b/gdb/testsuite/gdb.asm/asm-source.exp
@@ -120,6 +120,11 @@ switch -glob -- [istarget] {
         set asm-flags "-xarch=v9 -I${srcdir}/${subdir} -I${objdir}/${subdir}"
 	set debug-flags "-gdwarf-2"
     }
+    "spu*-*-*" {
+       set asm-arch spu
+       set asm-flags "-I${srcdir}/${subdir} -I${objdir}/${subdir} --no-warn"
+       set debug-flags "-gdwarf-2"
+    }
     "xstormy16-*-*" {
         set asm-arch xstormy16
 	set debug-flags "-gdwarf-2"
diff --git a/gdb/testsuite/gdb.asm/spu.inc b/gdb/testsuite/gdb.asm/spu.inc
new file mode 100644
index 0000000..aabceb8
--- /dev/null
+++ b/gdb/testsuite/gdb.asm/spu.inc
@@ -0,0 +1,42 @@
+	comment "subroutine prologue"
+	.macro gdbasm_enter
+	stqd    $lr, 16($sp)
+	stqd    $sp, -32($sp)
+	ai      $sp, $sp, -32
+	.endm
+
+	comment "subroutine epilogue"
+	.macro gdbasm_leave
+	ai	$sp, $sp, 32
+	lqd     $lr, 16($sp)
+	bi	$lr	
+	.endm
+
+	.macro gdbasm_call subr
+	brsl	$lr, \subr
+	.endm
+
+	.macro gdbasm_several_nops
+	nop
+	nop
+	nop
+	nop
+	.endm
+
+	comment "exit (0)"
+	.macro gdbasm_exit0
+	stop	0x2000
+	stop 
+	stop 
+	stop 
+	.endm
+
+	comment "startup"
+	.macro gdbasm_startup
+	il	$0, 0
+	ila	$sp, 16368
+	stqd	$0, 0($sp)
+	stqd	$sp, -32($sp)
+	ai	$sp, $sp, -32
+	stqd	$0, 16($sp)
+	.endm
diff --git a/gdb/testsuite/gdb.base/attach.exp b/gdb/testsuite/gdb.base/attach.exp
index 8599727..8d8d0a8 100644
--- a/gdb/testsuite/gdb.base/attach.exp
+++ b/gdb/testsuite/gdb.base/attach.exp
@@ -32,6 +32,11 @@ if { [istarget "hppa*-*-hpux*"] } {
     return 0
 }
 
+# On SPU, this test currently fails because "sleep" is not supported.
+if { [istarget "spu*-*-*"] } {
+	return 0
+}
+
 # are we on a target board
 if [is_remote target] then {
     return 0
diff --git a/gdb/testsuite/gdb.base/term.exp b/gdb/testsuite/gdb.base/term.exp
index 0fd1cc0..5a85a35 100644
--- a/gdb/testsuite/gdb.base/term.exp
+++ b/gdb/testsuite/gdb.base/term.exp
@@ -29,6 +29,11 @@ if [is_remote target] then {
     continue
 }
 
+if [target_info exists noargs] then {
+    verbose "Skipping term.exp because of noargs."
+    return
+}
+
 gdb_start
 
 #
diff --git a/gdb/testsuite/gdb.cp/bs15503.exp b/gdb/testsuite/gdb.cp/bs15503.exp
index aa11ada..fe68f91 100644
--- a/gdb/testsuite/gdb.cp/bs15503.exp
+++ b/gdb/testsuite/gdb.cp/bs15503.exp
@@ -24,6 +24,11 @@ if $tracelevel {
 
 if { [skip_cplus_tests] } { continue }
 
+# On SPU this test fails because the executable exceeds local storage size.
+if { [istarget "spu*-*-*"] } {
+        return 0
+}
+
 set testfile "bs15503"
 set srcfile ${testfile}.cc
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.cp/exception.exp b/gdb/testsuite/gdb.cp/exception.exp
index 655d390..a56c8fa 100644
--- a/gdb/testsuite/gdb.cp/exception.exp
+++ b/gdb/testsuite/gdb.cp/exception.exp
@@ -44,6 +44,11 @@ if $tracelevel then {
 
 if { [skip_cplus_tests] } { continue }
 
+# On SPU this test fails because the executable exceeds local storage size.
+if { [istarget "spu*-*-*"] } {
+        return 0
+}
+
 set testfile "exception"
 set srcfile ${testfile}.cc
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.cp/userdef.exp b/gdb/testsuite/gdb.cp/userdef.exp
index 782045e..d406661 100644
--- a/gdb/testsuite/gdb.cp/userdef.exp
+++ b/gdb/testsuite/gdb.cp/userdef.exp
@@ -27,6 +27,11 @@ if $tracelevel then {
 
 if { [skip_cplus_tests] } { continue }
 
+# On SPU this test fails because the executable exceeds local storage size.
+if { [istarget "spu*-*-*"] } {
+        return 0
+}
+
 set testfile "userdef"
 set srcfile ${testfile}.cc
 set binfile ${objdir}/${subdir}/${testfile}
diff --git a/gdb/testsuite/gdb.gdb/complaints.exp b/gdb/testsuite/gdb.gdb/complaints.exp
index 2dd1508..2cf142a 100644
--- a/gdb/testsuite/gdb.gdb/complaints.exp
+++ b/gdb/testsuite/gdb.gdb/complaints.exp
@@ -27,7 +27,7 @@ set prms_id 0
 set bug_id 0
 
 # are we on a target board
-if [is_remote target] {
+if { [is_remote target] || ![isnative] } then {
     return
 }
 
diff --git a/gdb/testsuite/gdb.gdb/observer.exp b/gdb/testsuite/gdb.gdb/observer.exp
index b6d43b57..5b3a798 100644
--- a/gdb/testsuite/gdb.gdb/observer.exp
+++ b/gdb/testsuite/gdb.gdb/observer.exp
@@ -25,7 +25,7 @@ set prms_id 0
 set bug_id 0
 
 # are we on a target board
-if [is_remote target] {
+if { [is_remote target] || ![isnative] } then {
     return
 }
 
diff --git a/gdb/testsuite/gdb.gdb/selftest.exp b/gdb/testsuite/gdb.gdb/selftest.exp
index 4a1ef0d..201bd38 100644
--- a/gdb/testsuite/gdb.gdb/selftest.exp
+++ b/gdb/testsuite/gdb.gdb/selftest.exp
@@ -25,7 +25,7 @@ set prms_id 0
 set bug_id 0
 
 # are we on a target board
-if [is_remote target] {
+if { [is_remote target] || ![isnative] } then {
     return
 }
 
diff --git a/gdb/testsuite/gdb.gdb/xfullpath.exp b/gdb/testsuite/gdb.gdb/xfullpath.exp
index 570b311..971a05e 100644
--- a/gdb/testsuite/gdb.gdb/xfullpath.exp
+++ b/gdb/testsuite/gdb.gdb/xfullpath.exp
@@ -26,7 +26,7 @@ set prms_id 0
 set bug_id 0
 
 # are we on a target board
-if [is_remote target] {
+if { [is_remote target] || ![isnative] } then {
     return
 }
 
-- 
cgit v1.1