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

diff --git a/src/ChangeLog b/src/ChangeLog
index 3365d81f3ad618e8673c04b8b7b32369fd35a0f0..a71cb27cf33f5a574e10ed402e9ca18a9e0559b7 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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.

diff --git a/src/alloc.c b/src/alloc.c
index f69ad5f870eadf0e2a2516b11e31c9c610987c08..7be54aa1ae0acc2218b7b528d6724ce7a108c837 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -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))