diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2014-05-18 17:51:15 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2014-05-18 17:51:15 +0000 |
| commit | f9d7d7c14cc8fe8c62e22c1edc5d4e2db57394fb (patch) | |
| tree | 37272c95b9880b1c4c9fe608e883246f0c1b20ac /gcc/ada/gcc-interface/decl.c | |
| parent | 72832460613861d967657f01b003b25d4baa4587 (diff) | |
| download | gcc-f9d7d7c14cc8fe8c62e22c1edc5d4e2db57394fb.zip gcc-f9d7d7c14cc8fe8c62e22c1edc5d4e2db57394fb.tar.gz gcc-f9d7d7c14cc8fe8c62e22c1edc5d4e2db57394fb.tar.bz2 | |
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) <E_Array_Subtype>: Do not
consider that regular packed arrays can never be superflat.
From-SVN: r210583
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 6 |
1 files changed, 4 insertions, 2 deletions
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 |