Mercurial > emacs
diff src/alloc.c @ 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 | f4a1838db0bf |
| children | 2ab3bd0288a9 |
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]);