From: Eric Botcazou <ebotcazou@adacore.com>
Date: Thu, 6 Sep 2007 14:47:56 +0000 (+0000)
Subject: trans.c (convert_with_check): Update call to real_2expN.
X-Git-Tag: releases/gcc-4.3.0~2824
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=38f1f8cb89ef7a7e971d5fa44c9c67ef2536a08f;p=thirdparty%2Fgcc.git

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

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

From-SVN: r128185
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 30eab6919f97..9955177e7a2f 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 4d79cb3f9b6b..24797753fd88 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);