From dada510572401dcbf13efdc21e7c9ceef136534a Mon Sep 17 00:00:00 2001
From: Jeff Law <law@redhat.com>
Date: Thu, 6 Feb 1997 20:58:55 +0000
Subject: [PATCH]         * gdb.base/nodebug.exp: Don't try to do an inferior
 function         call if the target doesn't support them.         *
 gdb.base/printcmds.exp: Likewise.         * gdb.base/setvar.exp: Likewise.   
      * gdb.base/structs.exp: Likewise.         * gdb.c++/templates.exp:
 Likewise.         * gdb.base/ptype.exp: Likewise.  Remove UDI specific stuff.

        * gdb.base/recurse.exp: Enable for the mn10200.

        * configure.in: Do configure gdb.stabs directory for *-*-elf
        targets.
        * configure: Rebuilt.
---
 gdb/testsuite/ChangeLog              | 14 ++++++++++++++
 gdb/testsuite/configure.in           |  1 +
 gdb/testsuite/gdb.base/printcmds.exp | 12 ++++++++++++
 gdb/testsuite/gdb.base/recurse.exp   |  2 +-
 gdb/testsuite/gdb.base/structs.exp   |  6 ++++++
 5 files changed, 34 insertions(+), 1 deletion(-)

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 2e8a09c5052..d85aec9f55e 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,5 +1,19 @@
 Thu Feb  6 12:46:14 1997  Jeffrey A Law  (law@cygnus.com)
 
+	* gdb.base/nodebug.exp: Don't try to do an inferior function
+	call if the target doesn't support them.
+	* gdb.base/printcmds.exp: Likewise.
+	* gdb.base/setvar.exp: Likewise.
+	* gdb.base/structs.exp: Likewise.
+	* gdb.c++/templates.exp: Likewise.
+	* gdb.base/ptype.exp: Likewise.  Remove UDI specific stuff.
+
+	* gdb.base/recurse.exp: Enable for the mn10200.
+
+	* configure.in: Do configure gdb.stabs directory for *-*-elf
+	targets.
+	* configure: Rebuilt.
+
 	* gdb.base/break.exp: Check for gdb,noresults before testing
 	exit status and/or results from the target.
 	* gdb.base/watchpoint.exp, gdb.base/langs.exp: Likewise.
diff --git a/gdb/testsuite/configure.in b/gdb/testsuite/configure.in
index 9026b7119d5..552a07056e1 100644
--- a/gdb/testsuite/configure.in
+++ b/gdb/testsuite/configure.in
@@ -29,6 +29,7 @@ case "${target}" in
 	*-*-lynxos*)	configdirs="${configdirs} ${stabsdirs}" ;;
 	*-sun-*)	configdirs="${configdirs} ${stabsdirs}" ;;
 	hppa*-*-*)	configdirs="${configdirs} ${stabsdirs}" ;;
+	*-*-elf*)	configdirs="${configdirs} ${stabsdirs}" ;;
 	*)		if test "x${with_stabs}" = x"yes" ; then
 			  configdirs="${configdirs} ${stabsdirs}"
 			fi ;;
diff --git a/gdb/testsuite/gdb.base/printcmds.exp b/gdb/testsuite/gdb.base/printcmds.exp
index 024b5e8eadb..f493a710da9 100644
--- a/gdb/testsuite/gdb.base/printcmds.exp
+++ b/gdb/testsuite/gdb.base/printcmds.exp
@@ -929,6 +929,12 @@ proc test_print_string_constants {} {
 
     gdb_test "set print elements 50" ""
 
+    if [target_info exists gdb,cannot_call_functions] {
+	setup_xfail "*-*-*" 2416
+	fail "This target can not call functions"
+	return
+    }
+
     setup_xfail "a29k-*-udi" 2416
     gdb_test "p \"a string\""		" = \"a string\""
     setup_xfail "a29k-*-udi" 2416
@@ -953,6 +959,12 @@ proc test_print_string_constants {} {
 
 proc test_print_array_constants {} {
 
+    if [target_info exists gdb,cannot_call_functions] {
+	setup_xfail "*-*-*" 2416
+	fail "This target can not call functions"
+	return
+    }
+
     setup_xfail "a29k-*-udi" 2416
     gdb_test "print {'a','b','c'}"	" = \"abc\""
     setup_xfail "a29k-*-udi" 2416
diff --git a/gdb/testsuite/gdb.base/recurse.exp b/gdb/testsuite/gdb.base/recurse.exp
index 5372390c05c..68524a9f257 100644
--- a/gdb/testsuite/gdb.base/recurse.exp
+++ b/gdb/testsuite/gdb.base/recurse.exp
@@ -125,7 +125,7 @@ proc recurse_tests {} {
 
 # Only enabled for some targets merely because it has not been tested 
 # elsewhere.
-if {[istarget "sparc*-*-sunos4*"] || [istarget "hppa*-*-bsd*"] || [istarget "sparclet-*-*"] || [istarget "m32r-*-elf"]} then {
+if {[istarget "sparc*-*-sunos4*"] || [istarget "hppa*-*-bsd*"] || [istarget "sparclet-*-*"] || [istarget "m32r-*-elf"] || [istarget "mn10200-*-*"]} then {
 
     # Preserve the old timeout, and set a new one that should be
     # sufficient to avoid timing out during this test.
diff --git a/gdb/testsuite/gdb.base/structs.exp b/gdb/testsuite/gdb.base/structs.exp
index fae0f7136b0..3cdbacffc8e 100644
--- a/gdb/testsuite/gdb.base/structs.exp
+++ b/gdb/testsuite/gdb.base/structs.exp
@@ -133,6 +133,12 @@ send_gdb "set print sevenbit-strings\n" ; expect -re "$gdb_prompt $"
 send_gdb "set print address off\n" ; expect -re "$gdb_prompt $"
 send_gdb "set width 0\n" ; expect -re "$gdb_prompt $"
 
+if [target_info exists gdb,cannot_call_functions] {
+    setup_xfail "*-*-*" 2416
+    fail "This target can not call functions"
+    return 0
+}
+
 if [runto_main] then {
     do_function_calls
 } else {
-- 
2.30.2