aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/alloc.c')
-rw-r--r--src/alloc.c10
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