# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1101595250 0
# Node ID ff0c144203a19292fe75d0380fa608a7f55627d3
# Parent  7c0aad26b8bb86970513501ddf8f28f6edaebf80
(mark_stack): Call GC_MARK_SECONDARY_STACK if defined.

diff -r 7c0aad26b8bb -r ff0c144203a1 src/alloc.c
--- a/src/alloc.c	Sat Nov 27 22:09:40 2004 +0000
+++ b/src/alloc.c	Sat Nov 27 22:40:50 2004 +0000
@@ -4099,6 +4099,11 @@
 #endif
   for (i = 0; i < sizeof (Lisp_Object); i += GC_LISP_OBJECT_ALIGNMENT)
     mark_memory ((char *) stack_base + i, end);
+  /* Allow for marking a secondary stack, like the register stack on the
+     ia64.  */
+#ifdef GC_MARK_SECONDARY_STACK
+  GC_MARK_SECONDARY_STACK ();
+#endif
 
 #if GC_MARK_STACK == GC_MARK_STACK_CHECK_GCPROS
   check_gcpros ();