aboutsummaryrefslogtreecommitdiff
path: root/boehm-gc/mark.c
diff options
context:
space:
mode:
Diffstat (limited to 'boehm-gc/mark.c')
-rw-r--r--boehm-gc/mark.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/boehm-gc/mark.c b/boehm-gc/mark.c
index 1723a446cc0..632e792c56f 100644
--- a/boehm-gc/mark.c
+++ b/boehm-gc/mark.c
@@ -464,6 +464,9 @@ void GC_mark_from_mark_stack()
case DS_PROC:
GC_mark_stack_top_reg--;
credit -= PROC_BYTES;
+#ifdef GC_DEBUG
+ current_p = GC_debug_object_start(current_p);
+#endif
GC_mark_stack_top_reg =
(*PROC(descr))
(current_p, GC_mark_stack_top_reg,