* gdb.base/nodebug.exp: Test ability to call a function and pass

	it a string (even with no debugging info).

2 files changed, 29 insertions, 18 deletions

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 060e544..e17c5f1 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,5 +1,8 @@
 Tue Mar 14 07:39:19 1995  Jim Kingdon  (kingdon@lioth.cygnus.com)
 
+	* gdb.base/nodebug.exp: Test ability to call a function and pass
+	it a string (even with no debugging info).
+
 	* gdb.base/printcmds.exp (test_integer_literals_rejected): Change
 	"p '\'", which is the same as "p ''" once tcl gets done with
 	quoting, to "p '\\'", which I suspect is what is intended (one
diff --git a/gdb/testsuite/gdb.base/nodebug.exp b/gdb/testsuite/gdb.base/nodebug.exp
index b8fc306..dd84562 100644
--- a/gdb/testsuite/gdb.base/nodebug.exp
+++ b/gdb/testsuite/gdb.base/nodebug.exp
@@ -32,31 +32,34 @@ if ![file exists $binfile] then {
 	# being told they are ints or functions returning int like old
 	# versions of gdb used to do.
 
-	# 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*" "*-*-ultrix*"
+	# On alpha (and 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.  Irix5, even though
+	# it is ELF, counts as "ecoff" because gcc puts out a .mdebug
+	# section even without -g.  Personally, I think that is pretty
+	# dubious, but maybe dbx requires it.
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix*" "*-*-ultrix*"
 	gdb_test "p top" \
 	    "{<(text variable|function), no debug info>} \[0-9a-fx]* <top>"
-	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*" "*-*-ultrix*"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix*" "*-*-ultrix*"
 	gdb_test "whatis top" "<(text variable|function), no debug info>"
-	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*" "*-*-ultrix*"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix*" "*-*-ultrix*"
 	gdb_test "ptype top" "int \\(\\)"
 
-	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*" "*-*-ultrix*"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix*" "*-*-ultrix*"
 	gdb_test "p middle" \
 	    "{<(text variable|function), no debug info>} \[0-9a-fx]* <middle>"
-	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*" "*-*-ultrix*"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix*" "*-*-ultrix*"
 	gdb_test "whatis middle" "<(text variable|function), no debug info>"
-	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*" "*-*-ultrix*"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix*" "*-*-ultrix*"
 	gdb_test "ptype middle" "int \\(\\)"
 
 	gdb_test "p dataglobal" "= 3"
-	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*" "*-*-ultrix*"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix*" "*-*-ultrix*"
 	gdb_test "whatis dataglobal" \
 	    "<(data variable|variable), no debug info>"
-	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*" "*-*-ultrix*"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix*" "*-*-ultrix*"
 	gdb_test "ptype dataglobal" "<(data variable|variable), no debug info>"
 
 	# The only symbol xcoff puts out for statics is for the TOC entry.
@@ -65,30 +68,35 @@ if ![file exists $binfile] then {
 	setup_xfail "rs6000*-*-aix*"
 	gdb_test "p datalocal" "= 4"
 	setup_xfail "rs6000*-*-aix*"
-	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*" "*-*-ultrix*"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix*" "*-*-ultrix*"
 	gdb_test "whatis datalocal" "<(data variable|variable), no debug info>"
 	setup_xfail "rs6000*-*-aix*"
-	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*" "*-*-ultrix*"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix*" "*-*-ultrix*"
 	gdb_test "ptype datalocal" "<(data variable|variable), no debug info>"
 
 	gdb_test "p bssglobal" "= 0"
-	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*" "*-*-ultrix*"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix*" "*-*-ultrix*"
 	gdb_test "whatis bssglobal" "<(data variable|variable), no debug info>"
-	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*" "*-*-ultrix*"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix*" "*-*-ultrix*"
 	gdb_test "ptype bssglobal" "<(data variable|variable), no debug info>"
 
 	setup_xfail "rs6000*-*-aix*"
 	gdb_test "p bsslocal" "= 0"
 	setup_xfail "rs6000*-*-aix*"
-	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*" "*-*-ultrix*"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix*" "*-*-ultrix*"
 	gdb_test "whatis bsslocal" "<(data variable|variable), no debug info>"
 	setup_xfail "rs6000*-*-aix*"
-	setup_xfail "alpha*-*-osf*" "mips*-*-irix4*" "*-*-ultrix*"
+	setup_xfail "alpha*-*-osf*" "mips*-*-irix*" "*-*-ultrix*"
 	gdb_test "ptype bsslocal" "<(data variable|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
 	gdb_test "backtrace" "#0.*inner.*#1.*#2.*top.*#3.*main"
+
+	# This test is not as obscure as it might look.  `p getenv ("TERM")'
+	# is a real-world example, at least on many systems.
+	test_print_accept {p/c array_index("abcdef",2)} "99 'c'"
+
 	# Now, try that we can give names of file-local symbols which happen
 	# to be unique, and have it still work
 	if [runto middle] then {