From 6a90e1d0a66727bc0d9344bde33bfd44cdd89f3e Mon Sep 17 00:00:00 2001 From: Andrew Cagney Date: Sun, 19 Aug 2001 01:02:58 +0000 Subject: * lib/mi-support.exp (mi_gdb_start): If a remote target, use the CLI jump command to start it. (mi_run_to_main): Fail immediatly when unexpected output. --- gdb/testsuite/lib/mi-support.exp | 15 +++++++++++++++ 1 file changed, 15 insertions(+) (limited to 'gdb/testsuite/lib') 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 -- cgit v1.1