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

* trans.c (convert_with_check): Update call to real_2expN. From-SVN: r128185

trans.c (convert_with_check): Update call to real_2expN.
* trans.c (convert_with_check): Update call to real_2expN. From-SVN: r128185
38f1f8cb · Eric Botcazou · Eric Botcazou · d42a3bae · 38f1f8cb · 38f1f8cb
Commit 38f1f8cb authored Sep 06, 2007 by Eric Botcazou Committed by Eric Botcazou Sep 06, 2007
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 1 deletions

gcc/ada/ChangeLog
+4 -0

gcc/ada/trans.c
+1 -1

No files found.
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
+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.
--- 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);