Mercurial > hg > xemacs-beta

comparison src/dynarr.c @ 5120:d1247f3cc363 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
latest work on lisp-object workspace; more changes eliminating LCRECORD in place of LISP_OBJECT; now compiles and runs.
author Ben Wing <ben@xemacs.org>
date Mon, 28 Dec 2009 01:15:52 -0600
parents e0db3c197671
children b5df3737028a
comparison
equal deleted inserted replaced
5119:d877c14318b3 5120:d1247f3cc363
170 void * 170 void *
171 Dynarr_lisp_newf (Bytecount elsize, 171 Dynarr_lisp_newf (Bytecount elsize,
172 const struct lrecord_implementation *dynarr_imp, 172 const struct lrecord_implementation *dynarr_imp,
173 const struct lrecord_implementation *imp) 173 const struct lrecord_implementation *imp)
174 { 174 {
175 Dynarr *d = (Dynarr *) XPNTR (ALLOC_LISP_OBJECT (dynarr)); 175 Dynarr *d = (Dynarr *) XPNTR (alloc_sized_lrecord (sizeof (Dynarr),
176 dynarr_imp));
176 d->elsize = elsize; 177 d->elsize = elsize;
177 d->lisp_imp = imp; 178 d->lisp_imp = imp;
178 179
179 return d; 180 return d;
180 } 181 }