diff options
| author | Rob Savoye <rob@cygnus> | 1994-01-11 05:14:08 +0000 |
|---|---|---|
| committer | Rob Savoye <rob@cygnus> | 1994-01-11 05:14:08 +0000 |
| commit | 7ae5557239070587cea1896b24c89f246cb9ff9f (patch) | |
| tree | 0b304e54c0ec9e0747e4441a64ac67842f31d0f6 /gdb/testsuite/config | |
| parent | 9bcc6c3f674e429496a1c81ef64242a853e277b9 (diff) | |
| download | gdb-7ae5557239070587cea1896b24c89f246cb9ff9f.zip gdb-7ae5557239070587cea1896b24c89f246cb9ff9f.tar.gz gdb-7ae5557239070587cea1896b24c89f246cb9ff9f.tar.bz2 | |
Tweaked to work with either version of expect. removed gdb_unload proc
cause it's already in lib/gdb.exp.
Diffstat (limited to 'gdb/testsuite/config')
| -rw-r--r-- | gdb/testsuite/config/unix-gdb.exp | 27 |
1 files changed, 0 insertions, 27 deletions
diff --git a/gdb/testsuite/config/unix-gdb.exp b/gdb/testsuite/config/unix-gdb.exp index 58325f9..1edda20 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. |