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

diff --git a/src/ChangeLog b/src/ChangeLog
index 4326bad03fc04dbf510d8187833ad32041e30112..5cb9384f6fba58a4d9b46b81eae51ebd7d4b0815 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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.

diff --git a/src/fns.c b/src/fns.c
index 987d5a6564d755539f7c4ca124f60c6bf3a8a0b2..69b95cba09c7122b98dfcfc214ba29917855dd2e 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -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);