From 4f2ec2eeb86254e6d29fc86f899e4372984f985d Mon Sep 17 00:00:00 2001
From: "J.T. Conklin" <jtc@acorntoolworks.com>
Date: Wed, 20 Jul 1994 16:40:08 +0000
Subject: [PATCH] New implementation of gdb_run_cmd which fixes some subtle
 bugs.

---
 gdb/testsuite/lib/gdb.exp | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 2a967a2..1747e1d 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -122,6 +122,8 @@ proc gdb_run_cmd {} {
 	    send "y\n"
 	    exp_continue
 	}
+
+	-re "Starting program: .*$" {}
     }
 }
 
@@ -159,20 +161,25 @@ proc runto { function } {
 	timeout { fail "setting breakpoint at $function (timeout)" ; return 0 }
     }
 
-    send "run\n"
+    gdb_run_cmd
+    
     # 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
+	-re "Break.* at .*:$decimal.*$prompt $" {
+	    return 1
 	}
-	-re "Starting.*Break.* at .*:$decimal.*$prompt $" { return 1 }
 	-re "Breakpoint \[0-9\]*, \[0-9xa-f\]* in $function.*$prompt $" { 
 	    return 1
 	}
-	-re "$prompt $" { fail "running to $function" ; return 0 }
-	timeout { fail "running to $function (timeout)" ; return 0 }
+	-re "$prompt $" { 
+	    fail "running to $function"
+	    return 0
+	}
+	timeout { 
+	    fail "running to $function (timeout)"
+	    return 0
+	}
     }
 }
 
-- 
2.7.4