(mark_stack): Call GC_MARK_SECONDARY_STACK if defined.

diff --git a/src/alloc.c b/src/alloc.c
index a0722b42cf43d0c4df1917cef771bcbf61808d40..be2a4fa1bbc95a03348a70624f1bc5d73de4ee23 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4099,6 +4099,11 @@ mark_stack ()
 #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 ();