From 2c732d0395f02c6e415aadeb963ab8d9c24a2efa Mon Sep 17 00:00:00 2001 From: vlefevre Date: Mon, 16 Dec 2002 00:56:03 +0000 Subject: 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 --- tanh.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tanh.c') diff --git a/tanh.c b/tanh.c index b818ab4e2..6cc4195cd 100644 --- a/tanh.c +++ b/tanh.c @@ -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 */ -- cgit v1.2.1