From 01a4d290aacf83d739394b6e831506a598f0cc07 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 3 Sep 1996 23:56:33 +0000 Subject: [PATCH] (Fpurecopy): Cast arg to make_pure_vector. (Fmake_byte_code): Use XFASTINT when calling make_pure_vector. --- src/alloc.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 2.39.2