Mercurial > hg > xemacs-beta
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; |