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