diff options
Diffstat (limited to 'gdb/testsuite/gdb.ada/big_packed_array.exp')
-rw-r--r-- | gdb/testsuite/gdb.ada/big_packed_array.exp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.ada/big_packed_array.exp b/gdb/testsuite/gdb.ada/big_packed_array.exp index b1566af..96ed9d2 100644 --- a/gdb/testsuite/gdb.ada/big_packed_array.exp +++ b/gdb/testsuite/gdb.ada/big_packed_array.exp @@ -27,7 +27,7 @@ foreach_gnat_encoding scenario flags {all minimal} { lappend flags debug if {[gdb_compile_ada "${srcfile}" "${binfile}-${scenario}" executable $flags] != ""} { - return -1 + return } clean_restart ${testfile}-${scenario} @@ -38,7 +38,7 @@ foreach_gnat_encoding scenario flags {all minimal} { gdb_test "print good" \ "= \\(false <repeats 196 times>\\)" \ - set have_xfail [expr $old_gcc && [string equal "$scenario" "minimal"]] + set have_xfail [expr {$old_gcc && [string equal "$scenario" "minimal"]}] set re "= \\(false <repeats 196 times>\\)" set re_xfail "= \\(0 => 0 <repeats 25 times>\\)" |