diff options
Diffstat (limited to 'gdb/testsuite/gdb.ada/unchecked_union.exp')
| -rw-r--r-- | gdb/testsuite/gdb.ada/unchecked_union.exp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.ada/unchecked_union.exp b/gdb/testsuite/gdb.ada/unchecked_union.exp index 89c0593..d6dd0f5 100644 --- a/gdb/testsuite/gdb.ada/unchecked_union.exp +++ b/gdb/testsuite/gdb.ada/unchecked_union.exp @@ -26,7 +26,7 @@ proc multi_line_string {str} { foreach line [split $str \n] { lappend result [string_to_regexp $line] } - return [eval multi_line $result] + return [multi_line {*}$result] } set inner_string { case ? is @@ -55,7 +55,7 @@ foreach_gnat_encoding scenario flags {none all minimal} { lappend flags debug if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} { - return -1 + return } clean_restart ${testfile}-${scenario} |