mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-26 17:46:35 +08:00
Code Issues Packages Projects Releases Wiki Activity

trans.c (convert_with_check): Update call to real_2expN.

Browse Source 
* trans.c (convert_with_check): Update call to real_2expN.

From-SVN: r128185
This commit is contained in:
Eric Botcazou 2007-09-06 14:47:56 +00:00 committed by Eric Botcazou
parent d42a3bae0f
commit 38f1f8cb89
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -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.

2
gcc/ada/trans.c
View File

@ -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);