diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/data.c b/src/data.c index 66f69e7e83a..1e97d9efa15 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -2407,7 +2407,7 @@ static void | |||
| 2407 | emacs_mpz_mul (mpz_t rop, mpz_t const op1, mpz_t const op2) | 2407 | emacs_mpz_mul (mpz_t rop, mpz_t const op1, mpz_t const op2) |
| 2408 | { | 2408 | { |
| 2409 | if (NLIMBS_LIMIT - emacs_mpz_size (op1) < emacs_mpz_size (op2)) | 2409 | if (NLIMBS_LIMIT - emacs_mpz_size (op1) < emacs_mpz_size (op2)) |
| 2410 | range_error (); | 2410 | overflow_error (); |
| 2411 | mpz_mul (rop, op1, op2); | 2411 | mpz_mul (rop, op1, op2); |
| 2412 | } | 2412 | } |
| 2413 | 2413 | ||
| @@ -2421,7 +2421,7 @@ emacs_mpz_mul_2exp (mpz_t rop, mpz_t const op1, mp_bitcnt_t op2) | |||
| 2421 | 2421 | ||
| 2422 | mp_bitcnt_t op2limbs = op2 / GMP_NUMB_BITS; | 2422 | mp_bitcnt_t op2limbs = op2 / GMP_NUMB_BITS; |
| 2423 | if (lim - emacs_mpz_size (op1) < op2limbs) | 2423 | if (lim - emacs_mpz_size (op1) < op2limbs) |
| 2424 | range_error (); | 2424 | overflow_error (); |
| 2425 | mpz_mul_2exp (rop, op1, op2); | 2425 | mpz_mul_2exp (rop, op1, op2); |
| 2426 | } | 2426 | } |
| 2427 | 2427 | ||
| @@ -2435,7 +2435,7 @@ emacs_mpz_pow_ui (mpz_t rop, mpz_t const base, unsigned long exp) | |||
| 2435 | 2435 | ||
| 2436 | int nbase = emacs_mpz_size (base), n; | 2436 | int nbase = emacs_mpz_size (base), n; |
| 2437 | if (INT_MULTIPLY_WRAPV (nbase, exp, &n) || lim < n) | 2437 | if (INT_MULTIPLY_WRAPV (nbase, exp, &n) || lim < n) |
| 2438 | range_error (); | 2438 | overflow_error (); |
| 2439 | mpz_pow_ui (rop, base, exp); | 2439 | mpz_pow_ui (rop, base, exp); |
| 2440 | } | 2440 | } |
| 2441 | 2441 | ||
| @@ -3292,7 +3292,7 @@ expt_integer (Lisp_Object x, Lisp_Object y) | |||
| 3292 | && mpz_fits_ulong_p (XBIGNUM (y)->value)) | 3292 | && mpz_fits_ulong_p (XBIGNUM (y)->value)) |
| 3293 | exp = mpz_get_ui (XBIGNUM (y)->value); | 3293 | exp = mpz_get_ui (XBIGNUM (y)->value); |
| 3294 | else | 3294 | else |
| 3295 | range_error (); | 3295 | overflow_error (); |
| 3296 | 3296 | ||
| 3297 | emacs_mpz_pow_ui (mpz[0], *bignum_integer (&mpz[0], x), exp); | 3297 | emacs_mpz_pow_ui (mpz[0], *bignum_integer (&mpz[0], x), exp); |
| 3298 | return make_integer_mpz (); | 3298 | return make_integer_mpz (); |