ada-tree.h (TYPE_PACKED_ARRAY_TYPE_P): Only set it when bit-packed.
authorEric Botcazou <ebotcazou@adacore.com>
Tue, 8 Apr 2008 12:25:49 +0000 (12:25 +0000)
committerEric Botcazou <ebotcazou@gcc.gnu.org>
Tue, 8 Apr 2008 12:25:49 +0000 (12:25 +0000)
commit2b3dffa66b6294bea45c75538efdf5fe9fd53293
tree9abd7e33f14317e7d1a999389d28d0488b0ce318
parentba3f46d0910139e56300a68bc7992c0217b7adb9
ada-tree.h (TYPE_PACKED_ARRAY_TYPE_P): Only set it when bit-packed.

* ada-tree.h (TYPE_PACKED_ARRAY_TYPE_P): Only set it when bit-packed.
* decl.c (gnat_to_gnu_entity): Adjust for above change.
<E_Record_Type>: Try to get a better form of the component for
packing, even if it has an integral mode.
<E_Record_Subtype>: Likewise.
* trans.c (gnat_to_gnu): Do not require BLKmode for the special
exception suppressing the final conversion between record types.

Co-Authored-By: Richard Kenner <kenner@adacore.com>
From-SVN: r134093
gcc/ada/ChangeLog
gcc/ada/ada-tree.h
gcc/ada/decl.c
gcc/ada/trans.c
gcc/testsuite/ChangeLog
gcc/testsuite/gnat.dg/pack6.adb [new file with mode: 0644]
gcc/testsuite/gnat.dg/pack7.adb [new file with mode: 0644]
gcc/testsuite/gnat.dg/pack8.adb [new file with mode: 0644]