diff options
Diffstat (limited to 'gcc/ada/trans.c')
| -rw-r--r-- | gcc/ada/trans.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 4d79cb3..2479775 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); |