# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1075118065 0
# Node ID db8cbe59ee5c51ac47bcd96733cddb39514d4d48
# Parent  47b66024b855bd445a652f68bb6ad5800cac8973
(Fpurecopy): Declare size as EMACS_INT to not lose bits.

diff -r 47b66024b855 -r db8cbe59ee5c src/alloc.c
--- a/src/alloc.c	Mon Jan 26 11:53:59 2004 +0000
+++ b/src/alloc.c	Mon Jan 26 11:54:25 2004 +0000
@@ -4230,12 +4230,13 @@
   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))