Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

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

Browse Source 
it a string (even with no debugging info).
This commit is contained in:
Jim Kingdon
1995-03-14 18:06:26 +00:00
parent e66fa842d0
commit fcb869f1f2
2 changed files with 29 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
gdb/testsuite/ChangeLog
View File

@@ -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

44
gdb/testsuite/gdb.base/nodebug.exp
View File

@@ -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 {