diff options
| author | Kung Hsu <kung@cygnus> | 1995-03-31 00:43:12 +0000 |
|---|---|---|
| committer | Kung Hsu <kung@cygnus> | 1995-03-31 00:43:12 +0000 |
| commit | 065924f7de118bb70b70a8bd3b099de2cba395ac (patch) | |
| tree | ec7982b9d0c9c54fc92c46a14ec381bf631479ca /gdb | |
| parent | 59b4c1998aa999ee59967e2186b03fde9dc978ce (diff) | |
| download | gdb-065924f7de118bb70b70a8bd3b099de2cba395ac.zip gdb-065924f7de118bb70b70a8bd3b099de2cba395ac.tar.gz gdb-065924f7de118bb70b70a8bd3b099de2cba395ac.tar.bz2 | |
* lib/gdb.exp (gdb_run_cmd): Special handling for targets use stubs.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 9431912..b7b94e0 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -136,6 +136,24 @@ proc delete_breakpoints {} { # elsewhere. # 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" expect { -re "The program .* has been started already.*y or n. $" { |