This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Use value_factor_p in more cases
- From: Eric Botcazou <ebotcazou at adacore dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Sat, 8 Mar 2008 21:02:00 +0100
- Subject: [Ada] Use value_factor_p in more cases
No functional changes.
Tested on i586-suse-linux, applied on the mainline.
2008-03-08 Eric Botcazou <ebotcazou@adacore.com>
* decl.c (maybe_pad_type): Use value_factor_p.
--
Eric Botcazou
Index: decl.c
===================================================================
--- decl.c (revision 133035)
+++ decl.c (working copy)
@@ -5534,8 +5534,7 @@ maybe_pad_type (tree type, tree size, un
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, un
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,