From: Tom de Vries Date: Wed, 21 Jul 2021 12:19:51 +0000 (+0200) Subject: [gdb/testsuite] Add KFAILs for gdb.ada FAILs with gcc-11 X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0057a7ee0d9;p=binutils-gdb.git [gdb/testsuite] Add KFAILs for gdb.ada FAILs with gcc-11 With gcc-11 we run into: ... (gdb) print pa_ptr.all^M That operation is not available on integers of more than 8 bytes.^M (gdb) KFAIL: gdb.ada/arrayptr.exp: scenario=all: print pa_ptr.all (PRMS: gdb/20991) ... This is due to PR exp/20991 - "__int128 type support". Mark this and similar FAILs as KFAIL. Also mark this FAIL: .... (gdb) print pa_ptr(3)^M cannot subscript or call something of type `foo__packed_array_ptr'^M (gdb) FAIL: gdb.ada/arrayptr.exp: scenario=minimal: print pa_ptr(3) ... as a KFAIL for PR ada/28115 - "Support packed array encoded as DW_TAG_subrange_type". Tested on x86_64-linux, with gcc-10 and gcc-11. gdb/testsuite/ChangeLog: 2021-07-21 Tom de Vries * gdb.ada/arrayptr.exp: Add KFAILs for PR20991 and PR28115. * gdb.ada/exprs.exp: Add KFAILs for PR20991. * gdb.ada/packed_array_assign.exp: Same. --- diff --git a/gdb/testsuite/gdb.ada/arrayptr.exp b/gdb/testsuite/gdb.ada/arrayptr.exp index 515e21242a2..606794909d9 100644 --- a/gdb/testsuite/gdb.ada/arrayptr.exp +++ b/gdb/testsuite/gdb.ada/arrayptr.exp @@ -49,10 +49,38 @@ foreach_with_prefix scenario {all minimal} { gdb_test "ptype string_access" "= access array \\(<>\\) of character" - gdb_test "print pa_ptr.all" \ - " = \\(10, 20, 30, 40, 50, 60, 62, 63, -23, 42\\)" + set kfail_int128support_re \ + "That operation is not available on integers of more than 8 bytes\\." + set kfail_packed_array_range_re \ + "cannot subscript or call something of type `foo__packed_array_ptr'" + + gdb_test_multiple "print pa_ptr.all" "" { + -re -wrap " = \\(10, 20, 30, 40, 50, 60, 62, 63, -23, 42\\)" { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } + } - gdb_test "print pa_ptr(3)" " = 30" + gdb_test_multiple "print pa_ptr(3)" "" { + -re -wrap " = 30" { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } + -re -wrap $kfail_packed_array_range_re { + kfail gdb/28115 $gdb_test_name + } + } - gdb_test "print pa_ptr.all(3)" " = 30" + gdb_test_multiple "print pa_ptr.all(3)" "" { + -re -wrap " = 30" { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } + } } diff --git a/gdb/testsuite/gdb.ada/exprs.exp b/gdb/testsuite/gdb.ada/exprs.exp index 8139abf5dcf..480e5e9f971 100644 --- a/gdb/testsuite/gdb.ada/exprs.exp +++ b/gdb/testsuite/gdb.ada/exprs.exp @@ -28,14 +28,34 @@ clean_restart ${testfile} set bp_location [gdb_get_line_number "START" ${testdir}/p.adb] runto "p.adb:$bp_location" -gdb_test "print X ** Y = Z" \ - "= true" \ - "Long_Long_Integer ** Y" +set kfail_int128support_re \ + "That operation is not available on integers of more than 8 bytes\\." + +gdb_test_multiple "print X ** Y = Z" "Long_Long_Integer ** Y" { + -re -wrap "= true" { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } +} -gdb_test "print long_float'min (long_float (X), 8.0)" \ - "= 7.0" \ - "long_float'min" +set cmd "print long_float'min (long_float (X), 8.0)" +gdb_test_multiple $cmd "long_float'min" { + -re -wrap "= 7.0" { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } +} -gdb_test "print long_float'max (long_float (X), 8.0)" \ - "= 8.0" \ - "long_float'max" +set cmd "print long_float'max (long_float (X), 8.0)" +gdb_test_multiple $cmd "long_float'max" { + -re -wrap "= 8.0" { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } +} diff --git a/gdb/testsuite/gdb.ada/packed_array_assign.exp b/gdb/testsuite/gdb.ada/packed_array_assign.exp index b6c8cf673de..5f34a07e3af 100644 --- a/gdb/testsuite/gdb.ada/packed_array_assign.exp +++ b/gdb/testsuite/gdb.ada/packed_array_assign.exp @@ -27,15 +27,72 @@ clean_restart ${testfile} runto "aggregates.run_test" -gdb_test \ - "print pra := ((packed_array_assign_x => 2, packed_array_assign_y => 0, packed_array_assign_w => 17), pr, (packed_array_assign_x => 7, packed_array_assign_y => 1, packed_array_assign_w => 23))" \ - " = \\(\\(packed_array_assign_w => 17, packed_array_assign_x => 2, packed_array_assign_y => 0\\), \\(packed_array_assign_w => 104, packed_array_assign_x => 2, packed_array_assign_y => 3\\), \\(packed_array_assign_w => 23, packed_array_assign_x => 7, packed_array_assign_y => 1\\)\\)" \ - "value of pra" - -gdb_test "print pra(1) := pr" \ - " = \\(packed_array_assign_w => 104, packed_array_assign_x => 2, packed_array_assign_y => 3\\)" -gdb_test "print pra(1)" \ - " = \\(packed_array_assign_w => 104, packed_array_assign_x => 2, packed_array_assign_y => 3\\)" +set kfail_int128support_re \ + "That operation is not available on integers of more than 8 bytes\\." + +set cmd \ + [list \ + "print pra := " \ + "((packed_array_assign_x => 2," \ + "packed_array_assign_y => 0," \ + "packed_array_assign_w => 17)," \ + "pr," \ + "(packed_array_assign_x => 7," \ + "packed_array_assign_y => 1," \ + "packed_array_assign_w => 23))"] +set cmd [join $cmd] +set re \ + [list \ + " = \\(\\(packed_array_assign_w => 17," \ + "packed_array_assign_x => 2," \ + "packed_array_assign_y => 0\\)," \ + "\\(packed_array_assign_w => 104," \ + "packed_array_assign_x => 2," \ + "packed_array_assign_y => 3\\)," \ + "\\(packed_array_assign_w => 23," \ + "packed_array_assign_x => 7," \ + "packed_array_assign_y => 1\\)\\)"] +set re [join $re] +gdb_test_multiple $cmd "value of pra" { + -re -wrap $re { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } +} + +set cmd "print pra(1) := pr" +set re \ + [list \ + " = \\(packed_array_assign_w => 104," \ + "packed_array_assign_x => 2," \ + "packed_array_assign_y => 3\\)"] +set re [join $re] +gdb_test_multiple $cmd "" { + -re -wrap $re { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } +} + +set cmd "print pra(1)" +set re \ + [list \ + " = \\(packed_array_assign_w => 104," \ + "packed_array_assign_x => 2," \ + "packed_array_assign_y => 3\\)"] +set re [join $re] +gdb_test_multiple $cmd "" { + -re -wrap $re { + pass $gdb_test_name + } + -re -wrap $kfail_int128support_re { + kfail gdb/20991 $gdb_test_name + } +} gdb_test "print npr := (q000 => 3, r000 => (packed_array_assign_x => 6, packed_array_assign_y => 1, packed_array_assign_w => 117))" \ " = \\(q000 => 3, r000 => \\(packed_array_assign_w => 117, packed_array_assign_x => 6, packed_array_assign_y => 1\\)\\)" \