From: Karl Heuer <kwzh@gnu.org>
Date: Sat, 14 Jan 1995 02:19:32 +0000 (+0000)
Subject: (Fpurecopy): Mask size field when copying pseudovector.
X-Git-Tag: emacs-19.34~5431
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d535c6803cea7ee1582ec439192496fa40e4035;p=emacs.git

(Fpurecopy): Mask size field when copying pseudovector.
---

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]);