OSDN Git Service

* stor-layout.c (finalize_type_size): Restore behaviour for
[pf3gnuchains/gcc-fork.git] / gcc / stor-layout.c
index 30eec87..8105855 100644 (file)
@@ -1,6 +1,6 @@
 /* C-compiler utilities for types and variables storage layout
    Copyright (C) 1987, 1988, 1992, 1993, 1994, 1995, 1996, 1996, 1998,
-   1999, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc.
+   1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
 
 This file is part of GCC.
 
@@ -16,8 +16,8 @@ for more details.
 
 You should have received a copy of the GNU General Public License
 along with GCC; see the file COPYING.  If not, write to the Free
-Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-02111-1307, USA.  */
+Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
+02110-1301, USA.  */
 
 
 #include "config.h"
@@ -30,6 +30,7 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 #include "flags.h"
 #include "function.h"
 #include "expr.h"
+#include "output.h"
 #include "toplev.h"
 #include "ggc.h"
 #include "target.h"
@@ -43,11 +44,9 @@ tree sizetype_tab[(int) TYPE_KIND_LAST];
 
 /* If nonzero, this is an upper limit on alignment of structure fields.
    The value is measured in bits.  */
-unsigned int maximum_field_alignment;
-
-/* If nonzero, the alignment of a bitstring or (power-)set value, in bits.
-   May be overridden by front-ends.  */
-unsigned int set_alignment = 0;
+unsigned int maximum_field_alignment = TARGET_DEFAULT_PACK_STRUCT * BITS_PER_UNIT;
+/* ... and its original value in bytes, specified via -fpack-struct=<value>.  */
+unsigned int initial_max_fld_align = TARGET_DEFAULT_PACK_STRUCT;
 
 /* Nonzero if all REFERENCE_TYPEs are internal and hence should be
    allocated in Pmode, not ptr_mode.   Set only by internal_reference_types
@@ -106,9 +105,7 @@ put_pending_size (tree expr)
 void
 put_pending_sizes (tree chain)
 {
-  if (pending_sizes)
-    abort ();
-
+  gcc_assert (!pending_sizes);
   pending_sizes = chain;
 }
 
@@ -149,7 +146,7 @@ variable_size (tree size)
   if (lang_hooks.decls.global_bindings_p ())
     {
       if (TREE_CONSTANT (size))
-       error ("type size can't be explicitly evaluated");
+       error ("type size can%'t be explicitly evaluated");
       else
        error ("variable-size type declared outside of any function");
 
@@ -218,7 +215,7 @@ smallest_mode_for_size (unsigned int size, enum mode_class class)
     if (GET_MODE_PRECISION (mode) >= size)
       return mode;
 
-  abort ();
+  gcc_unreachable ();
 }
 
 /* Find an integer mode of the exact same size, or BLKmode on failure.  */
@@ -248,7 +245,7 @@ int_mode_for_mode (enum machine_mode mode)
 
     case MODE_CC:
     default:
-      abort ();
+      gcc_unreachable ();
     }
 
   return mode;
@@ -300,10 +297,10 @@ layout_decl (tree decl, unsigned int known_align)
 
   if (code == CONST_DECL)
     return;
-  else if (code != VAR_DECL && code != PARM_DECL && code != RESULT_DECL
-          && code != TYPE_DECL && code != FIELD_DECL)
-    abort ();
-
+  
+  gcc_assert (code == VAR_DECL || code == PARM_DECL || code == RESULT_DECL
+             || code == TYPE_DECL ||code == FIELD_DECL);
+  
   rtl = DECL_RTL_IF_SET (decl);
 
   if (type == error_mark_node)
@@ -330,8 +327,8 @@ layout_decl (tree decl, unsigned int known_align)
     }
   else if (DECL_SIZE_UNIT (decl) == 0)
     DECL_SIZE_UNIT (decl)
-      = convert (sizetype, size_binop (CEIL_DIV_EXPR, DECL_SIZE (decl),
-                                      bitsize_unit_node));
+      = fold_convert (sizetype, size_binop (CEIL_DIV_EXPR, DECL_SIZE (decl),
+                                           bitsize_unit_node));
 
   if (code != FIELD_DECL)
     /* For non-fields, update the alignment from the type.  */
@@ -455,10 +452,10 @@ layout_decl (tree decl, unsigned int known_align)
          int size_as_int = TREE_INT_CST_LOW (size);
 
          if (compare_tree_int (size, size_as_int) == 0)
-           warning ("%Jsize of '%D' is %d bytes", decl, decl, size_as_int);
+           warning (0, "size of %q+D is %d bytes", decl, size_as_int);
          else
-           warning ("%Jsize of '%D' is larger than %d bytes",
-                     decl, decl, larger_than_size);
+           warning (0, "size of %q+D is larger than %wd bytes",
+                     decl, larger_than_size);
        }
     }
 
@@ -489,7 +486,7 @@ relayout_decl (tree decl)
 /* Hook for a front-end function that can modify the record layout as needed
    immediately before it is finalized.  */
 
-void (*lang_adjust_rli) (record_layout_info) = 0;
+static void (*lang_adjust_rli) (record_layout_info) = 0;
 
 void
 set_lang_adjust_rli (void (*f) (record_layout_info))
@@ -540,7 +537,8 @@ tree
 bit_from_pos (tree offset, tree bitpos)
 {
   return size_binop (PLUS_EXPR, bitpos,
-                    size_binop (MULT_EXPR, convert (bitsizetype, offset),
+                    size_binop (MULT_EXPR, 
+                                fold_convert (bitsizetype, offset),
                                 bitsize_unit_node));
 }
 
@@ -548,9 +546,9 @@ tree
 byte_from_pos (tree offset, tree bitpos)
 {
   return size_binop (PLUS_EXPR, offset,
-                    convert (sizetype,
-                             size_binop (TRUNC_DIV_EXPR, bitpos,
-                                         bitsize_unit_node)));
+                    fold_convert (sizetype,
+                                  size_binop (TRUNC_DIV_EXPR, bitpos,
+                                              bitsize_unit_node)));
 }
 
 void
@@ -558,9 +556,9 @@ pos_from_bit (tree *poffset, tree *pbitpos, unsigned int off_align,
              tree pos)
 {
   *poffset = size_binop (MULT_EXPR,
-                        convert (sizetype,
-                                 size_binop (FLOOR_DIV_EXPR, pos,
-                                             bitsize_int (off_align))),
+                        fold_convert (sizetype,
+                                      size_binop (FLOOR_DIV_EXPR, pos,
+                                                  bitsize_int (off_align))),
                         size_int (off_align / BITS_PER_UNIT));
   *pbitpos = size_binop (FLOOR_MOD_EXPR, pos, bitsize_int (off_align));
 }
@@ -580,7 +578,8 @@ normalize_offset (tree *poffset, tree *pbitpos, unsigned int off_align)
 
       *poffset
        = size_binop (PLUS_EXPR, *poffset,
-                     size_binop (MULT_EXPR, convert (sizetype, extra_aligns),
+                     size_binop (MULT_EXPR, 
+                                 fold_convert (sizetype, extra_aligns),
                                  size_int (off_align / BITS_PER_UNIT)));
 
       *pbitpos
@@ -636,9 +635,9 @@ rli_size_so_far (record_layout_info rli)
 }
 
 /* FIELD is about to be added to RLI->T.  The alignment (in bits) of
-   the next available location is given by KNOWN_ALIGN.  Update the
-   variable alignment fields in RLI, and return the alignment to give
-   the FIELD.  */
+   the next available location within the record is given by KNOWN_ALIGN.
+   Update the variable alignment fields in RLI, and return the alignment
+   to give the FIELD.  */
 
 unsigned int
 update_alignment_for_field (record_layout_info rli, tree field,
@@ -684,6 +683,18 @@ update_alignment_for_field (record_layout_info rli, tree field,
            type_align = MIN (type_align, maximum_field_alignment);
          rli->record_align = MAX (rli->record_align, type_align);
          rli->unpacked_align = MAX (rli->unpacked_align, TYPE_ALIGN (type));
+         /* If we start a new run, make sure we start it properly aligned.  */
+         if ((!rli->prev_field
+              || integer_zerop (DECL_SIZE (field))
+              || integer_zerop (DECL_SIZE (rli->prev_field))
+              || !host_integerp (DECL_SIZE (rli->prev_field), 0)
+              || !host_integerp (TYPE_SIZE (type), 0)
+              || !simple_cst_equal (TYPE_SIZE (type),
+                                    TYPE_SIZE (TREE_TYPE (rli->prev_field)))
+              || (rli->remaining_in_alignment
+                  < tree_low_cst (DECL_SIZE (field), 0)))
+             && desired_align < type_align)
+           desired_align = type_align;
        }
     }
 #ifdef PCC_BITFIELD_TYPE_MATTERS
@@ -748,9 +759,9 @@ place_union_field (record_layout_info rli, tree field)
   if (TREE_CODE (rli->t) == UNION_TYPE)
     rli->offset = size_binop (MAX_EXPR, rli->offset, DECL_SIZE_UNIT (field));
   else if (TREE_CODE (rli->t) == QUAL_UNION_TYPE)
-    rli->offset = fold (build3 (COND_EXPR, sizetype,
-                               DECL_QUALIFIER (field),
-                               DECL_SIZE_UNIT (field), rli->offset));
+    rli->offset = fold_build3 (COND_EXPR, sizetype,
+                              DECL_QUALIFIER (field),
+                              DECL_SIZE_UNIT (field), rli->offset);
 }
 
 #if defined (PCC_BITFIELD_TYPE_MATTERS) || defined (BITFIELD_NBYTES_LIMITED)
@@ -822,7 +833,7 @@ place_field (record_layout_info rli, tree field)
     known_align = (tree_low_cst (rli->bitpos, 1)
                   & - tree_low_cst (rli->bitpos, 1));
   else if (integer_zerop (rli->offset))
-    known_align = BIGGEST_ALIGNMENT;
+    known_align = 0;
   else if (host_integerp (rli->offset, 1))
     known_align = (BITS_PER_UNIT
                   * (tree_low_cst (rli->offset, 1)
@@ -831,6 +842,8 @@ place_field (record_layout_info rli, tree field)
     known_align = rli->offset_align;
 
   desired_align = update_alignment_for_field (rli, field, known_align);
+  if (known_align == 0)
+    known_align = MAX (BIGGEST_ALIGNMENT, rli->record_align);
 
   if (warn_packed && DECL_PACKED (field))
     {
@@ -839,11 +852,11 @@ place_field (record_layout_info rli, tree field)
          if (TYPE_ALIGN (type) > desired_align)
            {
              if (STRICT_ALIGNMENT)
-               warning ("%Jpacked attribute causes inefficient alignment "
-                         "for '%D'", field, field);
+               warning (OPT_Wattributes, "packed attribute causes "
+                         "inefficient alignment for %q+D", field);
              else
-               warning ("%Jpacked attribute is unnecessary for '%D'",
-                        field, field);
+               warning (OPT_Wattributes, "packed attribute is "
+                        "unnecessary for %q+D", field);
            }
        }
       else
@@ -857,8 +870,7 @@ place_field (record_layout_info rli, tree field)
       /* No, we need to skip space before this field.
         Bump the cumulative size to multiple of field alignment.  */
 
-      if (warn_padded)
-       warning ("%Jpadding struct to align '%D'", field, field);
+      warning (OPT_Wpadded, "padding struct to align %q+D", field);
 
       /* If the alignment is still within offset_align, just align
         the bit position.  */
@@ -869,9 +881,9 @@ place_field (record_layout_info rli, tree field)
          /* First adjust OFFSET by the partial bits, then align.  */
          rli->offset
            = size_binop (PLUS_EXPR, rli->offset,
-                         convert (sizetype,
-                                  size_binop (CEIL_DIV_EXPR, rli->bitpos,
-                                              bitsize_unit_node)));
+                         fold_convert (sizetype,
+                                       size_binop (CEIL_DIV_EXPR, rli->bitpos,
+                                                   bitsize_unit_node)));
          rli->bitpos = bitsize_zero_node;
 
          rli->offset = round_up (rli->offset, desired_align / BITS_PER_UNIT);
@@ -1003,18 +1015,30 @@ place_field (record_layout_info rli, tree field)
 
              if (rli->remaining_in_alignment < bitsize)
                {
-                 /* out of bits; bump up to next 'word'.  */
-                 rli->offset = DECL_FIELD_OFFSET (rli->prev_field);
-                 rli->bitpos
-                   = size_binop (PLUS_EXPR, TYPE_SIZE (type),
-                                 DECL_FIELD_BIT_OFFSET (rli->prev_field));
-                 rli->prev_field = field;
-                 rli->remaining_in_alignment
-                   = tree_low_cst (TYPE_SIZE (type), 0);
+                 /* If PREV_FIELD is packed, and we haven't lumped
+                    non-packed bitfields with it, treat this as if PREV_FIELD
+                    was not a bitfield.  This avoids anomalies where a packed
+                    bitfield with long long base type can take up more
+                    space than a same-size bitfield with base type short.  */
+                 if (rli->prev_packed)
+                   rli->prev_field = prev_saved = NULL;
+                 else
+                   {
+                     /* out of bits; bump up to next 'word'.  */
+                     rli->offset = DECL_FIELD_OFFSET (rli->prev_field);
+                     rli->bitpos
+                       = size_binop (PLUS_EXPR, TYPE_SIZE (type),
+                                     DECL_FIELD_BIT_OFFSET (rli->prev_field));
+                     rli->prev_field = field;
+                     rli->remaining_in_alignment
+                       = tree_low_cst (TYPE_SIZE (type), 0) - bitsize;
+                   }
                }
-
-             rli->remaining_in_alignment -= bitsize;
+             else
+               rli->remaining_in_alignment -= bitsize;
            }
+         else if (rli->prev_packed)
+           rli->prev_field = prev_saved = NULL;
          else
            {
              /* End of a run: if leaving a run of bitfields of the same type
@@ -1030,9 +1054,14 @@ place_field (record_layout_info rli, tree field)
                {
                  tree type_size = TYPE_SIZE (TREE_TYPE (rli->prev_field));
 
-                 rli->bitpos
-                   = size_binop (PLUS_EXPR, type_size,
-                                 DECL_FIELD_BIT_OFFSET (rli->prev_field));
+                 /* If the desired alignment is greater or equal to TYPE_SIZE,
+                    we have already adjusted rli->bitpos / rli->offset above.
+                  */
+                 if ((unsigned HOST_WIDE_INT) tree_low_cst (type_size, 0)
+                     > desired_align)
+                   rli->bitpos
+                     = size_binop (PLUS_EXPR, type_size,
+                                   DECL_FIELD_BIT_OFFSET (rli->prev_field));
                }
              else
                /* We "use up" size zero fields; the code below should behave
@@ -1046,6 +1075,7 @@ place_field (record_layout_info rli, tree field)
                rli->prev_field = NULL;
            }
 
+         rli->prev_packed = 0;
          normalize_rli (rli);
         }
 
@@ -1118,20 +1148,59 @@ place_field (record_layout_info rli, tree field)
     actual_align = (tree_low_cst (DECL_FIELD_BIT_OFFSET (field), 1)
                    & - tree_low_cst (DECL_FIELD_BIT_OFFSET (field), 1));
   else if (integer_zerop (DECL_FIELD_OFFSET (field)))
-    actual_align = BIGGEST_ALIGNMENT;
+    actual_align = MAX (BIGGEST_ALIGNMENT, rli->record_align);
   else if (host_integerp (DECL_FIELD_OFFSET (field), 1))
     actual_align = (BITS_PER_UNIT
                   * (tree_low_cst (DECL_FIELD_OFFSET (field), 1)
                      & - tree_low_cst (DECL_FIELD_OFFSET (field), 1)));
   else
     actual_align = DECL_OFFSET_ALIGN (field);
+  /* ACTUAL_ALIGN is still the actual alignment *within the record* .
+     store / extract bit field operations will check the alignment of the
+     record against the mode of bit fields.  */
 
   if (known_align != actual_align)
     layout_decl (field, actual_align);
 
-  /* Only the MS bitfields use this.  */
-  if (rli->prev_field == NULL && DECL_BIT_FIELD_TYPE(field))
-      rli->prev_field = field;
+  if (DECL_BIT_FIELD_TYPE (field))
+    {
+      unsigned int type_align = TYPE_ALIGN (type);
+
+      /* Only the MS bitfields use this.  We used to also put any kind of
+        packed bit fields into prev_field, but that makes no sense, because
+        an 8 bit packed bit field shouldn't impose more restriction on
+        following fields than a char field, and the alignment requirements
+        are also not fulfilled.
+        There is no sane value to set rli->remaining_in_alignment to when
+        a packed bitfield in prev_field is unaligned.  */
+      if (maximum_field_alignment != 0)
+       type_align = MIN (type_align, maximum_field_alignment);
+      gcc_assert (rli->prev_field
+                 || actual_align >= type_align || DECL_PACKED (field)
+                 || integer_zerop (DECL_SIZE (field))
+                 || !targetm.ms_bitfield_layout_p (rli->t));
+      if (rli->prev_field == NULL && actual_align >= type_align
+         && !integer_zerop (DECL_SIZE (field)))
+       {
+         rli->prev_field = field;
+         /* rli->remaining_in_alignment has not been set if the bitfield
+            has size zero, or if it is a packed bitfield.  */
+         rli->remaining_in_alignment
+           = (tree_low_cst (TYPE_SIZE (TREE_TYPE (field)), 0)
+              - tree_low_cst (DECL_SIZE (field), 0));
+         rli->prev_packed = DECL_PACKED (field);
+
+       }
+      else if (rli->prev_field && DECL_PACKED (field))
+       {
+         HOST_WIDE_INT bitsize = tree_low_cst (DECL_SIZE (field), 0);
+
+         if (rli->remaining_in_alignment < bitsize)
+           rli->prev_field = NULL;
+         else
+           rli->remaining_in_alignment -= bitsize;
+       }
+    }
 
   /* Now add size of this field to the size of the record.  If the size is
      not constant, treat the field as being a multiple of bytes and just
@@ -1147,9 +1216,9 @@ place_field (record_layout_info rli, tree field)
     {
       rli->offset
        = size_binop (PLUS_EXPR, rli->offset,
-                     convert (sizetype,
-                              size_binop (CEIL_DIV_EXPR, rli->bitpos,
-                                          bitsize_unit_node)));
+                     fold_convert (sizetype,
+                                   size_binop (CEIL_DIV_EXPR, rli->bitpos,
+                                               bitsize_unit_node)));
       rli->offset
        = size_binop (PLUS_EXPR, rli->offset, DECL_SIZE_UNIT (field));
       rli->bitpos = bitsize_zero_node;
@@ -1195,12 +1264,12 @@ finalize_record_size (record_layout_info rli)
 
   /* Round the size up to be a multiple of the required alignment.  */
   TYPE_SIZE (rli->t) = round_up (unpadded_size, TYPE_ALIGN (rli->t));
-  TYPE_SIZE_UNIT (rli->t) = round_up (unpadded_size_unit,
-                                     TYPE_ALIGN (rli->t) / BITS_PER_UNIT);
+  TYPE_SIZE_UNIT (rli->t)
+    = round_up (unpadded_size_unit, TYPE_ALIGN_UNIT (rli->t));
 
-  if (warn_padded && TREE_CONSTANT (unpadded_size)
+  if (TREE_CONSTANT (unpadded_size)
       && simple_cst_equal (unpadded_size, TYPE_SIZE (rli->t)) == 0)
-    warning ("padding struct size to alignment boundary");
+    warning (OPT_Wpadded, "padding struct size to alignment boundary");
 
   if (warn_packed && TREE_CODE (rli->t) == RECORD_TYPE
       && TYPE_PACKED (rli->t) && ! rli->packed_maybe_necessary
@@ -1230,16 +1299,19 @@ finalize_record_size (record_layout_info rli)
                name = IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (rli->t)));
 
              if (STRICT_ALIGNMENT)
-               warning ("packed attribute causes inefficient alignment for `%s'", name);
+               warning (OPT_Wpacked, "packed attribute causes inefficient "
+                        "alignment for %qs", name);
              else
-               warning ("packed attribute is unnecessary for `%s'", name);
+               warning (OPT_Wpacked,
+                        "packed attribute is unnecessary for %qs", name);
            }
          else
            {
              if (STRICT_ALIGNMENT)
-               warning ("packed attribute causes inefficient alignment");
+               warning (OPT_Wpacked,
+                        "packed attribute causes inefficient alignment");
              else
-               warning ("packed attribute is unnecessary");
+               warning (OPT_Wpacked, "packed attribute is unnecessary");
            }
        }
     }
@@ -1295,12 +1367,14 @@ compute_record_mode (tree type)
 #endif /* MEMBER_TYPE_FORCES_BLK  */
     }
 
-  /* If we only have one real field; use its mode.  This only applies to
-     RECORD_TYPE.  This does not apply to unions.  */
-  if (TREE_CODE (type) == RECORD_TYPE && mode != VOIDmode)
+  TYPE_MODE (type) = mode_for_size_tree (TYPE_SIZE (type), MODE_INT, 1);
+
+  /* If we only have one real field; use its mode if that mode's size
+     matches the type's size.  This only applies to RECORD_TYPE.  This
+     does not apply to unions.  */
+  if (TREE_CODE (type) == RECORD_TYPE && mode != VOIDmode
+      && GET_MODE_SIZE (mode) == GET_MODE_SIZE (TYPE_MODE (type)))
     TYPE_MODE (type) = mode;
-  else
-    TYPE_MODE (type) = mode_for_size_tree (TYPE_SIZE (type), MODE_INT, 1);
 
   /* If structure's known alignment is less than what the scalar
      mode would need, and it matters, then stick with BLKmode.  */
@@ -1325,15 +1399,22 @@ finalize_type_size (tree type)
   /* Normally, use the alignment corresponding to the mode chosen.
      However, where strict alignment is not required, avoid
      over-aligning structures, since most compilers do not do this
-     alignment.  */
+     alignment.  Also, we must avoid overriding a larger alignment
+     requirement coming from a user alignment of one of the fields.  */
+  /* ??? The non-aggregate code is also needed to reduce the alignment
+     of java types with alignment less than 16 bits.  The problem stems
+     from java/decl.c using char_type_node for the 16 bit character type,
+     while tree.c:make_node uses it as the type of the smallest addressable
+     unit to initialize the alignment of all types.  */
+  unsigned mode_align = GET_MODE_ALIGNMENT (TYPE_MODE (type));
 
   if (TYPE_MODE (type) != BLKmode && TYPE_MODE (type) != VOIDmode
-      && (STRICT_ALIGNMENT
+      && ((STRICT_ALIGNMENT && mode_align >= TYPE_ALIGN (type))
          || (TREE_CODE (type) != RECORD_TYPE && TREE_CODE (type) != UNION_TYPE
              && TREE_CODE (type) != QUAL_UNION_TYPE
              && TREE_CODE (type) != ARRAY_TYPE)))
     {
-      TYPE_ALIGN (type) = GET_MODE_ALIGNMENT (TYPE_MODE (type));
+      TYPE_ALIGN (type) = mode_align;
       TYPE_USER_ALIGN (type) = 0;
     }
 
@@ -1350,15 +1431,15 @@ finalize_type_size (tree type)
        result will fit in sizetype.  We will get more efficient code using
        sizetype, so we force a conversion.  */
     TYPE_SIZE_UNIT (type)
-      = convert (sizetype,
-                size_binop (FLOOR_DIV_EXPR, TYPE_SIZE (type),
-                            bitsize_unit_node));
+      = fold_convert (sizetype,
+                     size_binop (FLOOR_DIV_EXPR, TYPE_SIZE (type),
+                                 bitsize_unit_node));
 
   if (TYPE_SIZE (type) != 0)
     {
       TYPE_SIZE (type) = round_up (TYPE_SIZE (type), TYPE_ALIGN (type));
-      TYPE_SIZE_UNIT (type)
-       = round_up (TYPE_SIZE_UNIT (type), TYPE_ALIGN (type) / BITS_PER_UNIT);
+      TYPE_SIZE_UNIT (type) = round_up (TYPE_SIZE_UNIT (type),
+                                       TYPE_ALIGN_UNIT (type));
     }
 
   /* Evaluate nonconstant sizes only once, either now or as soon as safe.  */
@@ -1403,6 +1484,8 @@ finalize_type_size (tree type)
 void
 finish_record_layout (record_layout_info rli, int free_p)
 {
+  tree field;
+  
   /* Compute the final size.  */
   finalize_record_size (rli);
 
@@ -1412,6 +1495,15 @@ finish_record_layout (record_layout_info rli, int free_p)
   /* Perform any last tweaks to the TYPE_SIZE, etc.  */
   finalize_type_size (rli->t);
 
+  /* We might be able to clear DECL_PACKED on any members that happen
+     to be suitably aligned (not forgetting the alignment of the type
+     itself).  */
+  for (field = TYPE_FIELDS (rli->t); field; field = TREE_CHAIN (field))
+    if (TREE_CODE (field) == FIELD_DECL && DECL_PACKED (field)
+       && DECL_OFFSET_ALIGN (field) >= TYPE_ALIGN (TREE_TYPE (field))
+       && TYPE_ALIGN (rli->t) >= TYPE_ALIGN (TREE_TYPE (field)))
+      DECL_PACKED (field) = 0;
+  
   /* Lay out any static members.  This is done now because their type
      may use the record's type.  */
   while (rli->pending_statics)
@@ -1475,8 +1567,7 @@ finish_builtin_struct (tree type, const char *name, tree fields,
 void
 layout_type (tree type)
 {
-  if (type == 0)
-    abort ();
+  gcc_assert (type);
 
   if (type == error_mark_node)
     return;
@@ -1490,7 +1581,7 @@ layout_type (tree type)
     case LANG_TYPE:
       /* This kind of type is the responsibility
         of the language-specific code.  */
-      abort ();
+      gcc_unreachable ();
 
     case BOOLEAN_TYPE:  /* Used for Java, Pascal, and Chill.  */
       if (TYPE_PRECISION (type) == 0)
@@ -1534,8 +1625,7 @@ layout_type (tree type)
        tree nunits_tree = build_int_cst (NULL_TREE, nunits);
        tree innertype = TREE_TYPE (type);
 
-       if (nunits & (nunits - 1))
-         abort ();
+       gcc_assert (!(nunits & (nunits - 1)));
 
        /* Find an appropriate mode for the vector type.  */
        if (TYPE_MODE (type) == VOIDmode)
@@ -1573,6 +1663,10 @@ layout_type (tree type)
                                                 nunits_tree, 0);
        TYPE_SIZE (type) = int_const_binop (MULT_EXPR, TYPE_SIZE (innertype),
                                            nunits_tree, 0);
+
+       /* Always naturally align vectors.  This prevents ABI changes
+          depending on whether or not native vector modes are supported.  */
+       TYPE_ALIGN (type) = tree_low_cst (TYPE_SIZE (type), 0);
         break;
       }
 
@@ -1637,10 +1731,10 @@ layout_type (tree type)
            /* The initial subtraction should happen in the original type so
               that (possible) negative values are handled appropriately.  */
            length = size_binop (PLUS_EXPR, size_one_node,
-                                convert (sizetype,
-                                         fold (build2 (MINUS_EXPR,
-                                                       TREE_TYPE (lb),
-                                                       ub, lb))));
+                                fold_convert (sizetype,
+                                              fold_build2 (MINUS_EXPR,
+                                                           TREE_TYPE (lb),
+                                                           ub, lb)));
 
            /* Special handling for arrays of bits (for Chill).  */
            element_size = TYPE_SIZE (element);
@@ -1669,7 +1763,8 @@ layout_type (tree type)
              length = size_binop (MAX_EXPR, length, size_zero_node);
 
            TYPE_SIZE (type) = size_binop (MULT_EXPR, element_size,
-                                          convert (bitsizetype, length));
+                                          fold_convert (bitsizetype, 
+                                                        length));
 
            /* If we know the size of the element, calculate the total
               size directly, rather than do some division thing below.
@@ -1755,46 +1850,8 @@ layout_type (tree type)
       }
       break;
 
-    case SET_TYPE:  /* Used by Chill and Pascal.  */
-      if (TREE_CODE (TYPE_MAX_VALUE (TYPE_DOMAIN (type))) != INTEGER_CST
-         || TREE_CODE (TYPE_MIN_VALUE (TYPE_DOMAIN (type))) != INTEGER_CST)
-       abort ();
-      else
-       {
-#ifndef SET_WORD_SIZE
-#define SET_WORD_SIZE BITS_PER_WORD
-#endif
-         unsigned int alignment
-           = set_alignment ? set_alignment : SET_WORD_SIZE;
-         HOST_WIDE_INT size_in_bits
-           = (tree_low_cst (TYPE_MAX_VALUE (TYPE_DOMAIN (type)), 0)
-              - tree_low_cst (TYPE_MIN_VALUE (TYPE_DOMAIN (type)), 0) + 1);
-         HOST_WIDE_INT rounded_size
-           = ((size_in_bits + alignment - 1) / alignment) * alignment;
-
-         if (rounded_size > (int) alignment)
-           TYPE_MODE (type) = BLKmode;
-         else
-           TYPE_MODE (type) = mode_for_size (alignment, MODE_INT, 1);
-
-         TYPE_SIZE (type) = bitsize_int (rounded_size);
-         TYPE_SIZE_UNIT (type) = size_int (rounded_size / BITS_PER_UNIT);
-         TYPE_ALIGN (type) = alignment;
-         TYPE_USER_ALIGN (type) = 0;
-         TYPE_PRECISION (type) = size_in_bits;
-       }
-      break;
-
-    case FILE_TYPE:
-      /* The size may vary in different languages, so the language front end
-        should fill in the size.  */
-      TYPE_ALIGN (type) = BIGGEST_ALIGNMENT;
-      TYPE_USER_ALIGN (type) = 0;
-      TYPE_MODE  (type) = BLKmode;
-      break;
-
     default:
-      abort ();
+      gcc_unreachable ();
     }
 
   /* Compute the final TYPE_SIZE, TYPE_ALIGN, etc. for TYPE.  For
@@ -1884,8 +1941,7 @@ set_sizetype (tree type)
                       2 * HOST_BITS_PER_WIDE_INT);
   tree t;
 
-  if (TYPE_UNSIGNED (type) != TYPE_UNSIGNED (sizetype))
-    abort ();
+  gcc_assert (TYPE_UNSIGNED (type) == TYPE_UNSIGNED (sizetype));
 
   t = build_distinct_type_copy (type);
   /* We do want to use sizetype's cache, as we will be replacing that
@@ -2107,8 +2163,7 @@ get_mode_bounds (enum machine_mode mode, int sign,
   unsigned size = GET_MODE_BITSIZE (mode);
   unsigned HOST_WIDE_INT min_val, max_val;
 
-  if (size > HOST_BITS_PER_WIDE_INT)
-    abort ();
+  gcc_assert (size <= HOST_BITS_PER_WIDE_INT);
 
   if (sign)
     {
@@ -2121,8 +2176,8 @@ get_mode_bounds (enum machine_mode mode, int sign,
       max_val = ((unsigned HOST_WIDE_INT) 1 << (size - 1) << 1) - 1;
     }
 
-  *mmin = GEN_INT (trunc_int_for_mode (min_val, target_mode));
-  *mmax = GEN_INT (trunc_int_for_mode (max_val, target_mode));
+  *mmin = gen_int_mode (min_val, target_mode);
+  *mmax = gen_int_mode (max_val, target_mode);
 }
 
 #include "gt-stor-layout.h"