diff options
Diffstat (limited to 'gdb/testsuite/gdb.ada/mi_interface.exp')
| -rw-r--r-- | gdb/testsuite/gdb.ada/mi_interface.exp | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/gdb/testsuite/gdb.ada/mi_interface.exp b/gdb/testsuite/gdb.ada/mi_interface.exp index f948237..a2c0d045 100644 --- a/gdb/testsuite/gdb.ada/mi_interface.exp +++ b/gdb/testsuite/gdb.ada/mi_interface.exp @@ -26,17 +26,10 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional load_lib mi-support.exp set MIFLAGS "-i=mi" -gdb_exit -if [mi_gdb_start] { - continue -} - -mi_delete_breakpoints -mi_gdb_reinitialize_dir $srcdir/$subdir -mi_gdb_load ${binfile} +mi_clean_restart $binfile -if ![mi_run_to_main] then { - fail "cannot run to main, testcase aborted" +if {[mi_runto_main] < 0} { + fail "cannot run to main, testcase aborted" return 0 } |