* lib/gdb.exp (gdb_exit): Move the best version of gdb_exit

to here.
* config/{mips-gdb.exp, nind-gdb.exp, udi-gdb.exp, vx-gdb.exp}:
Remove various versions of gdb_exit.
* config/vx-gdb.exp:  Remove quit_vxgdb, change a caller to call
gdb_exit.
* config/unix-gdb.exp:  gdb_exit remains here, and should override
the generic version, since it's doing a lot of wierd stuff that
the other versions aren't.  FIXME, fold it in, or abandon this
version.

gdb/testsuite/ChangeLog

@@ -1,3 +1,16 @@
+Wed Aug 11 19:47:27 1993  John Gilmore  (gnu@rtl.cygnus.com)
+
+	* lib/gdb.exp (gdb_exit):  Move the best version of gdb_exit
+	to here.
+	* config/{mips-gdb.exp, nind-gdb.exp, udi-gdb.exp, vx-gdb.exp}:
+	Remove various versions of gdb_exit.
+	* config/vx-gdb.exp:  Remove quit_vxgdb, change a caller to call
+	gdb_exit.
+	* config/unix-gdb.exp:  gdb_exit remains here, and should override
+	the generic version, since it's doing a lot of wierd stuff that
+	the other versions aren't.  FIXME, fold it in, or abandon this
+	version.
+
 Wed Aug 11 12:09:32 1993  Jim Kingdon  (kingdon@lioth.cygnus.com)
 
 	* gdb.t24/demangle.exp: Add tests for PR 3220.

gdb/testsuite/config/mips-gdb.exp

@@ -106,39 +106,6 @@ proc gdb_load { arg } {
     return 0
 }
 
-#
-# gdb_exit -- exit the GDB
-#
-proc gdb_exit {} {
-    global GDB
-    global GDBFLAGS
-    global verbose
-
-    set timeout 5
-    send "quit\n"
-    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"
-	    }
-	}
-	-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"
-	    }
-	}
-    }
-    if $verbose>1 then {
-	send_user "Quitting $GDB $GDBFLAGS\n"
-    }
-}
-
 #
 # gdb_start -- start GDB running.
 #

gdb/testsuite/config/nind-gdb.exp

@@ -52,37 +52,6 @@ proc gdb_load { arg } {
     send_user "Not implememted yet\n" ; return -1
 }
 
-#
-# gdb_exit -- exit the debugger
-#
-proc gdb_exit {} {
-    global GDB
-    global GDBFLAGS
-    global verbose
-    send "quit\n"
-    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"
-	    }
-	}
-	-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"
-		}
-	    }
-    }
-    if $verbose>1 then {
-	send_user "Quitting $GDB $GDBFLAGS\n"
-    }
-}
-
 #
 # gdb_start -- start GDB running
 #

gdb/testsuite/config/udi-gdb.exp

@@ -1,6 +1,6 @@
-# Test Framework Driver
+# Test Framework Driver for GDB driving Universal Debug Interface on 29K
-#   Copyright (C) 1988, 1990, 1991, 1992 Free Software Foundation, Inc.
+#   Copyright 1988, 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
-
+#
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 2 of the License, or
@@ -86,39 +86,6 @@ proc gdb_load { arg } {
     return 0
 }
 
-#
-# gdb_exit -- exit the GDB
-#
-proc gdb_exit {} {
-    global GDB
-    global GDBFLAGS
-    global verbose
-
-    set timeout 5
-    send "quit\n"
-    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"
-	    }
-	}
-	-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"
-		}
-	    }
-    }
-    if $verbose>1 then {
-	send_user "Quitting $GDB $GDBFLAGS\n"
-    }
-}
-
 #
 # gdb_target_udi
 # Set gdb to the desired UDI target

gdb/testsuite/config/vx-gdb.exp

@@ -56,7 +56,7 @@ proc gdb_load { arg } {
     global base_dir
     global prompt
     global GDB
-    quit_vxgdb
+    gdb_exit
     spawn_vxgdb
     set loadfile [file tail $arg]
     set loadpath [file dirname $arg]
@@ -111,38 +111,6 @@ proc gdb_load { arg } {
     set timeout 10
 }
 
-#
-# 
-#
-proc gdb_exit {} {
-    global shell_id
-
-#    exit_remote_shell $shell_id
-    catch quit_vxgdb
-}
-
-proc quit_vxgdb { } {
-    global GDB
-    global GDBFLAGS
-    global verbose
-
-    set timeout 1
-    send "quit\n"
-    expect {
-	eof                 { 
-	    verbose "Got EOF from $GDB" 2
-	    }
-	timeout             { 
-	    verbose "Got TIMEOUT from $GDB" 2
-	}
-	-re "The program is running.  Quit anyway.*(y or n) $" {
-	    send "y\n"
-	    verbose "Killing program being debugged" 1
-	    }
-    }
-    verbose "Quitting $GDB $GDBFLAGS" 1
-}
-
 #
 # gdb_start -- start gdb running and 
 #