From 9bf7d0a9a20f36a151c75442f5d40e29b1f8f959 Mon Sep 17 00:00:00 2001 From: vlefevre Date: Sun, 7 Apr 2002 00:38:47 +0000 Subject: mpfr_get_d -> mpfr_get_d1 and mpfr_get_d2 -> mpfr_get_d. git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@1825 280ebfd0-de03-0410-8827-d642c229c3f4 --- exp_2.c | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'exp_2.c') diff --git a/exp_2.c b/exp_2.c index 63c471763..1e66642e9 100644 --- a/exp_2.c +++ b/exp_2.c @@ -114,7 +114,7 @@ mpfr_exp_2 (mpfr_ptr y, mpfr_srcptr x, mp_rnd_t rnd_mode) precy = MPFR_PREC(y); - n = (int) (mpfr_get_d(x) / LOG2); + n = (int) (mpfr_get_d1 (x) / LOG2); /* for the O(n^(1/2)*M(n)) method, the Taylor series computation of n/K terms costs about n/(2K) multiplications when computed in fixed @@ -146,9 +146,9 @@ mpfr_exp_2 (mpfr_ptr y, mpfr_srcptr x, mp_rnd_t rnd_mode) /* r = floor(n*log(2)) */ #ifdef DEBUG - printf("x=%1.20e\n",mpfr_get_d(x)); + printf("x=%1.20e\n", mpfr_get_d1 (x)); printf(" ="); mpfr_print_binary(x); putchar('\n'); - printf("r=%1.20e\n",mpfr_get_d(r)); + printf("r=%1.20e\n", mpfr_get_d1 (r)); printf(" ="); mpfr_print_binary(r); putchar('\n'); #endif mpfr_sub(r, x, r, GMP_RNDU); @@ -159,7 +159,7 @@ mpfr_exp_2 (mpfr_ptr y, mpfr_srcptr x, mp_rnd_t rnd_mode) mpfr_sub(r, x, r, GMP_RNDU); } #ifdef DEBUG - printf("x-r=%1.20e\n",mpfr_get_d(r)); + printf("x-r=%1.20e\n", mpfr_get_d1 (r)); printf(" ="); mpfr_print_binary(r); putchar('\n'); if (MPFR_SIGN(r)<0) { fprintf(stderr,"Error in mpfr_exp: r<0\n"); exit(1); } #endif @@ -194,7 +194,8 @@ mpfr_exp_2 (mpfr_ptr y, mpfr_srcptr x, mp_rnd_t rnd_mode) K += k; #ifdef DEBUG printf("after mult. by 2^n:\n"); - if (MPFR_EXP(s)>-1024) printf("s=%1.20e\n",mpfr_get_d(s)); + if (MPFR_EXP(s) > -1024) + printf("s=%1.20e\n", mpfr_get_d1 (s)); printf(" ="); mpfr_print_binary(s); putchar('\n'); printf("err=%d bits\n", K); #endif -- cgit v1.2.1