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

	it a string (even with no debugging info).

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 060e5441e1a7a73baae623f2e7d1f89966e0f3c6..e17c5f157f596dcba2289802bf5d7f3429e5e954 100644 (file)
--- 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 b8fc3060684ef70a62e5254ebcb16f54dc24f953..dd8456208cc12f6764b4404250d84320cf084c64 100644 (file)
--- 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 {