diff options
Diffstat (limited to 'gdb/testsuite/lib')
| -rw-r--r-- | gdb/testsuite/lib/mi-support.exp | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp index b3c01ec..76fad16 100644 --- a/gdb/testsuite/lib/mi-support.exp +++ b/gdb/testsuite/lib/mi-support.exp @@ -590,6 +590,18 @@ proc mi_run_cmd {args} { } return; } + + if [target_info exists gdb,start_symbol] { + set start [target_info gdb,start_symbol]; + } else { + set start "start"; + } + + # HACK: Should either use 000-jump or fix the target code + # to better handle RUN. + send_gdb "jump *$start\n" + warning "Using CLI jump command, expect run-to-main FAIL" + return } send_gdb "000-exec-run $args\n" @@ -637,6 +649,9 @@ proc mi_run_to_main { } { pass "$test" return 0 } + -re ".*$mi_gdb_prompt$" { + fail "$test (2)" + } timeout { fail "$test (timeout)" return -1 |