diff options
author | pelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4> | 2005-05-20 09:30:19 +0000 |
---|---|---|
committer | pelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4> | 2005-05-20 09:30:19 +0000 |
commit | 85be8bc179a3cfc16a5a461485002216235c32c9 (patch) | |
tree | 4267f4392debef709f2306d6137f90caee8b42b8 /exp_2.c | |
parent | b88c50d268e5e11da7c3363d421246dbb14bc180 (diff) | |
download | mpfr-85be8bc179a3cfc16a5a461485002216235c32c9.tar.gz |
Remove variable t which wasn't used!
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@3594 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'exp_2.c')
-rw-r--r-- | exp_2.c | 7 |
1 files changed, 1 insertions, 6 deletions
@@ -89,7 +89,7 @@ mpfr_exp_2 (mpfr_ptr y, mpfr_srcptr x, mp_rnd_t rnd_mode) mp_exp_t exps; mp_prec_t q, precy; int inexact; - mpfr_t r, s, t; + mpfr_t r, s; mpz_t ss; MPFR_ZIV_DECL (loop); MPFR_TMP_DECL(marker); @@ -119,11 +119,8 @@ mpfr_exp_2 (mpfr_ptr y, mpfr_srcptr x, mp_rnd_t rnd_mode) /* add K extra bits, i.e. failure probability <= 1/2^K = O(1/precy) */ q = precy + err + K + 5; - /*q = ( (q-1)/BITS_PER_MP_LIMB + 1) * BITS_PER_MP_LIMB; */ - mpfr_init2 (r, q + error_r); mpfr_init2 (s, q + error_r); - mpfr_init2 (t, q); /* the algorithm consists in computing an upper bound of exp(x) using a precision of q bits, and see if we can round to MPFR_PREC(y) taking @@ -221,13 +218,11 @@ mpfr_exp_2 (mpfr_ptr y, mpfr_srcptr x, mp_rnd_t rnd_mode) MPFR_ZIV_NEXT (loop, q); mpfr_set_prec (r, q); mpfr_set_prec (s, q); - mpfr_set_prec (t, q); } MPFR_ZIV_FREE (loop); mpfr_clear (r); mpfr_clear (s); - mpfr_clear (t); return inexact; } |