diff options
Diffstat (limited to 'gdb/testsuite/gdb.ada/mi_exc_info.exp')
| -rw-r--r-- | gdb/testsuite/gdb.ada/mi_exc_info.exp | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/gdb/testsuite/gdb.ada/mi_exc_info.exp b/gdb/testsuite/gdb.ada/mi_exc_info.exp index eeb8247..52c37c4 100644 --- a/gdb/testsuite/gdb.ada/mi_exc_info.exp +++ b/gdb/testsuite/gdb.ada/mi_exc_info.exp @@ -26,12 +26,9 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } load_lib mi-support.exp set MIFLAGS "-i=mi" -gdb_exit -if [mi_gdb_start] { - continue -} +mi_clean_restart $binfile -if ![mi_run_to_main] then { +if {[mi_runto_main] < 0} { fail "cannot run to main, testcase aborted" return 0 } |