From 38f1f8cb89ef7a7e971d5fa44c9c67ef2536a08f Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Thu, 6 Sep 2007 14:47:56 +0000 Subject: [PATCH] trans.c (convert_with_check): Update call to real_2expN. * trans.c (convert_with_check): Update call to real_2expN. From-SVN: r128185 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/trans.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 30eab6919f9..9955177e7a2 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2007-09-06 Eric Botcazou + + * trans.c (convert_with_check): Update call to real_2expN. + 2007-09-05 Sandra Loosemore * trans.c (Compilation_unit_to_gnu): Use set_cfun. diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 4d79cb3f9b6..24797753fd8 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); -- 2.30.2