summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1996-06-10 18:19:48 +0000
committerRichard M. Stallman <rms@gnu.org>1996-06-10 18:19:48 +0000
commit8b3e78784e5e4f92b7172dcf018b9bca52c14ac7 (patch)
treece966914ce26dfb64cf29556f714859b4303ae68 /src
parent2e7835e29e2828ededda5b94d26018479c1ad925 (diff)
downloademacs-8b3e78784e5e4f92b7172dcf018b9bca52c14ac7.tar.gz
(mark_object): Do set ARRAY_MARK_FLAG for bool-vectors.
Diffstat (limited to 'src')
-rw-r--r--src/alloc.c8
1 files changed, 7 insertions, 1 deletions
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);