diff options
| author | Manuel López-Ibáñez <manu@gcc.gnu.org> | 2006-11-23 18:49:22 +0000 |
|---|---|---|
| committer | Manuel López-Ibáñez <manu@gcc.gnu.org> | 2006-11-23 18:49:22 +0000 |
| commit | 313f234ba168ed8376ef0e2d874989dfa54aa336 (patch) | |
| tree | df3f642a41dbe83c7c2667bea513265952d3112a /gcc | |
| parent | 05170031abc9baabb16c0f181228bd9343b0bfc4 (diff) | |
| download | gcc-313f234ba168ed8376ef0e2d874989dfa54aa336.zip gcc-313f234ba168ed8376ef0e2d874989dfa54aa336.tar.gz gcc-313f234ba168ed8376ef0e2d874989dfa54aa336.tar.bz2 | |
real.h (real_isinteger): Declare.
2006-11-23 Manuel Lopez-Ibanez <manu@gcc.gnu.org>
* real.h (real_isinteger): Declare.
* real.c (real_isinteger): Define.
* builtins.c (integer_valued_real_p): Use it.
From-SVN: r119130
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/builtins.c | 10 | ||||
| -rw-r--r-- | gcc/real.c | 11 | ||||
| -rw-r--r-- | gcc/real.h | 3 |
4 files changed, 21 insertions, 9 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index f649c7b..0244e45 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,5 +1,11 @@ 2006-11-23 Manuel Lopez-Ibanez <manu@gcc.gnu.org> + * real.h (real_isinteger): Declare. + * real.c (real_isinteger): Define. + * builtins.c (integer_valued_real_p): Use it. + +2006-11-23 Manuel Lopez-Ibanez <manu@gcc.gnu.org> + PR c/9072 * c.opt (Wtraditional-conversion): New. (Wconversion): Update description. diff --git a/gcc/builtins.c b/gcc/builtins.c index 4e4ea96..75b47fb 100644 --- a/gcc/builtins.c +++ b/gcc/builtins.c @@ -6677,15 +6677,7 @@ integer_valued_real_p (tree t) && integer_valued_real_p (TREE_OPERAND (t, 2)); case REAL_CST: - if (! TREE_CONSTANT_OVERFLOW (t)) - { - REAL_VALUE_TYPE c, cint; - - c = TREE_REAL_CST (t); - real_trunc (&cint, TYPE_MODE (TREE_TYPE (t)), &c); - return real_identical (&c, &cint); - } - break; + return real_isinteger (TREE_REAL_CST_PTR (t), TYPE_MODE (TREE_TYPE (t))); case NOP_EXPR: { @@ -4968,3 +4968,14 @@ real_from_mpfr (REAL_VALUE_TYPE *r, mpfr_srcptr m) real_from_string (r, buf); } + +/* Check whether the real constant value given is an integer. */ + +bool +real_isinteger (const REAL_VALUE_TYPE *c, enum machine_mode mode) +{ + REAL_VALUE_TYPE cint; + + real_trunc (&cint, mode, c); + return real_identical (c, &cint); +} @@ -433,4 +433,7 @@ extern void real_copysign (REAL_VALUE_TYPE *, const REAL_VALUE_TYPE *); extern void real_from_mpfr (REAL_VALUE_TYPE *, mpfr_srcptr); extern void mpfr_from_real (mpfr_ptr, const REAL_VALUE_TYPE *); +/* Check whether the real constant value given is an integer. */ +extern bool real_isinteger (const REAL_VALUE_TYPE *c, enum machine_mode mode); + #endif /* ! GCC_REAL_H */ |