Mercurial > emacs
comparison src/alloc.c @ 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 | f2b5d784fa88 |
| children | 12c61b25b7b6 |
comparison
equal
deleted
inserted
replaced
| 15378:ecfc288350ab | 15379:5cd52d4838f8 |
|---|---|
| 1820 mark_object (&ptr->menu_bar_vector); | 1820 mark_object (&ptr->menu_bar_vector); |
| 1821 mark_object (&ptr->buffer_predicate); | 1821 mark_object (&ptr->buffer_predicate); |
| 1822 } | 1822 } |
| 1823 #endif /* MULTI_FRAME */ | 1823 #endif /* MULTI_FRAME */ |
| 1824 else if (GC_BOOL_VECTOR_P (obj)) | 1824 else if (GC_BOOL_VECTOR_P (obj)) |
| 1825 ; | 1825 { |
| 1826 register struct Lisp_Vector *ptr = XVECTOR (obj); | |
| 1827 | |
| 1828 if (ptr->size & ARRAY_MARK_FLAG) | |
| 1829 break; /* Already marked */ | |
| 1830 ptr->size |= ARRAY_MARK_FLAG; /* Else mark it */ | |
| 1831 } | |
| 1826 else | 1832 else |
| 1827 { | 1833 { |
| 1828 register struct Lisp_Vector *ptr = XVECTOR (obj); | 1834 register struct Lisp_Vector *ptr = XVECTOR (obj); |
| 1829 register EMACS_INT size = ptr->size; | 1835 register EMACS_INT size = ptr->size; |
| 1830 /* The reason we use ptr1 is to avoid an apparent hardware bug | 1836 /* The reason we use ptr1 is to avoid an apparent hardware bug |
