Mercurial > hg > xemacs-beta

comparison src/alloc.c @ 5159:cb303ff63e76

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Fri, 19 Mar 2010 17:02:11 -0500
parents 9e0b43d3095c 641d0cdd1d00
children ab9ee10a53e4
comparison
equal deleted inserted replaced
5158:9e0b43d3095c 5159:cb303ff63e76
3231 make_lcrecord_list (Elemcount size, 3231 make_lcrecord_list (Elemcount size,
3232 const struct lrecord_implementation *implementation) 3232 const struct lrecord_implementation *implementation)
3233 { 3233 {
3234 /* Don't use alloc_automanaged_lcrecord() avoid infinite recursion 3234 /* Don't use alloc_automanaged_lcrecord() avoid infinite recursion
3235 allocating this. */ 3235 allocating this. */
3236 struct lcrecord_list *p = (struct lcrecord_list *) 3236 struct lcrecord_list *p =
3237 old_alloc_lcrecord (&lrecord_lcrecord_list); 3237 XLCRECORD_LIST (old_alloc_lcrecord (&lrecord_lcrecord_list));
3238 3238
3239 p->implementation = implementation; 3239 p->implementation = implementation;
3240 p->size = size; 3240 p->size = size;
3241 p->free = Qnil; 3241 p->free = Qnil;
3242 return wrap_lcrecord_list (p); 3242 return wrap_lcrecord_list (p);
3278 lheader->type = list->implementation->lrecord_type_index; 3278 lheader->type = list->implementation->lrecord_type_index;
3279 zero_sized_lisp_object (val, list->size); 3279 zero_sized_lisp_object (val, list->size);
3280 return val; 3280 return val;
3281 } 3281 }
3282 else 3282 else
3283 return wrap_pointer_1 (old_alloc_sized_lcrecord (list->size, 3283 return old_alloc_sized_lcrecord (list->size, list->implementation);
3284 list->implementation));
3285 } 3284 }
3286 3285
3287 /* "Free" a Lisp object LCRECORD by placing it on its associated free list 3286 /* "Free" a Lisp object LCRECORD by placing it on its associated free list
3288 LCRECORD_LIST; next time alloc_managed_lcrecord() is called with the 3287 LCRECORD_LIST; next time alloc_managed_lcrecord() is called with the
3289 same LCRECORD_LIST as its parameter, it will return an object from the 3288 same LCRECORD_LIST as its parameter, it will return an object from the