Mercurial > hg > xemacs-beta

comparison src/alloc.c @ 80:1ce6082ce73f r20-0b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b90
author cvs
date Mon, 13 Aug 2007 09:06:37 +0200
parents 131b0175ea99
children 4be1180a9e89
comparison
equal deleted inserted replaced
79:5b0a5bbffab6 80:1ce6082ce73f
2226 (struct free_lcrecord_header *) lheader; 2226 (struct free_lcrecord_header *) lheader;
2227 2227
2228 #ifdef ERROR_CHECK_GC 2228 #ifdef ERROR_CHECK_GC
2229 CONST struct lrecord_implementation *implementation 2229 CONST struct lrecord_implementation *implementation
2230 = lheader->implementation; 2230 = lheader->implementation;
2231 2231
2232 /* There should be no other pointers to the free list. */ 2232 /* There should be no other pointers to the free list. */
2233 assert (!MARKED_RECORD_HEADER_P (lheader)); 2233 assert (!MARKED_RECORD_HEADER_P (lheader));
2234 /* Only lcrecords should be here. */ 2234 /* Only lcrecords should be here. */
2235 assert (!implementation->basic_p); 2235 assert (!implementation->basic_p);
2236 /* Only free lcrecords should be here. */ 2236 /* Only free lcrecords should be here. */
2239 assert (implementation == list->implementation); 2239 assert (implementation == list->implementation);
2240 /* So must the size. */ 2240 /* So must the size. */
2241 assert (implementation->static_size == 0 2241 assert (implementation->static_size == 0
2242 || implementation->static_size == list->size); 2242 || implementation->static_size == list->size);
2243 #endif /* ERROR_CHECK_GC */ 2243 #endif /* ERROR_CHECK_GC */
2244 2244
2245 MARK_RECORD_HEADER (lheader); 2245 MARK_RECORD_HEADER (lheader);
2246 chain = free_header->chain; 2246 chain = free_header->chain;
2247 } 2247 }
2248 2248
2249 return Qnil; 2249 return Qnil;