(Fpurecopy): Declare size as EMACS_INT to not lose bits.

This commit is contained in:
Andreas Schwab 2004-01-26 11:54:36 +00:00
parent 3164abe6d1
commit 41b867eace
2 changed files with 10 additions and 2 deletions

View file

@ -1,3 +1,10 @@
2004-01-26 Andreas Schwab <schwab@suse.de>
* print.c (print_preprocess): Declare size as EMACS_INT to not
lose bits.
(print_object): Likewise.
* alloc.c (Fpurecopy): Likewise.
2004-01-25 Luc Teirlinck <teirllm@auburn.edu>
* window.c (Fwindow_minibuffer_p): Doc fix.

View file

@ -4230,12 +4230,13 @@ Does not copy symbols. Copies strings without text properties. */)
else if (COMPILEDP (obj) || VECTORP (obj))
{
register struct Lisp_Vector *vec;
register int i, size;
register int i;
EMACS_INT size;
size = XVECTOR (obj)->size;
if (size & PSEUDOVECTOR_FLAG)
size &= PSEUDOVECTOR_SIZE_MASK;
vec = XVECTOR (make_pure_vector ((EMACS_INT) size));
vec = XVECTOR (make_pure_vector (size));
for (i = 0; i < size; i++)
vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]);
if (COMPILEDP (obj))