diff options
author | Rob Savoye <rob@cygnus> | 1993-11-03 18:28:22 +0000 |
---|---|---|
committer | Rob Savoye <rob@cygnus> | 1993-11-03 18:28:22 +0000 |
commit | 85174909de350939a5d474ef205dba85fc6e7f7f (patch) | |
tree | 92617061378c0220403e0f48e3eab2c3a9edb70d /gdb/testsuite/gdb.stabs | |
parent | 73e1e09b8e83ad6bbfb051bbbd8c5094c5f9c7b8 (diff) | |
download | gdb-85174909de350939a5d474ef205dba85fc6e7f7f.zip gdb-85174909de350939a5d474ef205dba85fc6e7f7f.tar.gz gdb-85174909de350939a5d474ef205dba85fc6e7f7f.tar.bz2 |
* lib/gdb.exp: Transform tool name.
* gdb.t*/*.exp: Change error to perror so it works with DejaGnu
1.1's new error handling system.
Diffstat (limited to 'gdb/testsuite/gdb.stabs')
-rw-r--r-- | gdb/testsuite/gdb.stabs/weird.exp | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/gdb/testsuite/gdb.stabs/weird.exp b/gdb/testsuite/gdb.stabs/weird.exp index 8e05ca2..5f46c77 100644 --- a/gdb/testsuite/gdb.stabs/weird.exp +++ b/gdb/testsuite/gdb.stabs/weird.exp @@ -19,6 +19,25 @@ proc do_tests {} { clear_xfail "rs*-*-aix*" gdb_test "ptype red" "type = enum \{red, green, blue\}" "ptype unnamed enum" + # Mips/alpha targets that use gcc with mips-tfile put out the stabs + # assembler directives embedded in comments. If the assembler + # file is then processed with native cc, all stabs directives + # will be lost. + # Skip the rest of the stabs tests for this case. + send "ptype inttype\n" + expect { + -re "^ptype inttype\r*\ntype = inttype.*$prompt $" { + pass "stabs found" + } + -re ".*$prompt $" { + setup_xfail "mips-*-*" + setup_xfail "alpha-*-*" + fail "stabs not found" + return + } + default { fail "checking for stabs" } + } + print_weird_var var0 print_weird_var var1 print_weird_var var2 @@ -244,7 +263,7 @@ if ![file exists $binfile] then { fail "Errors reading weird.o" } timeout { - error "couldn't load $binfile into $GDB (timed out)." + perror "couldn't load $binfile into $GDB (timed out)." return -1 } eof { fail "(eof) cannot read weird.o" } |