Commit de41a810 authored by Paul Eggert's avatar Paul Eggert

* fns.c (Fcopy_sequence): Don't assume vector length fits in int.

parent 6346d301
......@@ -10,6 +10,7 @@
(Fsafe_length): Return a float if the value is not representable
as a fixnum. This shouldn't happen except in contrived situations.
(Fnthcdr, Fsort): Don't assume list length fits in int.
(Fcopy_sequence): Don't assume vector length fits in int.
* alloc.c: Check that resized vectors' lengths fit in fixnums.
(header_size, word_size): New constants.
......
......@@ -436,7 +436,7 @@ with the original. */)
if (BOOL_VECTOR_P (arg))
{
Lisp_Object val;
int size_in_chars
ptrdiff_t size_in_chars
= ((XBOOL_VECTOR (arg)->size + BOOL_VECTOR_BITS_PER_CHAR - 1)
/ BOOL_VECTOR_BITS_PER_CHAR);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment