(Fpurecopy): Cast arg to make_pure_vector.

(Fmake_byte_code): Use XFASTINT when calling make_pure_vector.

diff --git a/src/alloc.c b/src/alloc.c
index a1376ba118a6e7a47e7e36301fba1c42a36e76b4..4f66fbd4d354f95c66bf459a4881766421343233 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -824,7 +824,7 @@ significance.")
 
   XSETFASTINT (len, nargs);
   if (!NILP (Vpurify_flag))
-    val = make_pure_vector (len);
+    val = make_pure_vector (XFASTINT (len));
   else
     val = Fmake_vector (len, Qnil);
   p = XVECTOR (val);
@@ -1367,7 +1367,7 @@ Does not copy symbols.")
       size = XVECTOR (obj)->size;
       if (size & PSEUDOVECTOR_FLAG)
        size &= PSEUDOVECTOR_SIZE_MASK;
-      vec = XVECTOR (make_pure_vector (size));
+      vec = XVECTOR (make_pure_vector ((EMACS_INT) size));
       for (i = 0; i < size; i++)
        vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]);
       if (COMPILEDP (obj))