Mercurial > hg > xemacs-beta
diff src/lisp.h @ 888:201c016cfc12
[xemacs-hg @ 2002-06-28 14:24:07 by michaels]
2002-06-27 Mike Sperber <mike@xemacs.org>
* data.c (prune_weak_boxes): Rewrite for better readability.
2002-06-23 Martin Köbele <martin@mkoebele.de>
Jens Müller <jmueller@informatik.uni-tuebingen.de>
Mike Sperber <mike@xemacs.org>
* lrecord.h (lrecord_type): add lrecord_type_ephemeron to lrecord_type enumeration.
* lisp.h (XEPHEMERON):
(XEPHEMERON_REF):
(XEPHEMERON_NEXT):
(XEPHEMERON_FINALIZER):
(XSET_EPHEMERON_NEXT):
(XSET_EPHEMERON_VALUE):
(XSET_EPHEMERON_KEY):
(wrap_ephemeron):
(EPHEMERONP):
(CHECK_EPHEMERON):
(CONCHECK_EPHEMERON):
(struct ephemeron): Add representation of ephemerons.
* alloc.c (garbage_collect_1):
(finish_marking_ephemerons):
(prune_ephemerons): Call.
* data.c:
(finish_marking_ephemerons):
(prune_ephemerons):
(mark_ephemeron):
(print_ephemeron):
(ephemeron_equal)
(ephemeron_hash)::
(make_ephemeron):
(Fmake_ephemeron):
(Fephemeronp):
(Fephemeron_ref):
(syms_of_data):
(vars_of_data): Add implementation of ephemerons
| author | michaels |
|---|---|
| date | Fri, 28 Jun 2002 14:24:08 +0000 |
| parents | 79c6ff3eef26 |
| children | 111c4f2ed9c9 |
line wrap: on
line diff
--- a/src/lisp.h Fri Jun 28 14:21:41 2002 +0000 +++ b/src/lisp.h Fri Jun 28 14:24:08 2002 +0000 @@ -2571,6 +2571,46 @@ #define CHECK_WEAK_BOX(x) CHECK_RECORD (x, weak_box) #define CONCHECK_WEAK_BOX(x) CONCHECK_RECORD (x, weak_box) +/*--------------------------- ephemerons ----------------------------*/ + +struct ephemeron +{ + struct lcrecord_header header; + + Lisp_Object key; + + /* This field holds a pair. The cdr of this cons points to the next + ephemeron in Vall_ephemerons. The car points to another pair + whose car is the value and whose cdr is the finalizer. + + This representation makes it very easy to unlink an ephemeron + from Vall_ephemerons and chain it into + Vall_ephemerons_to_finalize. */ + + Lisp_Object cons_chain; + + Lisp_Object value; +}; + +void prune_ephemerons (void); +Lisp_Object ephemeron_value(Lisp_Object ephi); +int finish_marking_ephemerons(void); +Lisp_Object zap_finalize_list(void); +Lisp_Object make_ephemeron(Lisp_Object key, Lisp_Object value, Lisp_Object finalizer); + +DECLARE_LRECORD(ephemeron, struct ephemeron); +#define XEPHEMERON(x) XRECORD (x, ephemeron, struct ephemeron) +#define XEPHEMERON_REF(x) (XEPHEMERON (x)->value) +#define XEPHEMERON_NEXT(x) (XCDR (XEPHEMERON(x)->cons_chain)) +#define XEPHEMERON_FINALIZER(x) (XCDR (XCAR (XEPHEMERON (x)->cons_chain))) +#define XSET_EPHEMERON_NEXT(x, n) (XSETCDR (XEPHEMERON(x)->cons_chain, n)) +#define XSET_EPHEMERON_VALUE(x, v) (XEPHEMERON(x)->value = (v)) +#define XSET_EPHEMERON_KEY(x, k) (XEPHEMERON(x)->key = (k)) +#define wrap_ephemeron(p) wrap_record (p, ephemeron) +#define EPHEMERONP(x) RECORDP (x, ephemeron) +#define CHECK_EPHEMERON(x) CHECK_RECORD (x, ephemeron) +#define CONCHECK_EPHEMERON(x) CONCHECK_RECORD (x, ephemeron) + /*---------------------------- weak lists ------------------------------*/ @@ -3368,6 +3408,8 @@ extern int funcall_allocation_flag; extern int need_to_garbage_collect; extern int need_to_check_c_alloca; +extern int need_to_signal_post_gc; +extern Lisp_Object Qpost_gc_hook; void recompute_funcall_allocation_flag (void); #ifdef MEMORY_USAGE_STATS