diff options
Diffstat (limited to 'src/bignum.c')
| -rw-r--r-- | src/bignum.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/bignum.c b/src/bignum.c index 4118601e108..009d73118c2 100644 --- a/src/bignum.c +++ b/src/bignum.c | |||
| @@ -86,8 +86,8 @@ make_bignum_bits (size_t bits) | |||
| 86 | if (integer_width < bits) | 86 | if (integer_width < bits) |
| 87 | overflow_error (); | 87 | overflow_error (); |
| 88 | 88 | ||
| 89 | struct Lisp_Bignum *b = ALLOCATE_PSEUDOVECTOR (struct Lisp_Bignum, value, | 89 | struct Lisp_Bignum *b = ALLOCATE_PLAIN_PSEUDOVECTOR (struct Lisp_Bignum, |
| 90 | PVEC_BIGNUM); | 90 | PVEC_BIGNUM); |
| 91 | mpz_init (b->value); | 91 | mpz_init (b->value); |
| 92 | mpz_swap (b->value, mpz[0]); | 92 | mpz_swap (b->value, mpz[0]); |
| 93 | return make_lisp_ptr (b, Lisp_Vectorlike); | 93 | return make_lisp_ptr (b, Lisp_Vectorlike); |
| @@ -342,8 +342,8 @@ bignum_to_string (Lisp_Object num, int base) | |||
| 342 | Lisp_Object | 342 | Lisp_Object |
| 343 | make_bignum_str (char const *num, int base) | 343 | make_bignum_str (char const *num, int base) |
| 344 | { | 344 | { |
| 345 | struct Lisp_Bignum *b = ALLOCATE_PSEUDOVECTOR (struct Lisp_Bignum, value, | 345 | struct Lisp_Bignum *b = ALLOCATE_PLAIN_PSEUDOVECTOR (struct Lisp_Bignum, |
| 346 | PVEC_BIGNUM); | 346 | PVEC_BIGNUM); |
| 347 | mpz_init (b->value); | 347 | mpz_init (b->value); |
| 348 | int check = mpz_set_str (b->value, num, base); | 348 | int check = mpz_set_str (b->value, num, base); |
| 349 | eassert (check == 0); | 349 | eassert (check == 0); |