diff options
author | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2016-05-25 20:16:08 +0000 |
---|---|---|
committer | vlefevre <vlefevre@280ebfd0-de03-0410-8827-d642c229c3f4> | 2016-05-25 20:16:08 +0000 |
commit | 8a2c286a41746b23a0c998fe289413eb4066e3d0 (patch) | |
tree | 1bc6003d8a1967d193627d2c39425ed309e6738e | |
parent | 341e8de0e5f10ad68bae8e32df9de857489a8ba6 (diff) | |
download | mpfr-8a2c286a41746b23a0c998fe289413eb4066e3d0.tar.gz |
[src/log_ui.c] Changes for ISO C90 compatibility.
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@10378 280ebfd0-de03-0410-8827-d642c229c3f4
-rw-r--r-- | src/log_ui.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/log_ui.c b/src/log_ui.c index 9643a5e44..b544e0d64 100644 --- a/src/log_ui.c +++ b/src/log_ui.c @@ -92,7 +92,7 @@ mpfr_log_ui (mpfr_ptr x, unsigned long n, mpfr_rnd_t rnd_mode) mpz_t three_n, *P, *B, *T; mpfr_t t, q; int inexact; - unsigned long N, lgN, i; + unsigned long N, lgN, i, kk; long p; MPFR_GROUP_DECL(group); MPFR_TMP_DECL(marker); @@ -142,7 +142,7 @@ mpfr_log_ui (mpfr_ptr x, unsigned long n, mpfr_rnd_t rnd_mode) MPFR_GROUP_INIT_2(group, w, t, q); MPFR_SAVE_EXPO_MARK (expo); - unsigned long kk = k; + kk = k; if (p != 0) while ((p % 2) == 0) /* replace p/2^kk by (p/2)/2^(kk-1) */ { @@ -155,6 +155,7 @@ mpfr_log_ui (mpfr_ptr x, unsigned long n, mpfr_rnd_t rnd_mode) { mpfr_t tmp; unsigned int err; + unsigned long q0; /* we need at most w/log2(2^kk/|p|) terms for an accuracy of w bits */ mpfr_init2 (tmp, 32); @@ -178,10 +179,9 @@ mpfr_log_ui (mpfr_ptr x, unsigned long n, mpfr_rnd_t rnd_mode) mpz_init (T[i]); } - unsigned long q0; S (P, &q0, B, T, 1, N, p, kk, 0); - // mpz_mul (Q[0], B[0], Q[0]); - // mpz_mul_2exp (B[0], B[0], q0); + /* mpz_mul (Q[0], B[0], Q[0]); */ + /* mpz_mul_2exp (B[0], B[0], q0); */ mpfr_set_z (t, T[0], MPFR_RNDN); /* t = P[0] * (1 + theta_1) */ mpfr_set_z (q, B[0], MPFR_RNDN); /* q = B[0] * (1 + theta_2) */ |