return 0;
end Get_Double_Scalar_Alignment;
- -----------------------------
- -- Get_Max_Unaligned_Field --
- -----------------------------
-
- function Get_Max_Unaligned_Field return Pos is
- begin
- return 64; -- Can be different on some targets
- end Get_Max_Unaligned_Field;
-
-----------------------------
-- Register_Back_End_Types --
-----------------------------
return null;
end Get_Back_End_Config_File;
- -----------------------------
- -- Get_Max_Unaligned_Field --
- -----------------------------
-
- function Get_Max_Unaligned_Field return Pos is
- begin
- return 64; -- Can be different on some targets
- end Get_Max_Unaligned_Field;
-
-----------------------------
-- Register_Back_End_Types --
-----------------------------
-- Other subprograms
- function Get_Max_Unaligned_Field return Pos;
- -- Returns the maximum supported size in bits for a field that is
- -- not aligned on a storage unit boundary.
-
type C_String is array (0 .. 255) of aliased Character;
pragma Convention (C, C_String);
Long_Long_Size := Get_Long_Long_Size;
Long_Size := Get_Long_Size;
Maximum_Alignment := Get_Maximum_Alignment;
- Max_Unaligned_Field := Get_Max_Unaligned_Field;
+ Max_Unaligned_Field := 1;
Pointer_Size := Get_Pointer_Size;
Short_Enums := Get_Short_Enums;
Short_Size := Get_Short_Size;
Long_Long_Size : Pos; -- Standard.Long_Long_Integer'Size
Long_Size : Pos; -- Standard.Long_Integer'Size
Maximum_Alignment : Pos; -- Maximum permitted alignment
- Max_Unaligned_Field : Pos; -- Maximum size for unaligned bit field
+ Max_Unaligned_Field : Pos; -- Kept only for backward compatibility
Pointer_Size : Pos; -- System.Address'Size
Short_Enums : Nat; -- Foreign enums use short size?
Short_Size : Pos; -- Standard.Short_Integer'Size
Set_Targ.System_Allocator_Alignment;
-- The alignment in storage units of addresses returned by malloc
- Max_Unaligned_Field : constant Pos := Set_Targ.Max_Unaligned_Field;
- -- The maximum supported size in bits for a field that is not aligned
- -- on a storage unit boundary.
-
Bytes_Big_Endian : Boolean := Set_Targ.Bytes_BE /= 0;
-- Important note: for Ada purposes, the important setting is the bytes
-- endianness (Bytes_Big_Endian), not the bits value (Bits_Big_Endian).