From 4c206d219cee4bffda3d11a403b298481c12fc97 Mon Sep 17 00:00:00 2001 From: Jim Kingdon Date: Thu, 26 Aug 1993 23:04:07 +0000 Subject: [PATCH] * config/unix-gdb.exp: Remove this version of gdb_exit * lib/gdb.exp: Merge in all the crap from config/unix-gdb.exp. Rob says he'll look at it when he gets back to testing boards. --- gdb/testsuite/config/unix-gdb.exp | 55 ------------------------------- 1 file changed, 55 deletions(-) diff --git a/gdb/testsuite/config/unix-gdb.exp b/gdb/testsuite/config/unix-gdb.exp index 68c1a729cf..690b6a83d5 100644 --- a/gdb/testsuite/config/unix-gdb.exp +++ b/gdb/testsuite/config/unix-gdb.exp @@ -149,61 +149,6 @@ proc gdb_load { arg } { } } -# -# gdb_exit -- kills the gdb process currently running -# -# This overrides the generic version of gdb_exit in lib/gdb.exp, since -# it's doing a lot of wierd stuff that lib/gdb.exp isn't. -# FIXME, fold it in, or abandon this version. - -proc gdb_exit {} { - global verbose - global GDB - global GDBFLAGS - set timeout 1 - - if $verbose>1 then { - send_user "Quitting $GDB $GDBFLAGS\n" - } - catch "send \"quit\n\"" result - if [string match "write\(spawn_id=\[0-9\]+\):" $result] then { - catch "close" - return -1 - } - catch { - expect { - eof { - if $verbose>1 then { - send_user "Got EOF from $GDB\n" - } - } - timeout { - if $verbose>1 then { - send_user "Got TIMEOUT from $GDB\n" - } - close - } - -re "The program is running. Quit anyway.*? (y or n) $" { - send "y\n" - if $verbose>1 then { - send_user "\t\tKilling program being debugged\n" - } - close - } - } - } - catch "close" - # Before this was here sometimes "uit" would get sent to the next GDB - # (assuming this is immediately followed by gdb_start), which would - # cause a loss of syncronization (i.e. all the stuff that swallows a - # prompt would swallow the wrong one). - wait - - if $verbose>1 then { - send_user "Quitting $GDB $GDBFLAGS\n" - } -} - # # start gdb -- start gdb running # -- 2.34.1