From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 3 Sep 1996 23:56:33 +0000 (+0000)
Subject: (Fpurecopy): Cast arg to make_pure_vector.
X-Git-Tag: emacs-20.1~3844
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=01a4d290aacf83d739394b6e831506a598f0cc07;p=emacs.git

(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 a1376ba118a..4f66fbd4d35 100644
--- 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))