From: Rob Savoye Date: Tue, 11 Jan 1994 05:14:08 +0000 (+0000) Subject: Tweaked to work with either version of expect. removed gdb_unload proc X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7ae5557239070587cea1896b24c89f246cb9ff9f;p=binutils-gdb.git Tweaked to work with either version of expect. removed gdb_unload proc cause it's already in lib/gdb.exp. --- diff --git a/gdb/testsuite/config/unix-gdb.exp b/gdb/testsuite/config/unix-gdb.exp index 58325f9cf8c..1edda205831 100644 --- a/gdb/testsuite/config/unix-gdb.exp +++ b/gdb/testsuite/config/unix-gdb.exp @@ -46,33 +46,6 @@ proc gdb_version {} { # gdb_unload -- unload a file if one is loaded # -proc gdb_unload {} { - global verbose - global GDB - global prompt - send "file\n" - expect { - -re "No exec file now\.\r" { continue -expect } - -re "No symbol file now\.\r" { continue -expect } - -re "A program is being debugged already..*Kill it\? \(y or n\) $"\ - { send "y\n" - if $verbose>1 then { - send_user "\t\tKilling previous program being debugged\n" - } - continue -expect - } - -re "Discard symbol table from .*\? \(y or n\) $" { - send "y\n" - continue -expect - } - -re "$prompt $" {} - timeout { - perror "Couldn't unload file in $GDB (timed out)." - return -1 - } - } -} - # # gdb_load -- load a file into the debugger. # return a -1 if anything goes wrong.