comparison src/lisp.h @ 1598:ac1be85b4a5f

[xemacs-hg @ 2003-07-31 13:32:24 by crestani] 2003-07-29 Marcus Crestani <crestani@informatik.uni-tuebingen.de> Markus Kaltenbach <makalten@informatik.uni-tuebingen.de> * README.kkcc: Aligned to the changes. * alloc.c: Implemented the kkcc_gc_stack. (kkcc_gc_stack_init): (kkcc_gc_stack_free): (kkcc_gc_stack_realloc): (kkcc_gc_stack_full): (kkcc_gc_stack_empty): (kkcc_gc_stack_push): (kkcc_gc_stack_pop): (kkcc_gc_stack_push_lisp_object): (mark_object_maybe_checking_free): Push objects on kkcc stack instead of marking. (mark_struct_contents): Push objects on kkcc stack instead of marking. (kkcc_marking): KKCC mark algorithm using the kkcc_gc_stack. (mark_object): Removed KKCC ifdefs. (garbage_collect_1): Push objects on kkcc stack instead of marking. * data.c: Added XD_FLAG_NO_KKCC to ephemeron_description and to weak_list_description. * data.c (finish_marking_weak_lists): Push objects on kkcc stack instead of marking. (continue_marking_ephemerons): Push objects on kkcc stack instead of marking. (finish_marking_ephemerons): Push objects on kkcc stack instead of marking. * elhash.c (finish_marking_weak_hash_tables): Push objects on kkcc stack instead of marking. * eval.c: Added XD_FLAG_NO_KKCC to subr_description. * lisp.h: Added prototype for kkcc_gc_stack_push_lisp_object. * profile.c (mark_profiling_info_maphash): Push keys on kkcc stack instead of marking.
author crestani
date Thu, 31 Jul 2003 13:32:26 +0000
parents 03009473262a
children 64eaceca611d
comparison
equal deleted inserted replaced
1597:4b6ee17c5f37 1598:ac1be85b4a5f
3566 void free_list (Lisp_Object); 3566 void free_list (Lisp_Object);
3567 void free_alist (Lisp_Object); 3567 void free_alist (Lisp_Object);
3568 void free_marker (Lisp_Object); 3568 void free_marker (Lisp_Object);
3569 int object_dead_p (Lisp_Object); 3569 int object_dead_p (Lisp_Object);
3570 void mark_object (Lisp_Object obj); 3570 void mark_object (Lisp_Object obj);
3571 #ifdef USE_KKCC
3572 void kkcc_gc_stack_push_lisp_object (Lisp_Object obj);
3573 #endif /* USE_KKCC */
3571 int marked_p (Lisp_Object obj); 3574 int marked_p (Lisp_Object obj);
3572 extern int funcall_allocation_flag; 3575 extern int funcall_allocation_flag;
3573 extern int need_to_garbage_collect; 3576 extern int need_to_garbage_collect;
3574 extern int need_to_check_c_alloca; 3577 extern int need_to_check_c_alloca;
3575 extern int need_to_signal_post_gc; 3578 extern int need_to_signal_post_gc;