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