aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/layout.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/layout.adb')
-rw-r--r--gcc/ada/layout.adb12
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/layout.adb b/gcc/ada/layout.adb
index 684fae6..6fde60a 100644
--- a/gcc/ada/layout.adb
+++ b/gcc/ada/layout.adb
@@ -436,11 +436,11 @@ package body Layout is
end if;
-- For array base types, set the component size if object size of the
- -- component type is known and is a small power of 2 (8, 16, 32, 64),
- -- since this is what will always be used, except if a very large
- -- alignment was specified and so Adjust_Esize_For_Alignment gave up
- -- because, in this case, the object size is not a multiple of the
- -- alignment and, therefore, cannot be the component size.
+ -- component type is known and is a small power of 2 (8, 16, 32, 64
+ -- or 128), since this is what will always be used, except if a very
+ -- large alignment was specified and so Adjust_Esize_For_Alignment
+ -- gave up because, in this case, the object size is not a multiple
+ -- of the alignment and, therefore, cannot be the component size.
if Ekind (E) = E_Array_Type and then Unknown_Component_Size (E) then
declare
@@ -455,7 +455,7 @@ package body Layout is
and then Known_Static_Esize (CT)
and then not (Known_Alignment (CT)
and then Alignment_In_Bits (CT) >
- Standard_Long_Long_Integer_Size)
+ System_Max_Integer_Size)
then
declare
S : constant Uint := Esize (CT);