From: Rob Savoye <rob@cygnus>
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.