Mercurial > emacs
changeset 15379:5cd52d4838f8
(mark_object): Do set ARRAY_MARK_FLAG for bool-vectors.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 10 Jun 1996 18:19:48 +0000 |
| parents | ecfc288350ab |
| children | 8b01836a6b06 |
| files | src/alloc.c |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/alloc.c Mon Jun 10 18:19:25 1996 +0000 +++ b/src/alloc.c Mon Jun 10 18:19:48 1996 +0000 @@ -1822,7 +1822,13 @@ } #endif /* MULTI_FRAME */ else if (GC_BOOL_VECTOR_P (obj)) - ; + { + register struct Lisp_Vector *ptr = XVECTOR (obj); + + if (ptr->size & ARRAY_MARK_FLAG) + break; /* Already marked */ + ptr->size |= ARRAY_MARK_FLAG; /* Else mark it */ + } else { register struct Lisp_Vector *ptr = XVECTOR (obj);