diff options
Diffstat (limited to 'gdb/testsuite/lib/ada.exp')
| -rw-r--r-- | gdb/testsuite/lib/ada.exp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gdb/testsuite/lib/ada.exp b/gdb/testsuite/lib/ada.exp index 37bed85..04aaee1 100644 --- a/gdb/testsuite/lib/ada.exp +++ b/gdb/testsuite/lib/ada.exp @@ -111,7 +111,7 @@ proc gdb_compile_ada_1 {source dest type options} { # gdb_compile to determine whether the build has succeeded or not. # We therefore simply check whether the dest file has been created # or not. Unless not present, the build has succeeded. - if [file exists $dest] { set result "" } + if {[file exists $dest]} { set result "" } return $result } @@ -220,7 +220,8 @@ proc gnat_runtime_has_debug_info_1 { shared } { return 0 } - clean_restart $dst + clean_restart + gdb_load $dst if { ! [runto "GNAT_Debug_Info_Test"] } { return 0 |