diff options
author | Fred Fish <fnf@specifix.com> | 1993-08-26 00:36:15 +0000 |
---|---|---|
committer | Fred Fish <fnf@specifix.com> | 1993-08-26 00:36:15 +0000 |
commit | 653ae28f8a279df351907132b730b3eadcd6b9a5 (patch) | |
tree | adb6311c21d0901f095385d416233cc028472208 /gdb/testsuite/config | |
parent | 37d719bb4489b214b572673f6c456e57d3edc629 (diff) | |
download | gdb-653ae28f8a279df351907132b730b3eadcd6b9a5.zip gdb-653ae28f8a279df351907132b730b3eadcd6b9a5.tar.gz gdb-653ae28f8a279df351907132b730b3eadcd6b9a5.tar.bz2 |
* config/{udi-gdb.exp, gdb-unix.exp}: Replace calls to obsolete
"alldone" proc with call to cleanup and exit.
* {gdb.t01/run.exp, gdb.t01/term.exp, gdb.t02/whatis.exp,
gdb.t03/ptype.exp, gdb.t04/setvar.exp, gdb.t05/expr.exp,
gdb.t06/break.exp, gdb.t07/watchpoint.exp, gdb.t08/opaque.exp,
gdb.t09/corefile.exp, gdb.t10/crossload.exp, gdb.t11/list.exp,
gdb.t12/scope.exp, gdb.t13/bitfields.exp}: Replace calls to
"alldone" proc with simple returns that suppress remaining
tests. The alldone proc went away many months ago.
Diffstat (limited to 'gdb/testsuite/config')
-rw-r--r-- | gdb/testsuite/config/udi-gdb.exp | 4 | ||||
-rw-r--r-- | gdb/testsuite/config/unix-gdb.exp | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/gdb/testsuite/config/udi-gdb.exp b/gdb/testsuite/config/udi-gdb.exp index a59ff43..df64531 100644 --- a/gdb/testsuite/config/udi-gdb.exp +++ b/gdb/testsuite/config/udi-gdb.exp @@ -94,6 +94,7 @@ proc gdb_target_udi { } { global targetname global prompt global verbose + global exit_status # set targets hostname send "target udi $targetname\n" @@ -110,7 +111,8 @@ proc gdb_target_udi { } { } timeout { error "Couldn't set target for UDI." - alldone + cleanup + exit $exit_status } } set timeout 10 diff --git a/gdb/testsuite/config/unix-gdb.exp b/gdb/testsuite/config/unix-gdb.exp index f3aed9f..68c1a72 100644 --- a/gdb/testsuite/config/unix-gdb.exp +++ b/gdb/testsuite/config/unix-gdb.exp @@ -284,7 +284,7 @@ proc gdb_start {} { # "<return>" { send "\n"; error "Window too small." } # -re "\(y or n\) " { send "n\n"; error "Got interactive prompt." } # buffer_full { error "internal buffer is full." } -# eof { error "eof -- there is no child process" ; alldone} +# eof { error "eof -- there is no child process" ; cleanup ; exit $exit_status} # timeout { error "timeout." } # "virtual memory exhausted" { error "virtual memory exhausted." } # "Undefined command" { error "send string probably wrong." } |