decl.c (maybe_pad_type): Use value_factor_p.

	* decl.c (maybe_pad_type): Use value_factor_p.

From-SVN: r133039

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 904d73085f673cb77741f09d80870d2c20989263..c3c9cadc2b82a27e2d2f52d139365f1e30ae7703 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2008-03-08  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * decl.c (maybe_pad_type): Use value_factor_p.
+
 2008-03-08  Eric Botcazou  <ebotcazou@adacore.com>
 
        * lang.opt (nostdlib): Move around.

diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c
index c75de3f8af66b4f0d68208722dc1fd4bf637c4b1..c0306bdd8eff07b907bc3ee2cb7a5686f2353ed0 100644 (file)
--- a/gcc/ada/decl.c
+++ b/gcc/ada/decl.c
@@ -5534,8 +5534,7 @@ maybe_pad_type (tree type, tree size, unsigned int align,
      with the specified alignment.  */
   if (!size
       && INTEGRAL_TYPE_P (type)
-      && host_integerp (orig_size, 1)
-      && (TREE_INT_CST_LOW (orig_size) % align) == 0)
+      && value_factor_p (orig_size, align))
     {
       type = copy_type (type);
       TYPE_ALIGN (type) = align;
@@ -5570,12 +5569,12 @@ maybe_pad_type (tree type, tree size, unsigned int align,
   if (align != 0
       && TREE_CODE (type) == RECORD_TYPE
       && TYPE_MODE (type) == BLKmode
-      && host_integerp (orig_size, 1)
+      && TREE_CODE (orig_size) == INTEGER_CST
       && compare_tree_int (orig_size, MAX_FIXED_MODE_SIZE) <= 0
       && (!size
          || (TREE_CODE (size) == INTEGER_CST
              && compare_tree_int (size, MAX_FIXED_MODE_SIZE) <= 0))
-      && tree_low_cst (orig_size, 1) % align == 0)
+      && value_factor_p (orig_size, align))
     type = make_packable_type (type, true);
 
   field  = create_field_decl (get_identifier ("F"), type, record, 0,