# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 790049972 0
# Node ID 5faba1b094d5938872665f4ae852207441b47c74
# Parent  f8af043e4f4b85f76455b0ae90521aab2ed9d0b1
(Fpurecopy): Mask size field when copying pseudovector.

diff -r f8af043e4f4b -r 5faba1b094d5 src/alloc.c
--- a/src/alloc.c	Fri Jan 13 08:45:30 1995 +0000
+++ b/src/alloc.c	Sat Jan 14 02:19:32 1995 +0000
@@ -1163,6 +1163,8 @@
       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]);