Mercurial > hg > xemacs-beta

comparison src/lrecord.h @ 207:e45d5e7c476e r20-4b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b2
author cvs
date Mon, 13 Aug 2007 10:03:52 +0200
parents 3d6bfa290dbd
children 78478c60bfcd
comparison
equal deleted inserted replaced
206:d3e9274cbc4e 207:e45d5e7c476e
182 182
183 #define MARKED_RECORD_P(obj) (gc_in_progress && \ 183 #define MARKED_RECORD_P(obj) (gc_in_progress && \
184 XRECORD_LHEADER (obj)->implementation->finalizer == \ 184 XRECORD_LHEADER (obj)->implementation->finalizer == \
185 this_marks_a_marked_record) 185 this_marks_a_marked_record)
186 186
187
188 /* moved here from alloc.c so that lisp.h macros can use them. */
189 #define MARKED_RECORD_HEADER_P(lheader) \
190 (((lheader)->implementation->finalizer) == this_marks_a_marked_record)
191 #define UNMARKABLE_RECORD_HEADER_P(lheader) \
192 (((lheader)->implementation->marker) == this_one_is_unmarkable)
193 #define MARK_RECORD_HEADER(lheader) \
194 do { (((lheader)->implementation)++); } while (0)
195 #define UNMARK_RECORD_HEADER(lheader) \
196 do { (((lheader)->implementation)--); } while (0)
197
198
187 /* Declaring the following structures as const puts them in the 199 /* Declaring the following structures as const puts them in the
188 text (read-only) segment, which makes debugging inconvenient 200 text (read-only) segment, which makes debugging inconvenient
189 because this segment is not mapped when processing a core- 201 because this segment is not mapped when processing a core-
190 dump file */ 202 dump file */
191 203