* lib/gdb.exp (gdb_run_cmd): Special handling for targets use stubs.

This commit is contained in:
Kung Hsu 1995-03-31 00:43:12 +00:00
parent 59b4c1998a
commit 065924f7de

View file

@ -136,6 +136,24 @@ proc delete_breakpoints {} {
# elsewhere. # elsewhere.
# #
proc gdb_run_cmd {} { proc gdb_run_cmd {} {
global usestubs
global prompt
if $usestubs!=0 {
send "jump *start\n"
expect {
-re "Line.* Jump anyway.*y or n. $" {
send "y\n"
expect {
-re "Continuing.*$prompt $" {}
timeout { perror "Jump to start() failed"; return }
}
}
timeout { perror "Jump to start() failed (timeout)"; return }
}
send "continue\n"
return
}
send "run\n" send "run\n"
expect { expect {
-re "The program .* has been started already.*y or n. $" { -re "The program .* has been started already.*y or n. $" {