Mercurial > emacs

changeset 16100:ccd19852de65

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fpurecopy): Cast arg to make_pure_vector. (Fmake_byte_code): Use XFASTINT when calling make_pure_vector.
author Richard M. Stallman <rms@gnu.org>
date Tue, 03 Sep 1996 23:56:33 +0000
parents e3b0c3bf4451
children 039e96495054
files src/alloc.c
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))