mirror of
https://github.com/bminor/binutils-gdb.git
synced 2025-12-09 00:53:10 +00:00
bd52f6f48c
On s390x-linux, with test-case gdb.ada/dyn-bit-offset.exp and gcc 7.5.0 I get: ... (gdb) print spr^M $1 = (discr => 3, array_field => (-5, -6, -7), field => -6, another_field => -6)^M (gdb) FAIL: $exp: print spr print spr.field^M $2 = -6^M (gdb) FAIL: $exp: print spr.field ... On x86_64-linux, with the same compiler version I get: ... (gdb) print spr^M $1 = (discr => 3, array_field => (-5, -6, -7), field => -4, another_field => -4)^M (gdb) XFAIL: $exp: print spr print spr.field^M $2 = -4^M (gdb) PASS: $exp: print spr.field ... In both cases, we're hitting the same compiler problem, but it manifests differently on little and big endian. Make sure the values seen for both little and big endian trigger xfails for both tests. Printing spr.field gives the expected value -4 for x86_64, but that's an accident. Change the actual spr.field value to -5, to make sure that we get the same number of xfails on x86_64 and s390x. Finally, make the xfails conditional on the compiler version. Tested using gcc 7.5.0 on both x86_64-linux and s390x-linux. Approved-By: Andrew Burgess <aburgess@redhat.com> PR testsuite/33042 https://sourceware.org/bugzilla/show_bug.cgi?id=33042
46 lines
1.5 KiB
Ada
46 lines
1.5 KiB
Ada
-- Copyright 2025 Free Software Foundation, Inc.
|
|
--
|
|
-- This program is free software; you can redistribute it and/or modify
|
|
-- it under the terms of the GNU General Public License as published by
|
|
-- the Free Software Foundation; either version 3 of the License, or
|
|
-- (at your option) any later version.
|
|
--
|
|
-- This program is distributed in the hope that it will be useful,
|
|
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
-- GNU General Public License for more details.
|
|
--
|
|
-- You should have received a copy of the GNU General Public License
|
|
-- along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
procedure Exam is
|
|
type Small is range -7 .. -4;
|
|
for Small'Size use 2;
|
|
|
|
type Packed_Array is array (Integer range <>) of Small;
|
|
pragma pack (Packed_Array);
|
|
|
|
subtype Range_Int is Natural range 0 .. 7;
|
|
|
|
type Some_Packed_Record (Discr : Range_Int := 3) is record
|
|
Array_Field : Packed_Array (1 .. Discr);
|
|
Field: Small;
|
|
case Discr is
|
|
when 3 =>
|
|
Another_Field : Small;
|
|
when others =>
|
|
null;
|
|
end case;
|
|
end record;
|
|
pragma Pack (Some_Packed_Record);
|
|
pragma No_Component_Reordering (Some_Packed_Record);
|
|
|
|
SPR : Some_Packed_Record := (Discr => 3,
|
|
Field => -5,
|
|
Another_Field => -6,
|
|
Array_Field => (-5, -6, -7));
|
|
|
|
begin
|
|
null; -- STOP
|
|
end Exam;
|