mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-07 04:10:27 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Paul Eggert 2011-06-14 15:41:38 -07:00
parent 6346d30171
commit de41a81069
2 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/ChangeLog
View file

@ -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.

2
src/fns.c
View file

@ -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);