* config/unix-gdb.exp: Remove this version of gdb_exit
authorJim Kingdon <jkingdon@engr.sgi.com>
Thu, 26 Aug 1993 23:04:07 +0000 (23:04 +0000)
committerJim Kingdon <jkingdon@engr.sgi.com>
Thu, 26 Aug 1993 23:04:07 +0000 (23:04 +0000)
* 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

index 68c1a729cf39936d53d77f25c92c583dfbd2e26f..690b6a83d51f13f829157b0df029d30cad71e71d 100644 (file)
@@ -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
 #
This page took 0.036308 seconds and 4 git commands to generate.