[xemacs-hg @ 2005-03-10 09:12:36 by crestani] KKCC backtrace. 2005-03-01 Marcus Crestani <crestani@informatik.uni-tuebingen.de> * alloc.c: Add functionality for backtracing the KKCC mark algorithm. * alloc.c (kkcc_backtrace): New. * alloc.c (kkcc_bt_push): New. * alloc.c (kkcc_gc_stack_push): * alloc.c (kkcc_gc_stack_push_lisp_object): * alloc.c (mark_object_maybe_checking_free): * alloc.c (mark_struct_contents): * alloc.c (kkcc_marking): * alloc.c (mark_object): * data.c (finish_marking_weak_lists): * data.c (continue_marking_ephemerons): * data.c (finish_marking_ephemerons): * elhash.c (MARK_OBJ): * lisp.h: * profile.c (mark_profiling_info_maphash): Add level (current depth of mark tree) and pos (position within description) as additional arguments to KKCC mark functions.

--- a/src/elhash.c	Thu Mar 10 09:05:52 2005 +0000
+++ b/src/elhash.c	Thu Mar 10 09:12:38 2005 +0000
@@ -1460,13 +1460,13 @@
 /*		   garbage collecting weak hash tables			*/
 /************************************************************************/
 #ifdef USE_KKCC
-#define MARK_OBJ(obj) do {		       \
-  Lisp_Object mo_obj = (obj);		       \
-  if (!marked_p (mo_obj))		       \
-    {					       \
-      kkcc_gc_stack_push_lisp_object (mo_obj); \
-      did_mark = 1;			       \
-    }					       \
+#define MARK_OBJ(obj) do {				\
+  Lisp_Object mo_obj = (obj);				\
+  if (!marked_p (mo_obj))				\
+    {							\
+      kkcc_gc_stack_push_lisp_object (mo_obj, 0, -1);	\
+      did_mark = 1;					\
+    }							\
 } while (0)
 
 #else /* NO USE_KKCC */