From 412c988b1d6c9c21be1198861862b49efcbf030c Mon Sep 17 00:00:00 2001
From: "J.T. Conklin" <jtc@acorntoolworks.com>
Date: Wed, 20 Jul 1994 01:03:24 +0000
Subject: [PATCH] Temporarily back out last change

---
 gdb/testsuite/lib/gdb.exp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 664aff284c..2a967a2d70 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -159,9 +159,14 @@ proc runto { function } {
 	timeout { fail "setting breakpoint at $function (timeout)" ; return 0 }
     }
 
+    send "run\n"
     # the "at foo.c:36" output we get with -g.
     # the "in func" output we get without -g.
-    expect_after {
+    expect {
+	-re "The program .* has been started already.*y or n. $" {
+	    send "y\n"
+	    exp_continue
+	}
 	-re "Starting.*Break.* at .*:$decimal.*$prompt $" { return 1 }
 	-re "Breakpoint \[0-9\]*, \[0-9xa-f\]* in $function.*$prompt $" { 
 	    return 1
@@ -169,8 +174,6 @@ proc runto { function } {
 	-re "$prompt $" { fail "running to $function" ; return 0 }
 	timeout { fail "running to $function (timeout)" ; return 0 }
     }
-    gdb_run_cmd
-    expect_after;
 }
 
 #
-- 
2.34.1