From eaff3bf8c3fca80a61ee8b00e13a6e8a0a11da37 Mon Sep 17 00:00:00 2001 From: Richard Henderson Date: Tue, 17 Sep 2002 02:30:47 -0700 Subject: trans.c (tree_transform): Use real_ldexp not REAL_VALUE_LDEXP. * trans.c (tree_transform): Use real_ldexp not REAL_VALUE_LDEXP. * config/dsp16xx/dsp16xx.md (fixuns_trunchfhi2): Use real_2expN. * config/mips/mips.md (fixuns_truncdfsi2): Likewise. (fixuns_truncdfdi2, fixuns_truncsfsi2, fixuns_truncsfdi2): Likewise. * config/m68k/m68k.c (floating_exact_log2): Use real_exponent and real_2expN instead of a loop. * doc/tm.texi (REAL_VALUE_LDEXP): Remove. (REAL_VALUE_RNDZINT, REAL_VALUE_UNSIGNED_RNDZINT): Remove. From-SVN: r57245 --- gcc/ada/trans.c | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'gcc/ada/trans.c') diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c index 2fafd48..92b7ceb 100644 --- a/gcc/ada/trans.c +++ b/gcc/ada/trans.c @@ -576,11 +576,13 @@ tree_transform (gnat_node) gigi_abort (336); else - gnu_result - = build_real (gnu_result_type, - REAL_VALUE_LDEXP - (TREE_REAL_CST (gnu_result), - - UI_To_Int (Denominator (ur_realval)))); + { + REAL_VALUE_TYPE tmp; + + real_ldexp (&tmp, &TREE_REAL_CST (gnu_result), + - UI_To_Int (Denominator (ur_realval))); + gnu_result = build_real (gnu_result_type, tmp); + } } /* Now see if we need to negate the result. Do it this way to -- cgit v1.1