revert: re PR ada/35186 (implicit assumption about alignment of DImode)

        Revert
        2008-03-05  Eric Botcazou  <ebotcazou@adacore.com>
        PR ada/35186
        * decl.c (maybe_pad_type): Avoid padding an integral type when
        bumping its alignment is sufficient.

From-SVN: r133526

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index a807aac85affb3b916124970f14e6c60a517e450..3f19ec1c433568c19ea1789b5d6524ede1882ec5 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,11 @@
+2008-03-25  Eric Botcazou  <ebotcazou@adacore.com>
+
+       Revert
+       2008-03-05  Eric Botcazou  <ebotcazou@adacore.com>
+       PR ada/35186
+       * decl.c (maybe_pad_type): Avoid padding an integral type when
+       bumping its alignment is sufficient.
+
 2008-03-25  Arnaud Charlet  <charlet@adacore.com>
 
        * exp_ch6.adb, exp_disp.adb: Update copyright notice.

diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c
index c0306bdd8eff07b907bc3ee2cb7a5686f2353ed0..f7b51d5c9779bd5f0f85a95b7368ece326e07ed1 100644 (file)
--- a/gcc/ada/decl.c
+++ b/gcc/ada/decl.c
@@ -5529,18 +5529,6 @@ maybe_pad_type (tree type, tree size, unsigned int align,
   if (align == 0 && !size)
     return type;
 
-  /* If no size is specified and we have an integral type, and changing
-     the alignment won't change its size, return a copy of the type
-     with the specified alignment.  */
-  if (!size
-      && INTEGRAL_TYPE_P (type)
-      && value_factor_p (orig_size, align))
-    {
-      type = copy_type (type);
-      TYPE_ALIGN (type) = align;
-      return type;
-    }
-
   /* We used to modify the record in place in some cases, but that could
      generate incorrect debugging information.  So make a new record
      type and name.  */