FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[gdb/testsuite] Add KFAILs for gdb.ada FAILs with gcc-11

Browse source 
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  <tdevries@suse.de>

	* 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.
This commit is contained in:
Tom de Vries 2021-07-21 14:19:51 +02:00
parent 4bf094292c
commit 0057a7ee0d
3 changed files with 126 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
gdb/testsuite/gdb.ada/arrayptr.exp
View file

@ -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 "print pa_ptr(3)" " = 30"
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.all(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_multiple "print pa_ptr.all(3)" "" {
-re -wrap " = 30" {
pass $gdb_test_name
}
-re -wrap $kfail_int128support_re {
kfail gdb/20991 $gdb_test_name
}
}
}

38
gdb/testsuite/gdb.ada/exprs.exp
View file

@ -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 "print long_float'min (long_float (X), 8.0)" \
"= 7.0" \
"long_float'min"
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'max (long_float (X), 8.0)" \
"= 8.0" \
"long_float'max"
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
}
}
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
}
}

73
gdb/testsuite/gdb.ada/packed_array_assign.exp
View file

@ -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"
set kfail_int128support_re \
"That operation is not available on integers of more than 8 bytes\\."
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 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\\)\\)" \