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/ada/trans.c | |
| 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/ada/trans.c')
| -rw-r--r-- | gcc/ada/trans.c | 2 |
1 files changed, 1 insertions, 1 deletions
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); |