From e1a6b67ab38656fb248681dafb2782956c725e0a Mon Sep 17 00:00:00 2001
From: Jim Kingdon <jkingdon@engr.sgi.com>
Date: Sat, 21 Jan 1995 23:38:43 +0000
Subject: [PATCH] * gdb.base/nodebug.exp: xfail most of the new tests for ecoff
 systems.

---
 gdb/testsuite/ChangeLog            |  4 ++++
 gdb/testsuite/gdb.base/nodebug.exp | 43 +++++++++++++++++++++++++++-----------
 2 files changed, 35 insertions(+), 12 deletions(-)

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 5dfa0c6..b410f1d 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+Sat Jan 21 15:34:52 1995  Jim Kingdon  (kingdon@lioth.cygnus.com)
+
+	* gdb.base/nodebug.exp: xfail most of the new tests for ecoff systems.
+
 Fri Jan 20 12:14:23 1995  Jim Kingdon  (kingdon@lioth.cygnus.com)
 
 	* gdb.c++/classes.exp, gdb.c++/cplusfuncs.exp,
diff --git a/gdb/testsuite/gdb.base/nodebug.exp b/gdb/testsuite/gdb.base/nodebug.exp
index 52f6bd1..5939c4a 100644
--- a/gdb/testsuite/gdb.base/nodebug.exp
+++ b/gdb/testsuite/gdb.base/nodebug.exp
@@ -34,29 +34,48 @@ if ![file exists $binfile] then {
 	# being told they are ints or functions returning int like old
 	# versions of gdb used to do.
 
-	gdb_test "p top" "{<text variable without -g>} \[0-9a-fx]* <top>"
-	gdb_test "whatis top" "<text variable without -g>"
+	# On alpha (and presumably other ecoff systems, even stabs in ecoff)
+	# GCC puts out stProc and related symbols which cause GDB to think
+	# it knows the type.  GDB probably could be fixed to do better, but
+	# for now xfail these tests.
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*"
+	gdb_test "p top" "{<text variable, no debug info>} \[0-9a-fx]* <top>"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*"
+	gdb_test "whatis top" "<text variable, no debug info>"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*"
 	gdb_test "ptype top" "int \\(\\)"
 
-	gdb_test "p middle" "{<text variable without -g>} \[0-9a-fx]* <middle>"
-	gdb_test "whatis middle" "<text variable without -g>"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*"
+	gdb_test "p middle" \
+	    "{<text variable, no debug info>} \[0-9a-fx]* <middle>"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*"
+	gdb_test "whatis middle" "<text variable, no debug info>"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*"
 	gdb_test "ptype middle" "int \\(\\)"
 
 	gdb_test "p dataglobal" "= 3"
-	gdb_test "whatis dataglobal" "<data variable without -g>"
-	gdb_test "ptype dataglobal" "<data variable without -g>"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*"
+	gdb_test "whatis dataglobal" "<data variable, no debug info>"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*"
+	gdb_test "ptype dataglobal" "<data variable, no debug info>"
 
 	gdb_test "p datalocal" "= 4"
-	gdb_test "whatis datalocal" "<data variable without -g>"
-	gdb_test "ptype datalocal" "<data variable without -g>"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*"
+	gdb_test "whatis datalocal" "<data variable, no debug info>"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*"
+	gdb_test "ptype datalocal" "<data variable, no debug info>"
 
 	gdb_test "p bssglobal" "= 0"
-	gdb_test "whatis bssglobal" "<data variable without -g>"
-	gdb_test "ptype bssglobal" "<data variable without -g>"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*"
+	gdb_test "whatis bssglobal" "<data variable, no debug info>"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*"
+	gdb_test "ptype bssglobal" "<data variable, no debug info>"
 
 	gdb_test "p bsslocal" "= 0"
-	gdb_test "whatis bsslocal" "<data variable without -g>"
-	gdb_test "ptype bsslocal" "<data variable without -g>"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*"
+	gdb_test "whatis bsslocal" "<data variable, no debug info>"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*"
+	gdb_test "ptype bsslocal" "<data variable, no debug info>"
 
 	gdb_test "backtrace" "#0.*inner.*#1.*middle.*#2.*top.*#3.*main"
 	# Or if that doesn't work, at least hope for the external symbols
-- 
2.7.4