diff options
| author | Paul Eggert | 2019-08-20 18:11:16 -0700 |
|---|---|---|
| committer | Paul Eggert | 2019-08-20 18:11:34 -0700 |
| commit | 3881542edeac3e94291c2ce574edf0b0e52764a8 (patch) | |
| tree | 0767e022f8649726ea9bfb511f279088077067ad /src | |
| parent | 396ed88a50fba95cd3b989965defef0130a42c42 (diff) | |
| download | emacs-3881542edeac3e94291c2ce574edf0b0e52764a8.tar.gz emacs-3881542edeac3e94291c2ce574edf0b0e52764a8.zip | |
Update mini-gmp
* src/mini-gmp.c: Sync from upstream. This incorporates:
2019-08-13 Silence a couple of warnings
Diffstat (limited to 'src')
| -rw-r--r-- | src/mini-gmp.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/mini-gmp.c b/src/mini-gmp.c index 88b71c3f9a6..e92e7cf9c72 100644 --- a/src/mini-gmp.c +++ b/src/mini-gmp.c | |||
| @@ -2,7 +2,7 @@ | |||
| 2 | 2 | ||
| 3 | Contributed to the GNU project by Niels Möller | 3 | Contributed to the GNU project by Niels Möller |
| 4 | 4 | ||
| 5 | Copyright 1991-1997, 1999-2018 Free Software Foundation, Inc. | 5 | Copyright 1991-1997, 1999-2019 Free Software Foundation, Inc. |
| 6 | 6 | ||
| 7 | This file is part of the GNU MP Library. | 7 | This file is part of the GNU MP Library. |
| 8 | 8 | ||
| @@ -295,7 +295,7 @@ gmp_default_alloc (size_t size) | |||
| 295 | } | 295 | } |
| 296 | 296 | ||
| 297 | static void * | 297 | static void * |
| 298 | gmp_default_realloc (void *old, size_t old_size, size_t new_size) | 298 | gmp_default_realloc (void *old, size_t unused_old_size, size_t new_size) |
| 299 | { | 299 | { |
| 300 | void * p; | 300 | void * p; |
| 301 | 301 | ||
| @@ -308,7 +308,7 @@ gmp_default_realloc (void *old, size_t old_size, size_t new_size) | |||
| 308 | } | 308 | } |
| 309 | 309 | ||
| 310 | static void | 310 | static void |
| 311 | gmp_default_free (void *p, size_t size) | 311 | gmp_default_free (void *p, size_t unused_size) |
| 312 | { | 312 | { |
| 313 | free (p); | 313 | free (p); |
| 314 | } | 314 | } |
| @@ -1595,7 +1595,7 @@ mpz_get_ui (const mpz_t u) | |||
| 1595 | int LOCAL_GMP_LIMB_BITS = GMP_LIMB_BITS; | 1595 | int LOCAL_GMP_LIMB_BITS = GMP_LIMB_BITS; |
| 1596 | unsigned long r = 0; | 1596 | unsigned long r = 0; |
| 1597 | mp_size_t n = GMP_ABS (u->_mp_size); | 1597 | mp_size_t n = GMP_ABS (u->_mp_size); |
| 1598 | n = GMP_MIN (n, 1 + (GMP_ULONG_BITS - 1) / GMP_LIMB_BITS); | 1598 | n = GMP_MIN (n, 1 + (mp_size_t) (GMP_ULONG_BITS - 1) / GMP_LIMB_BITS); |
| 1599 | while (--n >= 0) | 1599 | while (--n >= 0) |
| 1600 | r = (r << LOCAL_GMP_LIMB_BITS) + u->_mp_d[n]; | 1600 | r = (r << LOCAL_GMP_LIMB_BITS) + u->_mp_d[n]; |
| 1601 | return r; | 1601 | return r; |
| @@ -3499,7 +3499,7 @@ gmp_stronglucas (const mpz_t x, mpz_t Qk) | |||
| 3499 | b0 = mpz_scan0 (n, 0); | 3499 | b0 = mpz_scan0 (n, 0); |
| 3500 | 3500 | ||
| 3501 | /* D= P^2 - 4Q; P = 1; Q = (1-D)/4 */ | 3501 | /* D= P^2 - 4Q; P = 1; Q = (1-D)/4 */ |
| 3502 | Q = (D & 2) ? (D >> 2) + 1 : -(long) (D >> 2); | 3502 | Q = (D & 2) ? (long) (D >> 2) + 1 : -(long) (D >> 2); |
| 3503 | 3503 | ||
| 3504 | if (! gmp_lucas_mod (V, Qk, Q, b0, n)) /* If Ud != 0 */ | 3504 | if (! gmp_lucas_mod (V, Qk, Q, b0, n)) /* If Ud != 0 */ |
| 3505 | while (V->_mp_size != 0 && --b0 != 0) /* while Vk != 0 */ | 3505 | while (V->_mp_size != 0 && --b0 != 0) /* while Vk != 0 */ |