From f9d7d7c14cc8fe8c62e22c1edc5d4e2db57394fb Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sun, 18 May 2014 17:51:15 +0000 Subject: decl.c (gnat_to_gnu_entity): Do not consider that regular packed arrays can never be superflat. * gcc-interface/decl.c (gnat_to_gnu_entity) : Do not consider that regular packed arrays can never be superflat. From-SVN: r210583 --- gcc/ada/gcc-interface/decl.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'gcc/ada/gcc-interface') diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index ff1210e..59ec057 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -2420,8 +2420,10 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) we can just use the high bound of the index type. */ else if ((Nkind (gnat_index) == N_Range && cannot_be_superflat_p (gnat_index)) - /* Packed Array Types are never superflat. */ - || Is_Packed_Array_Type (gnat_entity)) + /* Bit-Packed Array Types are never superflat. */ + || (Is_Packed_Array_Type (gnat_entity) + && Is_Bit_Packed_Array + (Original_Array_Type (gnat_entity)))) gnu_high = gnu_max; /* Otherwise, if the high bound is constant but the low bound is -- cgit v1.1