# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 841794993 0
# Node ID ccd19852de6517bd07bd5310d90110873515a040
# Parent  e3b0c3bf44517d521579b6391efbc4e440043679
(Fpurecopy): Cast arg to make_pure_vector.
(Fmake_byte_code): Use XFASTINT when calling make_pure_vector.

diff -r e3b0c3bf4451 -r ccd19852de65 src/alloc.c
--- a/src/alloc.c	Tue Sep 03 23:27:01 1996 +0000
+++ b/src/alloc.c	Tue Sep 03 23:56:33 1996 +0000
@@ -824,7 +824,7 @@
 
   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 @@
       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))