diff options
| author | Janis Johnson <janis187@us.ibm.com> | 2007-09-06 18:07:14 +0000 |
|---|---|---|
| committer | Janis Johnson <janis@gcc.gnu.org> | 2007-09-06 18:07:14 +0000 |
| commit | 4b459ae43fc0c0db660394d4abf0f754d2202c6a (patch) | |
| tree | 0075169e40a0399de5e993075e39d4162007e089 /gcc | |
| parent | c81a043c136b5821c8b3ebe2831bf89a972ca0cf (diff) | |
| download | gcc-4b459ae43fc0c0db660394d4abf0f754d2202c6a.zip gcc-4b459ae43fc0c0db660394d4abf0f754d2202c6a.tar.gz gcc-4b459ae43fc0c0db660394d4abf0f754d2202c6a.tar.bz2 | |
Revert:
2007-09-06 Eric Botcazou <ebotcazou@adacore.com>
* trans.c (convert_with_check): Update call to real_2expN.
From-SVN: r128199
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/ada/trans.c | 2 |
2 files changed, 9 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 9955177..7ec2c1d 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,11 @@ +2007-09-06 Janis Johnson <janis187@us.ibm.com> + + Revert: + + 2007-09-06 Eric Botcazou <ebotcazou@adacore.com> + + * trans.c (convert_with_check): Update call to real_2expN. + 2007-09-06 Eric Botcazou <ebotcazou@adacore.com> * trans.c (convert_with_check): Update call to real_2expN. diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 2479775..4d79cb3 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -5893,7 +5893,7 @@ convert_with_check (Entity_Id gnat_type, tree gnu_expr, bool overflowp, /* Compute the exact value calc_type'Pred (0.5) at compile time. */ fmt = REAL_MODE_FORMAT (TYPE_MODE (calc_type)); - real_2expN (&half_minus_pred_half, -(fmt->p) - 1, TYPE_MODE (calc_type)); + real_2expN (&half_minus_pred_half, -(fmt->p) - 1); REAL_ARITHMETIC (pred_half, MINUS_EXPR, dconsthalf, half_minus_pred_half); gnu_pred_half = build_real (calc_type, pred_half); |