diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/alloc.c b/src/alloc.c index 17f1b19b3c0..0667353c1a8 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -2027,7 +2027,7 @@ bool_vector_payload_bytes (ptrdiff_t nr_bits, | |||
| 2027 | ptrdiff_t exact_needed_bytes; | 2027 | ptrdiff_t exact_needed_bytes; |
| 2028 | ptrdiff_t needed_bytes; | 2028 | ptrdiff_t needed_bytes; |
| 2029 | 2029 | ||
| 2030 | eassert (nr_bits >= 0); | 2030 | eassume (nr_bits >= 0); |
| 2031 | 2031 | ||
| 2032 | exact_needed_bytes = ROUNDUP ((size_t) nr_bits, CHAR_BIT) / CHAR_BIT; | 2032 | exact_needed_bytes = ROUNDUP ((size_t) nr_bits, CHAR_BIT) / CHAR_BIT; |
| 2033 | needed_bytes = ROUNDUP ((size_t) nr_bits, BITS_PER_BITS_WORD) / CHAR_BIT; | 2033 | needed_bytes = ROUNDUP ((size_t) nr_bits, BITS_PER_BITS_WORD) / CHAR_BIT; |
| @@ -2064,8 +2064,8 @@ LENGTH must be a number. INIT matters only in whether it is t or nil. */) | |||
| 2064 | total_payload_bytes = bool_vector_payload_bytes | 2064 | total_payload_bytes = bool_vector_payload_bytes |
| 2065 | (XFASTINT (length), &exact_payload_bytes); | 2065 | (XFASTINT (length), &exact_payload_bytes); |
| 2066 | 2066 | ||
| 2067 | eassert (exact_payload_bytes <= total_payload_bytes); | 2067 | eassume (exact_payload_bytes <= total_payload_bytes); |
| 2068 | eassert (0 <= exact_payload_bytes); | 2068 | eassume (0 <= exact_payload_bytes); |
| 2069 | 2069 | ||
| 2070 | needed_elements = ROUNDUP ((size_t) ((bool_header_size - header_size) | 2070 | needed_elements = ROUNDUP ((size_t) ((bool_header_size - header_size) |
| 2071 | + total_payload_bytes), | 2071 | + total_payload_bytes), |
| @@ -2622,7 +2622,7 @@ verify (VECTOR_BLOCK_SIZE <= (1 << PSEUDOVECTOR_SIZE_BITS)); | |||
| 2622 | /* Round up X to nearest mult-of-ROUNDUP_SIZE --- use at compile time. */ | 2622 | /* Round up X to nearest mult-of-ROUNDUP_SIZE --- use at compile time. */ |
| 2623 | #define vroundup_ct(x) ROUNDUP ((size_t) (x), roundup_size) | 2623 | #define vroundup_ct(x) ROUNDUP ((size_t) (x), roundup_size) |
| 2624 | /* Round up X to nearest mult-of-ROUNDUP_SIZE --- use at runtime. */ | 2624 | /* Round up X to nearest mult-of-ROUNDUP_SIZE --- use at runtime. */ |
| 2625 | #define vroundup(x) (assume ((x) >= 0), vroundup_ct (x)) | 2625 | #define vroundup(x) (eassume ((x) >= 0), vroundup_ct (x)) |
| 2626 | 2626 | ||
| 2627 | /* Rounding helps to maintain alignment constraints if USE_LSB_TAG. */ | 2627 | /* Rounding helps to maintain alignment constraints if USE_LSB_TAG. */ |
| 2628 | 2628 | ||
| @@ -2820,7 +2820,7 @@ vector_nbytes (struct Lisp_Vector *v) | |||
| 2820 | ptrdiff_t payload_bytes = | 2820 | ptrdiff_t payload_bytes = |
| 2821 | bool_vector_payload_bytes (bv->size, NULL); | 2821 | bool_vector_payload_bytes (bv->size, NULL); |
| 2822 | 2822 | ||
| 2823 | eassert (payload_bytes >= 0); | 2823 | eassume (payload_bytes >= 0); |
| 2824 | size = bool_header_size + ROUNDUP (payload_bytes, word_size); | 2824 | size = bool_header_size + ROUNDUP (payload_bytes, word_size); |
| 2825 | } | 2825 | } |
| 2826 | else | 2826 | else |