Mercurial > emacs
changeset 10427:5faba1b094d5
(Fpurecopy): Mask size field when copying pseudovector.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Sat, 14 Jan 1995 02:19:32 +0000 |
| parents | f8af043e4f4b |
| children | 08876628ef14 |
| files | src/alloc.c |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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]);