comparison src/alloc.c @ 43161:8a549ab185a2

Fix thinko in last change.
author Andreas Schwab <schwab@suse.de>
date Thu, 07 Feb 2002 11:10:47 +0000
parents 630c8b6deafd
children 4082674ce69b
comparison
equal deleted inserted replaced
43160:630c8b6deafd 43161:8a549ab185a2
3771 that's not the case, something has to be done here to iterate 3771 that's not the case, something has to be done here to iterate
3772 over the stack segments. */ 3772 over the stack segments. */
3773 #ifndef GC_LISP_OBJECT_ALIGNMENT 3773 #ifndef GC_LISP_OBJECT_ALIGNMENT
3774 #define GC_LISP_OBJECT_ALIGNMENT sizeof (Lisp_Object) 3774 #define GC_LISP_OBJECT_ALIGNMENT sizeof (Lisp_Object)
3775 #endif 3775 #endif
3776 for (i = 0; i < sizeof (Lisp_Object) / GC_LISP_OBJECT_ALIGNMENT; i++) 3776 for (i = 0; i < sizeof (Lisp_Object); i += GC_LISP_OBJECT_ALIGNMENT)
3777 mark_memory ((char *) stack_base + i, end); 3777 mark_memory ((char *) stack_base + i, end);
3778 3778
3779 #if GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS 3779 #if GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS
3780 check_gcpros (); 3780 check_gcpros ();
3781 #endif 3781 #endif