diff options
| author | Andrew Cagney <cagney@redhat.com> | 2001-08-19 01:02:58 +0000 |
|---|---|---|
| committer | Andrew Cagney <cagney@redhat.com> | 2001-08-19 01:02:58 +0000 |
| commit | 6a90e1d0a66727bc0d9344bde33bfd44cdd89f3e (patch) | |
| tree | 2dde890bf93a33742e7c5e1d7e34c816661580ed | |
| parent | e866d0e84546649adbf3cb3750c1fd0fe1aeccf3 (diff) | |
| download | gdb-6a90e1d0a66727bc0d9344bde33bfd44cdd89f3e.zip gdb-6a90e1d0a66727bc0d9344bde33bfd44cdd89f3e.tar.gz gdb-6a90e1d0a66727bc0d9344bde33bfd44cdd89f3e.tar.bz2 | |
* 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.
| -rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/testsuite/lib/mi-support.exp | 15 |
2 files changed, 21 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index bf7e12b..79fc4c6 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,11 @@ 2001-08-18 Andrew Cagney <ac131313@redhat.com> + * 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. + +2001-08-18 Andrew Cagney <ac131313@redhat.com> + * lib/mi-support.exp (mi_gdb_start): Move call to sid_start to beginning of function. Fix PR gdb/191. 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 |