decl.c (gnat_to_gnu_entity): Do not bother propagating the TYPE_USER_ALIGN flag when...

	* decl.c (gnat_to_gnu_entity) <E_Signed_Integer_Subtype>: Do not
	bother propagating the TYPE_USER_ALIGN flag when creating a JM type.

From-SVN: r133032

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index ba99678f9d6f402e3794891b06daa812d258aa4e..1f3665585e869ccf48b3986d0adae2b9b0f07216 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2008-03-08  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * decl.c (gnat_to_gnu_entity) <E_Signed_Integer_Subtype>: Do not
+       bother propagating the TYPE_USER_ALIGN flag when creating a JM type.
+
 2008-03-08  Eric Botcazou  <ebotcazou@adacore.com>
 
        * decl.c (gnat_to_gnu_entity) <E_Record_Type>: Do not force

diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c
index 2c88c0fe57615d2fa4451adc41f03a6fd601629c..c75de3f8af66b4f0d68208722dc1fd4bf637c4b1 100644 (file)
--- a/gcc/ada/decl.c
+++ b/gcc/ada/decl.c
@@ -1484,7 +1484,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
         such values), we only get the good bits, since the unused bits
         are uninitialized.  Both goals are accomplished by wrapping the
         modular value in an enclosing struct.  */
-       if (Is_Packed_Array_Type (gnat_entity))
+      if (Is_Packed_Array_Type (gnat_entity))
        {
          tree gnu_field_type = gnu_type;
          tree gnu_field;
@@ -1499,7 +1499,6 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
             their size, which may seem counter-intuitive but makes it
             possible to easily overlay them on modular types.  */
          TYPE_ALIGN (gnu_type) = TYPE_ALIGN (gnu_field_type);
-         TYPE_USER_ALIGN (gnu_type) = TYPE_USER_ALIGN (gnu_field_type);
          TYPE_PACKED (gnu_type) = 1;
 
          /* Create a stripped-down declaration of the original type, mainly