(Fpurecopy): Declare size as EMACS_INT to not lose bits.
This commit is contained in:
parent
3164abe6d1
commit
41b867eace
2 changed files with 10 additions and 2 deletions
|
@ -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.
|
||||
|
|
|
@ -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))
|
||||
|
|
Loading…
Add table
Reference in a new issue