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

This commit is contained in:
J.T. Conklin 1994-07-19 22:57:49 +00:00
parent 27b4d34f08
commit b34c14fb19

View file

@ -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;
}
#