diff options
| author | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2018-09-13 08:46:01 +0000 |
|---|---|---|
| committer | zimmerma <zimmerma@280ebfd0-de03-0410-8827-d642c229c3f4> | 2018-09-13 08:46:01 +0000 |
| commit | c3cea246bc8170a85682d8562f1c0de07cc404c9 (patch) | |
| tree | c9becd219466abc602647492d0f045df6b60f41a | |
| parent | 2ccae5095bf3d7592caee572a382a59f5227aab5 (diff) | |
| download | mpfr-c3cea246bc8170a85682d8562f1c0de07cc404c9.tar.gz | |
[src/sin_cos.c] fix for small limb size
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@13183 280ebfd0-de03-0410-8827-d642c229c3f4
| -rw-r--r-- | src/sin_cos.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/sin_cos.c b/src/sin_cos.c index 8ffdd3c6b..8dd4c5dd1 100644 --- a/src/sin_cos.c +++ b/src/sin_cos.c @@ -282,13 +282,15 @@ reduce2 (mpz_t S, mpz_t C, mpfr_prec_t prec) Assumes prec >= 10. */ + +#define KMAX 64 static unsigned long sin_bs_aux (mpz_t Q0, mpz_t S0, mpz_t C0, mpz_srcptr p, mpfr_prec_t r, mpfr_prec_t prec) { - mpz_t T[GMP_NUMB_BITS], Q[GMP_NUMB_BITS], ptoj[GMP_NUMB_BITS], pp; - mpfr_prec_t log2_nb_terms[GMP_NUMB_BITS], mult[GMP_NUMB_BITS]; - mpfr_prec_t accu[GMP_NUMB_BITS], size_ptoj[GMP_NUMB_BITS]; + mpz_t T[KMAX], Q[KMAX], ptoj[KMAX], pp; + mpfr_prec_t log2_nb_terms[KMAX], mult[KMAX]; + mpfr_prec_t accu[KMAX], size_ptoj[KMAX]; mpfr_prec_t prec_i_have, h, r0 = r, pp_s, p_s; unsigned long i, j, m; int alloc, k, l; |