| author | "Benoît Thébaudeau" <benoit.thebaudeau@advansee.com> |
| Wed Dec 14 16:55:22 2011 +0100 (2011-12-14) | |
| branch | 1.13 |
| changeset 2848 | 1ff89596dab0 |
| permissions | -rw-r--r-- |
1 diff --git a/mpz/remove.c b/mpz/remove.c
2 --- a/mpz/remove.c
3 +++ b/mpz/remove.c
4 @@ -23,7 +23,7 @@
5 unsigned long int
6 mpz_remove (mpz_ptr dest, mpz_srcptr src, mpz_srcptr f)
7 {
8 - mpz_t fpow[40]; /* inexhaustible...until year 2020 or so */
9 + mpz_t fpow[GMP_LIMB_BITS]; /* Really MP_SIZE_T_BITS */
10 mpz_t x, rem;
11 unsigned long int pwr;
12 int p;
13 @@ -69,7 +69,7 @@
14 mpz_set (dest, x);
15 }
17 - pwr = (1 << p) - 1;
18 + pwr = (1L << p) - 1;
20 mpz_clear (fpow[p]);
22 diff --git a/mpz/remove.c b/mpz/remove.c
23 --- a/mpz/remove.c
24 +++ b/mpz/remove.c
25 @@ -80,7 +80,7 @@
26 mpz_tdiv_qr (x, rem, dest, fpow[p]);
27 if (SIZ (rem) == 0)
28 {
29 - pwr += 1 << p;
30 + pwr += 1L << p;
31 mpz_set (dest, x);
32 }
33 mpz_clear (fpow[p]);