diff options
author | Karl Heuer <[email protected]> | 1995-01-14 02:19:32 +0000 |
---|---|---|
committer | Karl Heuer <[email protected]> | 1995-01-14 02:19:32 +0000 |
commit | 7d535c6803cea7ee1582ec439192496fa40e4035 (patch) | |
tree | 5975342f92c65a2adb5dffedfeb544934cb92eb3 /src/alloc.c | |
parent | 2a96daeb5deec14ee3f7df2cc8b3649eee6ac0ed (diff) |
(Fpurecopy): Mask size field when copying pseudovector.
Diffstat (limited to 'src/alloc.c')
-rw-r--r-- | src/alloc.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/alloc.c b/src/alloc.c index 29e0ab46ea..24acdaafea 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]); |