freeze.adb (Freeze_Record_Type): For a type with reversed bit order and reversed storage order...

2012-03-30  Thomas Quinot  <quinot@adacore.com>

	* freeze.adb (Freeze_Record_Type): For a type with reversed bit
	order and reversed storage order, disable front-end relayout.

From-SVN: r185996
This commit is contained in:
Thomas Quinot 2012-03-30 09:11:38 +00:00 committed by Arnaud Charlet
parent aeb83f098d
commit 702d139e26
2 changed files with 14 additions and 1 deletions

View File

@ -1,3 +1,8 @@
2012-03-30 Thomas Quinot <quinot@adacore.com>
* freeze.adb (Freeze_Record_Type): For a type with reversed bit
order and reversed storage order, disable front-end relayout.
2012-03-25 Eric Botcazou <ebotcazou@adacore.com>
* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Record_Subtype>: Copy

View File

@ -2161,8 +2161,16 @@ package body Freeze is
-- Here is where we do the processing for reversed bit order
else
elsif not Reverse_Storage_Order (Rec) then
Adjust_Record_For_Reverse_Bit_Order (Rec);
-- Case where we have both a reverse Bit_Order and a corresponding
-- Scalar_Storage_Order: leave record untouched, the back-end
-- will take care of required layout conversions.
else
null;
end if;
end if;