diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-06-10 18:19:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-06-10 18:19:48 +0000 |
| commit | 8b3e78784e5e4f92b7172dcf018b9bca52c14ac7 (patch) | |
| tree | ce966914ce26dfb64cf29556f714859b4303ae68 /src | |
| parent | 2e7835e29e2828ededda5b94d26018479c1ad925 (diff) | |
| download | emacs-8b3e78784e5e4f92b7172dcf018b9bca52c14ac7.tar.gz | |
(mark_object): Do set ARRAY_MARK_FLAG for bool-vectors.
Diffstat (limited to 'src')
| -rw-r--r-- | src/alloc.c | 8 |
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); |