From: J.T. Conklin <jtc@acorntoolworks.com>
Date: Tue, 19 Jul 1994 22:57:49 +0000 (+0000)
Subject: * lib/gdb.exp (runto): Rewrite in terms of gdb_run_cmd.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b34c14fb190bb97d650cecfb9ff3ad0de598a075;p=binutils-gdb.git

* lib/gdb.exp (runto): Rewrite in terms of gdb_run_cmd.
---

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 2a967a2d70d..664aff284c4 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -159,14 +159,9 @@ 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 {
-	-re "The program .* has been started already.*y or n. $" {
-	    send "y\n"
-	    exp_continue
-	}
+    expect_after {
 	-re "Starting.*Break.* at .*:$decimal.*$prompt $" { return 1 }
 	-re "Breakpoint \[0-9\]*, \[0-9xa-f\]* in $function.*$prompt $" { 
 	    return 1
@@ -174,6 +169,8 @@ proc runto { function } {
 	-re "$prompt $" { fail "running to $function" ; return 0 }
 	timeout { fail "running to $function (timeout)" ; return 0 }
     }
+    gdb_run_cmd
+    expect_after;
 }
 
 #