comparison src/profile.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 19a72041c5ed
comparison
equal deleted inserted replaced
2644:0b4097b3552f 2645:e6854ec89f8e
607 mark_profiling_info_maphash (const void *void_key, 607 mark_profiling_info_maphash (const void *void_key,
608 void *UNUSED (void_val), 608 void *UNUSED (void_val),
609 void *UNUSED (void_closure)) 609 void *UNUSED (void_closure))
610 { 610 {
611 #ifdef USE_KKCC 611 #ifdef USE_KKCC
612 kkcc_gc_stack_push_lisp_object (VOID_TO_LISP (void_key)); 612 kkcc_gc_stack_push_lisp_object (VOID_TO_LISP (void_key), 0, -1);
613 #else /* NOT USE_KKCC */ 613 #else /* NOT USE_KKCC */
614 mark_object (VOID_TO_LISP (void_key)); 614 mark_object (VOID_TO_LISP (void_key));
615 #endif /* NOT USE_KKCC */ 615 #endif /* NOT USE_KKCC */
616 return 0; 616 return 0;
617 } 617 }