From 5f2912ccceab356e4da79d3f6d6358c7c45e2d92 Mon Sep 17 00:00:00 2001
From: Ian Lance Taylor <ian@airs.com>
Date: Thu, 25 Mar 1993 20:34:44 +0000
Subject: [PATCH] 	* config/udi-gdb.exp (gdb_exit): Remove close command.
 	(gdb_target_udi): New procedure to set the UDI target. 	(gdb_start):
 Don't remove *_soc files.  Use gdb_target_udi. 	* gdb.t00/default.exp:
 Added expected failures for a29k-*-udi. 	Added waits for prompts after
 several question responses.  Added 	some more responses used by
 a29k-amd-udi-gdb. 	* gdb.t01/run.exp, gdb.t06/break.exp: Added a29k-*-udi
 support: 	pass different arguments, restart UDI connection after program
 	completion. 	* gdb.t02/whatis.exp, gdb.t03/ptype.exp,
 gdb.t07/watchpoint.exp, 	gdb.t08/opaque.exp, gdb.t11/list.exp,
 gdb.t12/scope.exp, 	gdb.t15/funcargs.exp, gdb.t16/printcmds.exp,
 gdb.t20/misc.exp, 	gdb.t21/cplusfuncs.exp: Added expected failures for
 a29k-*-*. 	* gdb.t04/setvar.exp, gdb.t05/expr.exp,
 gdb.t07/watchpoint.exp, 	gdb.t08/opaque.exp, gdb.t12/scope.exp,
 gdb.t13/bitfields.exp, 	gdb.t15/funcargs.exp, gdb.t16/printcmds.exp, 
 gdb.t17/callfuncs.exp, gdb.t20/classes.exp, gdb.t20/inherit.exp, 
 gdb.t20/misc.exp, gdb.t22/virtfuncs.exp: Restart UDI connection 	after
 program completion. 	* gdb.t10/crossload.exp: Does not work for a29k-*-*,
 since BFD is 	compiled with a SELECT_VECS setting. 	*
 gdb.t15/funcargs.exp: Use argument to backtrace to prevent 	infinite
 recursion.

	* gdb.t20/classes.exp, gdb.t20/inherit.exp, gdb.t22/virtfuncs.exp:
	Added checks for COFF results, and made them expected failures for
	all targets.  It would be better to make them expected failures
	for COFF targets only.
---
 gdb/testsuite/ChangeLog          | 31 ++++++++++++++++++++++++
 gdb/testsuite/config/udi-gdb.exp | 52 ++++++++++++++++++++++++----------------
 2 files changed, 63 insertions(+), 20 deletions(-)

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 72c54ec..752a462 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,34 @@
+Thu Mar 25 12:14:28 1993  Ian Lance Taylor  (ian@cygnus.com)
+
+	* config/udi-gdb.exp (gdb_exit): Remove close command.
+	(gdb_target_udi): New procedure to set the UDI target.
+	(gdb_start): Don't remove *_soc files.  Use gdb_target_udi.
+	* gdb.t00/default.exp: Added expected failures for a29k-*-udi.
+	Added waits for prompts after several question responses.  Added
+	some more responses used by a29k-amd-udi-gdb.
+	* gdb.t01/run.exp, gdb.t06/break.exp: Added a29k-*-udi support:
+	pass different arguments, restart UDI connection after program
+	completion.
+	* gdb.t02/whatis.exp, gdb.t03/ptype.exp, gdb.t07/watchpoint.exp,
+	gdb.t08/opaque.exp, gdb.t11/list.exp, gdb.t12/scope.exp,
+	gdb.t15/funcargs.exp, gdb.t16/printcmds.exp, gdb.t20/misc.exp,
+	gdb.t21/cplusfuncs.exp: Added expected failures for a29k-*-*.
+	* gdb.t04/setvar.exp, gdb.t05/expr.exp, gdb.t07/watchpoint.exp,
+	gdb.t08/opaque.exp, gdb.t12/scope.exp, gdb.t13/bitfields.exp,
+	gdb.t15/funcargs.exp, gdb.t16/printcmds.exp,
+	gdb.t17/callfuncs.exp, gdb.t20/classes.exp, gdb.t20/inherit.exp,
+	gdb.t20/misc.exp, gdb.t22/virtfuncs.exp: Restart UDI connection
+	after program completion.
+	* gdb.t10/crossload.exp: Does not work for a29k-*-*, since BFD is
+	compiled with a SELECT_VECS setting.
+	* gdb.t15/funcargs.exp: Use argument to backtrace to prevent
+	infinite recursion.
+
+	* gdb.t20/classes.exp, gdb.t20/inherit.exp, gdb.t22/virtfuncs.exp:
+	Added checks for COFF results, and made them expected failures for
+	all targets.  It would be better to make them expected failures
+	for COFF targets only.
+
 Wed Mar 24 14:43:38 1993  david d `zoo' zuhn  (zoo at poseidon.cygnus.com)
 
 	* Makefile.in: add null dvi target, don't bother to recurse
diff --git a/gdb/testsuite/config/udi-gdb.exp b/gdb/testsuite/config/udi-gdb.exp
index ab7eecd..2b5ba15 100644
--- a/gdb/testsuite/config/udi-gdb.exp
+++ b/gdb/testsuite/config/udi-gdb.exp
@@ -117,7 +117,36 @@ proc gdb_exit {} {
     if $verbose>1 then {
 	send_user "Quitting $GDB $GDBFLAGS\n"
     }
-    close
+}
+
+#
+# gdb_target_udi
+# Set gdb to the desired UDI target
+#
+proc gdb_target_udi { } {
+    global targetname
+    global prompt
+    global verbose
+
+    # set targets hostname
+    send "target udi $targetname\n"
+    set timeout 60
+    expect {
+	-re "TIP UDI 1.2 Conformant.*$prompt $"	{
+	    if $verbose>1 then {
+		send_user "Set target to $targetname\n"
+	    }
+	}
+	-re "A program is being debugged already.  Kill it\? \(y or n\)" {
+	    send "y\n"
+	    continue -expect
+	}
+	timeout { 
+	    error "Couldn't set target for UDI."
+	    alldone
+	}
+    }
+    set timeout 10
 }
 
 #
@@ -130,7 +159,6 @@ proc gdb_start { } {
     global spawn_id
     global prompt
     global verbose
-    global targetname
 
     set GDB [which $GDB]
     # start GDB
@@ -164,24 +192,8 @@ proc gdb_start { } {
     if $verbose>1 then {
 	send_user "Setting up target, Please wait...\n"
     }
-    catch "exec rm [glob -nocomplain *_soc]"
-    catch "exec rm [glob -nocomplain /tmp/*_soc]"
-    # set targets hostname
-    send "target udi $targetname\n"
-    set timeout 60
-    expect {
-	-re "target udi.*TIP UDI 1.2 Conformant.*$prompt $"	{
-	    if $verbose>1 then {
-		send_user "Set target to $targetname\n"
-	    }
-}
-	timeout { 
-	    error "Couldn't set target for vxworks."
-	    set timeout 10
-	    return -1
-	}
-    }
-    set timeout 10
+
+    gdb_target_udi
 }
 
 expect_after {
-- 
2.7.4