OSDN Git Service

Revert:
authorjanis <janis@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 6 Sep 2007 18:07:14 +0000 (18:07 +0000)
committerjanis <janis@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 6 Sep 2007 18:07:14 +0000 (18:07 +0000)
2007-09-06  Eric Botcazou  <ebotcazou@adacore.com>

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@128199 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ada/ChangeLog
gcc/ada/trans.c

index 9955177..7ec2c1d 100644 (file)
@@ -1,3 +1,11 @@
+2007-09-06  Janis Johnson  <janis187@us.ibm.com>
+
+       Revert:
+
+       2007-09-06  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * trans.c (convert_with_check): Update call to real_2expN.
+
 2007-09-06  Eric Botcazou  <ebotcazou@adacore.com>
 
        * trans.c (convert_with_check): Update call to real_2expN.
index 2479775..4d79cb3 100644 (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, 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);