summaryrefslogtreecommitdiff
path: root/exp.c
diff options
context:
space:
mode:
authorvlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4>2002-12-16 00:56:03 +0000
committervlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4>2002-12-16 00:56:03 +0000
commit2c732d0395f02c6e415aadeb963ab8d9c24a2efa (patch)
tree6696693e53b4db27051f0007e2e4f105a298d0ec /exp.c
parent94680bf0c2219d8eab5c939ab565528d50dbae73 (diff)
downloadmpfr-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.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/exp.c b/exp.c
index 4aa50f612..651c2ca32 100644
--- a/exp.c
+++ b/exp.c
@@ -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) */