comparison src/lrecord.h @ 5177:b785049378e3

merge
author Ben Wing <ben@xemacs.org>
date Tue, 23 Feb 2010 07:28:35 -0600
parents 8b2f75cecb89 c8f90d61dcf3
children 97eb4942aec8
comparison
equal deleted inserted replaced
5176:8b2f75cecb89 5177:b785049378e3
521 #define MARK_LRECORD_AS_LISP_READONLY(ptr) \ 521 #define MARK_LRECORD_AS_LISP_READONLY(ptr) \
522 ((void) (((struct lrecord_header *) ptr)->lisp_readonly = 1)) 522 ((void) (((struct lrecord_header *) ptr)->lisp_readonly = 1))
523 523
524 #else /* not NEW_GC */ 524 #else /* not NEW_GC */
525 525
526 enum lrecord_alloc_status
527 {
528 ALLOC_IN_USE,
529 ALLOC_FREE,
530 ALLOC_ON_FREE_LIST
531 };
532
533 void tick_lrecord_stats (const struct lrecord_header *h,
534 enum lrecord_alloc_status status);
535
526 #define LRECORD_FREE_P(ptr) \ 536 #define LRECORD_FREE_P(ptr) \
527 (((struct lrecord_header *) ptr)->type == lrecord_type_free) 537 (((struct lrecord_header *) ptr)->type == lrecord_type_free)
528 538
529 #define MARK_LRECORD_AS_FREE(ptr) \ 539 #define MARK_LRECORD_AS_FREE(ptr) \
530 ((void) (((struct lrecord_header *) ptr)->type = lrecord_type_free)) 540 ((void) (((struct lrecord_header *) ptr)->type = lrecord_type_free))