(Fpurecopy): Mask size field when copying pseudovector.

diff --git a/src/alloc.c b/src/alloc.c
index 29e0ab46ea0f26f48e3c0741673ea2bf83ed99ec..24acdaafea9eb299f32681013019e878ba46736d 100644 (file)
--- 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]);