cuintp.c: Update comments to refer to tree_fits_shwi_p rather than host_integerp.

gcc/ada/
	* gcc-interface/cuintp.c: Update comments to refer to
	tree_fits_shwi_p rather than host_integerp.
	* gcc-interface/decl.c (gnat_to_gnu_entity): Use tree_fits_uhwi_p
	rather than host_integerp.
	* gcc-interface/utils.c (rest_of_record_type_compilation): Likewise.

gcc/
	* expr.h: Update comments to refer to tree_fits_[su]hwi_p rather
	than host_integerp.

From-SVN: r204957

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index e91f89564cb8a0e63874efe32118b0fa9b7b9e0b..20504ae3b560762d72918287cfe40475d0a9cf3d 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2013-11-18  Richard Sandiford  <rdsandiford@googlemail.com>
+
+       * expr.h: Update comments to refer to tree_fits_[su]hwi_p rather
+       than host_integerp.
+
 2013-11-18  Richard Sandiford  <rdsandiford@googlemail.com>
 
        * builtins.c, config/alpha/alpha.c, config/iq2000/iq2000.c,

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 3b9af6edfacbb577287d66fc882a87014b77d21d..de5b8812cf8b6f630af6ce8778b47fd7e24e92f6 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,11 @@
+2013-11-18  Richard Sandiford  <rdsandiford@googlemail.com>
+
+       * gcc-interface/cuintp.c: Update comments to refer to
+       tree_fits_shwi_p rather than host_integerp.
+       * gcc-interface/decl.c (gnat_to_gnu_entity): Use tree_fits_uhwi_p
+       rather than host_integerp.
+       * gcc-interface/utils.c (rest_of_record_type_compilation): Likewise.
+
 2013-11-18  Richard Sandiford  <rdsandiford@googlemail.com>
 
        * gcc-interface/decl.c, gcc-interface/misc.c, gcc-interface/utils.c:

diff --git a/gcc/ada/gcc-interface/cuintp.c b/gcc/ada/gcc-interface/cuintp.c
index d3c19aed0e4296ad4427b44fa3459574912a729e..dee53164442958e0f96b4761d37aacc55a365f43 100644 (file)
--- a/gcc/ada/gcc-interface/cuintp.c
+++ b/gcc/ada/gcc-interface/cuintp.c
@@ -150,7 +150,7 @@ UI_From_gnu (tree Input)
   Int_Vector vec;
 
 #if HOST_BITS_PER_WIDE_INT == 64
-  /* On 64-bit hosts, host_integerp tells whether the input fits in a
+  /* On 64-bit hosts, tree_fits_shwi_p tells whether the input fits in a
      signed 64-bit integer.  Then a truncation tells whether it fits
      in a signed 32-bit integer.  */
   if (tree_fits_shwi_p (Input))
@@ -162,7 +162,7 @@ UI_From_gnu (tree Input)
   else
     return No_Uint;
 #else
-  /* On 32-bit hosts, host_integerp tells whether the input fits in a
+  /* On 32-bit hosts, tree_fits_shwi_p tells whether the input fits in a
      signed 32-bit integer.  Then a sign test tells whether it fits
      in a signed 64-bit integer.  */
   if (tree_fits_shwi_p (Input))

diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index 3ad53c4120d88de321a91cd621d488b6bb517be2..bbeb9a9fe5c92d8f61b1d5b8ab710f5c028f6f6a 100644 (file)
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -1484,8 +1484,8 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
            && AGGREGATE_TYPE_P (gnu_type)
            && tree_fits_uhwi_p (TYPE_SIZE_UNIT (gnu_type))
            && !(TYPE_IS_PADDING_P (gnu_type)
-                && !host_integerp (TYPE_SIZE_UNIT
-                                   (TREE_TYPE (TYPE_FIELDS (gnu_type))), 1)))
+                && !tree_fits_uhwi_p (TYPE_SIZE_UNIT
+                                      (TREE_TYPE (TYPE_FIELDS (gnu_type))))))
          static_p = true;
 
        /* Now create the variable or the constant and set various flags.  */

diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c
index 4588c52cf19fa1db3ff5907d15838c6eae6f3b78..0e4099ce529d682059703b9718788d8dc4b7fd07 100644 (file)
--- a/gcc/ada/gcc-interface/utils.c
+++ b/gcc/ada/gcc-interface/utils.c
@@ -1753,8 +1753,8 @@ rest_of_record_type_compilation (tree record_type)
                   && TREE_CODE (curpos) == PLUS_EXPR
                   && tree_fits_uhwi_p (TREE_OPERAND (curpos, 1))
                   && TREE_CODE (TREE_OPERAND (curpos, 0)) == MULT_EXPR
-                  && host_integerp
-                     (TREE_OPERAND (TREE_OPERAND (curpos, 0), 1), 1))
+                  && tree_fits_uhwi_p
+                     (TREE_OPERAND (TREE_OPERAND (curpos, 0), 1)))
            {
              tree offset = TREE_OPERAND (TREE_OPERAND (curpos, 0), 0);
              unsigned HOST_WIDE_INT addend

diff --git a/gcc/expr.h b/gcc/expr.h
index 6dc71dce6aeaaa1b6459333bc88a21fdd40068d6..a0221f7e894bb0ab188520cdded6cf843b4a15c0 100644 (file)
--- a/gcc/expr.h
+++ b/gcc/expr.h
@@ -26,7 +26,7 @@ along with GCC; see the file COPYING3.  If not see
 #include "rtl.h"
 /* For optimize_size */
 #include "flags.h"
-/* For host_integerp, tree_low_cst, fold_convert, size_binop, ssize_int,
+/* For tree_fits_[su]hwi_p, tree_low_cst, fold_convert, size_binop, ssize_int,
    TREE_CODE, TYPE_SIZE, int_size_in_bytes,    */
 #include "tree-core.h"
 /* For GET_MODE_BITSIZE, word_mode */