From 707788bd68cfce655ee36dc93973821c69729f4f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 10 Jun 1996 18:19:48 +0000 Subject: [PATCH] (mark_object): Do set ARRAY_MARK_FLAG for bool-vectors. --- src/alloc.c | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/alloc.c b/src/alloc.c index bb27a5df109..71870839916 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -1822,7 +1822,13 @@ mark_object (argptr) } #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); -- 2.39.2