comparison src/elhash.c @ 2645:e6854ec89f8e

[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.
author crestani
date Thu, 10 Mar 2005 09:12:38 +0000
parents 9f70af3ac939
children 6fa9919a9a0b
comparison
equal deleted inserted replaced
2644:0b4097b3552f 2645:e6854ec89f8e
1458 1458
1459 /************************************************************************/ 1459 /************************************************************************/
1460 /* garbage collecting weak hash tables */ 1460 /* garbage collecting weak hash tables */
1461 /************************************************************************/ 1461 /************************************************************************/
1462 #ifdef USE_KKCC 1462 #ifdef USE_KKCC
1463 #define MARK_OBJ(obj) do { \ 1463 #define MARK_OBJ(obj) do { \
1464 Lisp_Object mo_obj = (obj); \ 1464 Lisp_Object mo_obj = (obj); \
1465 if (!marked_p (mo_obj)) \ 1465 if (!marked_p (mo_obj)) \
1466 { \ 1466 { \
1467 kkcc_gc_stack_push_lisp_object (mo_obj); \ 1467 kkcc_gc_stack_push_lisp_object (mo_obj, 0, -1); \
1468 did_mark = 1; \ 1468 did_mark = 1; \
1469 } \ 1469 } \
1470 } while (0) 1470 } while (0)
1471 1471
1472 #else /* NO USE_KKCC */ 1472 #else /* NO USE_KKCC */
1473 1473
1474 #define MARK_OBJ(obj) do { \ 1474 #define MARK_OBJ(obj) do { \