From 4b459ae43fc0c0db660394d4abf0f754d2202c6a Mon Sep 17 00:00:00 2001 From: Janis Johnson Date: Thu, 6 Sep 2007 18:07:14 +0000 Subject: [PATCH] Revert: 2007-09-06 Eric Botcazou * trans.c (convert_with_check): Update call to real_2expN. From-SVN: r128199 --- gcc/ada/ChangeLog | 8 ++++++++ gcc/ada/trans.c | 2 +- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 9955177e7a2..7ec2c1d2cdd 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,11 @@ +2007-09-06 Janis Johnson + + Revert: + + 2007-09-06 Eric Botcazou + + * trans.c (convert_with_check): Update call to real_2expN. + 2007-09-06 Eric Botcazou * trans.c (convert_with_check): Update call to real_2expN. diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 24797753fd8..4d79cb3f9b6 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, 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); -- 2.30.2