From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 10 Jun 1996 18:19:48 +0000 (+0000)
Subject: (mark_object): Do set ARRAY_MARK_FLAG for bool-vectors.
X-Git-Tag: emacs-19.34~483
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=707788bd68cfce655ee36dc93973821c69729f4f;p=emacs.git

(mark_object): Do set ARRAY_MARK_FLAG for bool-vectors.
---

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);