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 /factorial.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 'factorial.c')
-rw-r--r-- | factorial.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/factorial.c b/factorial.c index 0980308bd..d4f1992b9 100644 --- a/factorial.c +++ b/factorial.c @@ -56,7 +56,7 @@ mpfr_fac_ui (mpfr_ptr y, unsigned long int x , mp_rnd_t rnd_mode) /* Initialisation of the Precision */ Ny=MPFR_PREC(y); - Nt=Ny+2*(int)_mpfr_ceil_log2((double)x)+10; /*compute the size of intermediary variable */ + Nt=Ny+2*(int)__gmpfr_ceil_log2((double)x)+10; /*compute the size of intermediary variable */ mpfr_init2(t, Nt);/* initialise of intermediary variable */ @@ -74,7 +74,7 @@ mpfr_fac_ui (mpfr_ptr y, unsigned long int x , mp_rnd_t rnd_mode) inexact = round; } - err = Nt - 1 - (int) _mpfr_ceil_log2 ((double) Nt); + err = Nt - 1 - (int) __gmpfr_ceil_log2 ((double) Nt); round = !inexact || mpfr_can_round (t,err,GMP_RNDZ,rnd_mode,Ny); |