diff options
| author | Richard Sandiford <rdsandiford@googlemail.com> | 2013-11-18 14:51:35 +0000 |
|---|---|---|
| committer | Richard Sandiford <rsandifo@gcc.gnu.org> | 2013-11-18 14:51:35 +0000 |
| commit | 5a36c51b09466ab6c403be328a970aa65e47bc90 (patch) | |
| tree | 8468c5d166122c233a29c09bc14a7da63239676d /gcc/ada/gcc-interface | |
| parent | cc269bb6d9f1538870dc94bc3b8cad8f749d1204 (diff) | |
| download | gcc-5a36c51b09466ab6c403be328a970aa65e47bc90.zip gcc-5a36c51b09466ab6c403be328a970aa65e47bc90.tar.gz gcc-5a36c51b09466ab6c403be328a970aa65e47bc90.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada/gcc-interface')
| -rw-r--r-- | gcc/ada/gcc-interface/cuintp.c | 4 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 4 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 4 |
3 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/gcc-interface/cuintp.c b/gcc/ada/gcc-interface/cuintp.c index d3c19ae..dee5316 100644 --- 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 3ad53c4..bbeb9a9 100644 --- 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 4588c52..0e4099c 100644 --- 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 |