aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.ada/mi_interface.exp
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/testsuite/gdb.ada/mi_interface.exp')
-rw-r--r--gdb/testsuite/gdb.ada/mi_interface.exp6
1 files changed, 3 insertions, 3 deletions
diff --git a/gdb/testsuite/gdb.ada/mi_interface.exp b/gdb/testsuite/gdb.ada/mi_interface.exp
index 630353d..e638f97 100644
--- a/gdb/testsuite/gdb.ada/mi_interface.exp
+++ b/gdb/testsuite/gdb.ada/mi_interface.exp
@@ -22,16 +22,16 @@ require gnat_runtime_has_debug_info
standard_ada_testfile foo
if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug additional_flags=-gnat12 ]] != "" } {
- return -1
+ return
}
load_lib mi-support.exp
set MIFLAGS "-i=mi"
-mi_clean_restart $binfile
+mi_clean_restart $::testfile
if {[mi_runto_main] < 0} {
- return 0
+ return
}
set bp_location [gdb_get_line_number "BREAK" ${testdir}/foo.adb]