diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2007-09-06 14:47:56 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2007-09-06 14:47:56 +0000 |
| commit | 38f1f8cb89ef7a7e971d5fa44c9c67ef2536a08f (patch) | |
| tree | 893944621735d3c6952ba0d823c06fafea4b9147 /gcc | |
| parent | d42a3bae0faadc14581321d391afd8ccbd18aa44 (diff) | |
| download | gcc-38f1f8cb89ef7a7e971d5fa44c9c67ef2536a08f.zip gcc-38f1f8cb89ef7a7e971d5fa44c9c67ef2536a08f.tar.gz gcc-38f1f8cb89ef7a7e971d5fa44c9c67ef2536a08f.tar.bz2 | |
trans.c (convert_with_check): Update call to real_2expN.
* trans.c (convert_with_check): Update call to real_2expN.
From-SVN: r128185
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/trans.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 30eab69..9955177 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2007-09-06 Eric Botcazou <ebotcazou@adacore.com> + + * trans.c (convert_with_check): Update call to real_2expN. + 2007-09-05 Sandra Loosemore <sandra@codesourcery.com> * trans.c (Compilation_unit_to_gnu): Use set_cfun. diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 4d79cb3..2479775 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); + real_2expN (&half_minus_pred_half, -(fmt->p) - 1, TYPE_MODE (calc_type)); REAL_ARITHMETIC (pred_half, MINUS_EXPR, dconsthalf, half_minus_pred_half); gnu_pred_half = build_real (calc_type, pred_half); |