From 2b3dffa66b6294bea45c75538efdf5fe9fd53293 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Tue, 8 Apr 2008 12:25:49 +0000 Subject: 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. : Try to get a better form of the component for packing, even if it has an integral mode. : 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 From-SVN: r134093 --- gcc/ada/ada-tree.h | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'gcc/ada/ada-tree.h') 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) \ -- cgit v1.1