Mercurial > hg > xemacs-beta

comparison src/lrecord.h @ 5126:2a462149bd6a ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Wed, 24 Feb 2010 19:04:27 -0600
parents b5df3737028a c8f90d61dcf3
children a9c41067dd88
comparison
equal deleted inserted replaced
5125:b5df3737028a 5126:2a462149bd6a
536 #define MARK_LRECORD_AS_LISP_READONLY(ptr) \ 536 #define MARK_LRECORD_AS_LISP_READONLY(ptr) \
537 ((void) (((struct lrecord_header *) ptr)->lisp_readonly = 1)) 537 ((void) (((struct lrecord_header *) ptr)->lisp_readonly = 1))
538 538
539 #else /* not NEW_GC */ 539 #else /* not NEW_GC */
540 540
541 enum lrecord_alloc_status
542 {
543 ALLOC_IN_USE,
544 ALLOC_FREE,
545 ALLOC_ON_FREE_LIST
546 };
547
548 void tick_lrecord_stats (const struct lrecord_header *h,
549 enum lrecord_alloc_status status);
550
541 #define LRECORD_FREE_P(ptr) \ 551 #define LRECORD_FREE_P(ptr) \
542 (((struct lrecord_header *) ptr)->type == lrecord_type_free) 552 (((struct lrecord_header *) ptr)->type == lrecord_type_free)
543 553
544 #define MARK_LRECORD_AS_FREE(ptr) \ 554 #define MARK_LRECORD_AS_FREE(ptr) \
545 ((void) (((struct lrecord_header *) ptr)->type = lrecord_type_free)) 555 ((void) (((struct lrecord_header *) ptr)->type = lrecord_type_free))