changed name of mpz_set_fr to mpfr_get_z_exp

git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@1711 280ebfd0-de03-0410-8827-d642c229c3f4

1 files changed, 3 insertions, 3 deletions

diff --git a/exp_2.c b/exp_2.c
index 2c86fa80d..a8da4f4f9 100644
--- a/exp_2.c
+++ b/exp_2.c
@@ -171,7 +171,7 @@ mpfr_exp_2 (mpfr_ptr y, mpfr_srcptr x, mp_rnd_t rnd_mode)
 
   TMP_MARK(marker);
   MY_INIT_MPZ(ss, 3 + 2*((q-1)/BITS_PER_MP_LIMB));
-  exps = mpz_set_fr(ss, s);
+  exps = mpfr_get_z_exp(ss, s);
   /* s <- 1 + r/1! + r^2/2! + ... + r^l/l! */
   l = (precy<SWITCH) ? mpfr_exp2_aux(ss, r, q, &exps) /* naive method */
     : mpfr_exp2_aux2(ss, r, q, &exps); /* Brent/Kung method */
@@ -243,7 +243,7 @@ mpfr_exp2_aux (mpz_t s, mpfr_srcptr r, int q, int *exps)
   MY_INIT_MPZ(rr, qn+1);
   mpz_set_ui(t, 1); expt=0;
   mpz_set_ui(s, 1); mpz_mul_2exp(s, s, q-1); *exps = 1-q; /* s = 2^(q-1) */
-  expr = mpz_set_fr(rr, r); /* no error here */
+  expr = mpfr_get_z_exp(rr, r); /* no error here */
 
   l = 0;
   do {
@@ -300,7 +300,7 @@ mpfr_exp2_aux2 (mpz_t s, mpfr_srcptr r, int q, int *exps)
   MY_INIT_MPZ(t, 2*sizer); /* double size for products */
   mpz_set_ui(s, 0); *exps = 1-q; /* initialize s to zero, 1 ulp = 2^(1-q) */
   for (i=0;i<=m;i++) MY_INIT_MPZ(R[i], sizer+2);
-  expR[1] = mpz_set_fr(R[1], r); /* exact operation: no error */
+  expR[1] = mpfr_get_z_exp(R[1], r); /* exact operation: no error */
   expR[1] = mpz_normalize2(R[1], R[1], expR[1], 1-q); /* error <= 1 ulp */
   mpz_mul(t, R[1], R[1]); /* err(t) <= 2 ulps */
   mpz_div_2exp(R[2], t, q-1); /* err(R[2]) <= 3 ulps */