aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorPaul Eggert2019-08-20 18:11:16 -0700
committerPaul Eggert2019-08-20 18:11:34 -0700
commit3881542edeac3e94291c2ce574edf0b0e52764a8 (patch)
tree0767e022f8649726ea9bfb511f279088077067ad /src
parent396ed88a50fba95cd3b989965defef0130a42c42 (diff)
downloademacs-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.c10
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
5Copyright 1991-1997, 1999-2018 Free Software Foundation, Inc. 5Copyright 1991-1997, 1999-2019 Free Software Foundation, Inc.
6 6
7This file is part of the GNU MP Library. 7This file is part of the GNU MP Library.
8 8
@@ -295,7 +295,7 @@ gmp_default_alloc (size_t size)
295} 295}
296 296
297static void * 297static void *
298gmp_default_realloc (void *old, size_t old_size, size_t new_size) 298gmp_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
310static void 310static void
311gmp_default_free (void *p, size_t size) 311gmp_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 */