diff options
| author | Richard Henderson <rth@redhat.com> | 2002-09-17 02:30:47 -0700 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2002-09-17 02:30:47 -0700 |
| commit | eaff3bf8c3fca80a61ee8b00e13a6e8a0a11da37 (patch) | |
| tree | ac34a77939ea0c0f8fa6f3006381bc025c15b4f0 /gcc/ada/trans.c | |
| parent | 34bdc2473cd4064f5af53c29e557bd38c9fa17e4 (diff) | |
| download | gcc-eaff3bf8c3fca80a61ee8b00e13a6e8a0a11da37.zip gcc-eaff3bf8c3fca80a61ee8b00e13a6e8a0a11da37.tar.gz gcc-eaff3bf8c3fca80a61ee8b00e13a6e8a0a11da37.tar.bz2 | |
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
Diffstat (limited to 'gcc/ada/trans.c')
| -rw-r--r-- | gcc/ada/trans.c | 12 |
1 files changed, 7 insertions, 5 deletions
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 |