diff options
author | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2002-12-16 00:56:03 +0000 |
---|---|---|
committer | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2002-12-16 00:56:03 +0000 |
commit | 2c732d0395f02c6e415aadeb963ab8d9c24a2efa (patch) | |
tree | 6696693e53b4db27051f0007e2e4f105a298d0ec /exp.c | |
parent | 94680bf0c2219d8eab5c939ab565528d50dbae73 (diff) | |
download | mpfr-2c732d0395f02c6e415aadeb963ab8d9c24a2efa.tar.gz |
Suppress some #define and fix symbol names (makes code cleaner):
perl -pi -e 's/__mpfr_flags/__gmpfr_flags/g' **/*.{c,h}
perl -pi -e 's/__mpfr_emin/__gmpfr_emin/g' **/*.{c,h}
perl -pi -e 's/__mpfr_emax/__gmpfr_emax/g' **/*.{c,h}
perl -pi -e 's/__mpfr_default_fp_bit_precision/__gmpfr_default_fp_bit_precision/g' **/*.{c,h}
perl -pi -e 's/__gmp_default_rounding_mode/__gmpfr_default_rounding_mode/g' **/*.{c,h}
perl -pi -e 's/__mpfr_const_log2_prec/__gmpfr_const_log2_prec/g' **/*.{c,h}
perl -pi -e 's/__mpfr_const_pi_prec/__gmpfr_const_pi_prec/g' **/*.{c,h}
perl -pi -e 's/_mpfr_ceil_log2/__gmpfr_ceil_log2/g' **/*.{c,h}
perl -pi -e 's/_mpfr_floor_log2/__gmpfr_floor_log2/g' **/*.{c,h}
perl -pi -e 's/_mpfr_ceil_exp2/__gmpfr_ceil_exp2/g' **/*.{c,h}
perl -pi -e 's/_mpfr_isqrt/__gmpfr_isqrt/g' **/*.{c,h}
perl -pi -e 's/_mpfr_cuberoot/__gmpfr_cuberoot/g' **/*.{c,h}
perl -pi -e 's/^#define __gmpfr_.*\n//' *.h
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@2125 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'exp.c')
-rw-r--r-- | exp.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -69,15 +69,15 @@ mpfr_exp (mpfr_ptr y, mpfr_srcptr x, mp_rnd_t rnd_mode) expx = MPFR_EXP(x); precy = MPFR_PREC(y); - /* result is +Inf when exp(x) >= 2^(__mpfr_emax), i.e. - x >= __mpfr_emax * log(2) */ + /* result is +Inf when exp(x) >= 2^(__gmpfr_emax), i.e. + x >= __gmpfr_emax * log(2) */ d = mpfr_get_d1 (x); - if (d >= (double) __mpfr_emax * LOG2) + if (d >= (double) __gmpfr_emax * LOG2) return mpfr_set_overflow(y, rnd_mode, 1); - /* result is 0 when exp(x) < 1/2*2^(__mpfr_emin), i.e. - x < (__mpfr_emin-1) * LOG2 */ - if (d < ((double) __mpfr_emin - 1.0) * LOG2) + /* result is 0 when exp(x) < 1/2*2^(__gmpfr_emin), i.e. + x < (__gmpfr_emin-1) * LOG2 */ + if (d < ((double) __gmpfr_emin - 1.0) * LOG2) return mpfr_set_underflow(y, rnd_mode, 1); /* if x < 2^(-precy), then exp(x) i.e. gives 1 +/- 1 ulp(1) */ |