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 /tanh.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 'tanh.c')
| -rw-r--r-- | tanh.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -96,7 +96,7 @@ mpfr_tanh (y, xt, rnd_mode) /* compute the precision of intermediary variable */ Nt=MAX(Nx,Ny); /* the optimal number of bits : see algorithms.ps */ - Nt = Nt+_mpfr_ceil_log2(9)+_mpfr_ceil_log2(Nt); + Nt = Nt+__gmpfr_ceil_log2(9)+__gmpfr_ceil_log2(Nt); /* initialise of intermediary variable */ mpfr_init(t); @@ -126,7 +126,7 @@ mpfr_tanh (y, xt, rnd_mode) d = MPFR_EXP(te)-MPFR_EXP(t); /* estimation of the error */ - /*err = Nt-(_mpfr_ceil_log2(7+pow(2,d+1)));*/ + /*err = Nt-(__gmpfr_ceil_log2(7+pow(2,d+1)));*/ err = Nt-(MAX(d+1,3)+1); /* actualisation of the precision */ |