summaryrefslogtreecommitdiff
path: root/exp_2.c
diff options
context:
space:
mode:
authorvlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4>2002-02-14 11:36:40 +0000
committervlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4>2002-02-14 11:36:40 +0000
commit5bd7aef7971df1929222d93b437d9392b935c1ff (patch)
tree1c45bd97c1c8108047ad7b8e9e0f80257fdad549 /exp_2.c
parentc834099818b8b339bf59918257c2197e49a3ca1d (diff)
downloadmpfr-5bd7aef7971df1929222d93b437d9392b935c1ff.tar.gz
mpfr_{div,mul}_2exp -> mpfr_{div,mul}_2ui.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@1699 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'exp_2.c')
-rw-r--r--exp_2.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/exp_2.c b/exp_2.c
index 4aeb15c04..2c86fa80d 100644
--- a/exp_2.c
+++ b/exp_2.c
@@ -167,7 +167,7 @@ mpfr_exp_2 (mpfr_ptr y, mpfr_srcptr x, mp_rnd_t rnd_mode)
printf(" ="); mpfr_print_binary(r); putchar('\n');
if (MPFR_SIGN(r)<0) { fprintf(stderr,"Error in mpfr_exp: r<0\n"); exit(1); }
#endif
- mpfr_div_2exp(r, r, K, GMP_RNDU); /* r = (x-n*log(2))/2^K */
+ mpfr_div_2ui(r, r, K, GMP_RNDU); /* r = (x-n*log(2))/2^K */
TMP_MARK(marker);
MY_INIT_MPZ(ss, 3 + 2*((q-1)/BITS_PER_MP_LIMB));
@@ -187,8 +187,8 @@ mpfr_exp_2 (mpfr_ptr y, mpfr_srcptr x, mp_rnd_t rnd_mode)
mpfr_set_z(s, ss, GMP_RNDN); MPFR_EXP(s) += exps;
TMP_FREE(marker); /* don't need ss anymore */
- if (n>0) mpfr_mul_2exp(s, s, n, GMP_RNDU);
- else mpfr_div_2exp(s, s, -n, GMP_RNDU);
+ if (n>0) mpfr_mul_2ui(s, s, n, GMP_RNDU);
+ else mpfr_div_2ui(s, s, -n, GMP_RNDU);
/* error is at most 2^K*(3l*(l+1)) ulp for mpfr_exp2_aux */
if (precy<SWITCH) l = 3*l*(l+1);