Mercurial > hg > xemacs-beta

comparison src/alloc.c @ 5151:641d0cdd1d00

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix compilation problems identified by Robert Delius Royar -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2010-03-16 Ben Wing <ben@xemacs.org> * alloc.c (make_lcrecord_list): * alloc.c (alloc_managed_lcrecord): Fix compilation problems identified by Robert Delius Royar.
author Ben Wing <ben@xemacs.org>
date Tue, 16 Mar 2010 23:09:34 -0500
parents 88bd4f3ef8e4
children cb303ff63e76
comparison
equal deleted inserted replaced
5147:b0ab9aa48977 5151:641d0cdd1d00
3198 make_lcrecord_list (Elemcount size, 3198 make_lcrecord_list (Elemcount size,
3199 const struct lrecord_implementation *implementation) 3199 const struct lrecord_implementation *implementation)
3200 { 3200 {
3201 /* Don't use alloc_automanaged_lcrecord() avoid infinite recursion 3201 /* Don't use alloc_automanaged_lcrecord() avoid infinite recursion
3202 allocating this. */ 3202 allocating this. */
3203 struct lcrecord_list *p = (struct lcrecord_list *) 3203 struct lcrecord_list *p =
3204 old_alloc_lcrecord (&lrecord_lcrecord_list); 3204 XLCRECORD_LIST (old_alloc_lcrecord (&lrecord_lcrecord_list));
3205 3205
3206 p->implementation = implementation; 3206 p->implementation = implementation;
3207 p->size = size; 3207 p->size = size;
3208 p->free = Qnil; 3208 p->free = Qnil;
3209 return wrap_lcrecord_list (p); 3209 return wrap_lcrecord_list (p);
3245 lheader->type = list->implementation->lrecord_type_index; 3245 lheader->type = list->implementation->lrecord_type_index;
3246 zero_sized_lisp_object (val, list->size); 3246 zero_sized_lisp_object (val, list->size);
3247 return val; 3247 return val;
3248 } 3248 }
3249 else 3249 else
3250 return wrap_pointer_1 (old_alloc_sized_lcrecord (list->size, 3250 return old_alloc_sized_lcrecord (list->size, list->implementation);
3251 list->implementation));
3252 } 3251 }
3253 3252
3254 /* "Free" a Lisp object LCRECORD by placing it on its associated free list 3253 /* "Free" a Lisp object LCRECORD by placing it on its associated free list
3255 LCRECORD_LIST; next time alloc_managed_lcrecord() is called with the 3254 LCRECORD_LIST; next time alloc_managed_lcrecord() is called with the
3256 same LCRECORD_LIST as its parameter, it will return an object from the 3255 same LCRECORD_LIST as its parameter, it will return an object from the