Commit 41ccd2d8 by Gary Dismukes Committed by Arnaud Charlet

cstand.adb (Create_Standard): When the target's storage unit size is greater than a byte...

2007-04-06  Gary Dismukes  <dismukes@adacore.com>

	* cstand.adb (Create_Standard): When the target's storage unit size is
	greater than a byte, set Has_Non_Standard_Rep and Has_Pragma_Pack on
	Standard_String.

From-SVN: r123555
parent 675d6070
...@@ -683,6 +683,15 @@ package body CStand is ...@@ -683,6 +683,15 @@ package body CStand is
Init_Size_Align (Standard_String); Init_Size_Align (Standard_String);
Set_Alignment (Standard_String, Uint_1); Set_Alignment (Standard_String, Uint_1);
-- On targets where a storage unit is larger than a byte (such as AAMP),
-- pragma Pack has a real effect on the representation of type String,
-- and the type must be marked as having a nonstandard representation.
if System_Storage_Unit > Uint_8 then
Set_Has_Non_Standard_Rep (Standard_String);
Set_Has_Pragma_Pack (Standard_String);
end if;
-- Set index type of String -- Set index type of String
E_Id := First E_Id := First
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment