dist/src/bernoulli.c

206 static MPFR_THREAD_ATTR unsigned long bernoulli_alloc = 0;
215       if (bernoulli_alloc == 0)
217           bernoulli_alloc = MAX(16, n + n/4);
219             mpfr_allocate_func (bernoulli_alloc * sizeof (mpz_t));
222       else if (n >= bernoulli_alloc)
225             (bernoulli_table, bernoulli_alloc * sizeof (mpz_t),
227           bernoulli_alloc = n + n/4;
229       MPFR_ASSERTD (bernoulli_alloc > n);
250       mpfr_free_func (bernoulli_table, bernoulli_alloc * sizeof (mpz_t));
252       bernoulli_alloc = 0;