From fcb869f1f2e4ec953b9ec86d3bf022702610887f Mon Sep 17 00:00:00 2001 From: Jim Kingdon Date: Tue, 14 Mar 1995 18:06:26 +0000 Subject: [PATCH] * gdb.base/nodebug.exp: Test ability to call a function and pass it a string (even with no debugging info). --- gdb/testsuite/ChangeLog | 3 ++ gdb/testsuite/gdb.base/nodebug.exp | 44 ++++++++++++++++++------------ 2 files changed, 29 insertions(+), 18 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 060e5441e1a..e17c5f157f5 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 b8fc3060684..dd8456208cc 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]* " - 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]* " - 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 { -- 2.30.2