Commit 7d535c68 authored by Karl Heuer's avatar Karl Heuer
Browse files

(Fpurecopy): Mask size field when copying pseudovector.

parent 2a96daeb
...@@ -1163,6 +1163,8 @@ Does not copy symbols.") ...@@ -1163,6 +1163,8 @@ Does not copy symbols.")
register int i, size; register int i, size;
size = XVECTOR (obj)->size; size = XVECTOR (obj)->size;
if (size & PSEUDOVECTOR_FLAG)
size &= PSEUDOVECTOR_SIZE_MASK;
vec = XVECTOR (make_pure_vector (size)); vec = XVECTOR (make_pure_vector (size));
for (i = 0; i < size; i++) for (i = 0; i < size; i++)
vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]); vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment