From 7d535c6803cea7ee1582ec439192496fa40e4035 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 14 Jan 1995 02:19:32 +0000 Subject: [PATCH] (Fpurecopy): Mask size field when copying pseudovector. --- src/alloc.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/alloc.c b/src/alloc.c index 29e0ab46ea0..24acdaafea9 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -1163,6 +1163,8 @@ Does not copy symbols.") register int i, size; size = XVECTOR (obj)->size; + if (size & PSEUDOVECTOR_FLAG) + size &= PSEUDOVECTOR_SIZE_MASK; vec = XVECTOR (make_pure_vector (size)); for (i = 0; i < size; i++) vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]); -- 2.39.5