diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2008-04-08 12:25:49 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2008-04-08 12:25:49 +0000 |
| commit | 2b3dffa66b6294bea45c75538efdf5fe9fd53293 (patch) | |
| tree | 9abd7e33f14317e7d1a999389d28d0488b0ce318 /gcc/ada/ada-tree.h | |
| parent | ba3f46d0910139e56300a68bc7992c0217b7adb9 (diff) | |
| download | gcc-2b3dffa66b6294bea45c75538efdf5fe9fd53293.zip gcc-2b3dffa66b6294bea45c75538efdf5fe9fd53293.tar.gz gcc-2b3dffa66b6294bea45c75538efdf5fe9fd53293.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada/ada-tree.h')
| -rw-r--r-- | gcc/ada/ada-tree.h | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/ada-tree.h b/gcc/ada/ada-tree.h index 27f9ef6a..544138e 100644 --- a/gcc/ada/ada-tree.h +++ b/gcc/ada/ada-tree.h @@ -69,8 +69,9 @@ struct lang_type GTY(()) {tree t; }; #define TYPE_FAT_POINTER_P(NODE) \ (TREE_CODE (NODE) == RECORD_TYPE && TYPE_IS_FAT_POINTER_P (NODE)) -/* For integral types and array types, nonzero if this is a packed array type. - Such types should not be extended to a larger size. */ +/* For integral types and array types, nonzero if this is a packed array type + used for bit-packed types. Such types should not be extended to a larger + size or validated against a specified size. */ #define TYPE_PACKED_ARRAY_TYPE_P(NODE) TYPE_LANG_FLAG_0 (NODE) #define TYPE_IS_PACKED_ARRAY_TYPE_P(NODE) \ |