Mercurial > hg > xemacs-beta

comparison src/opaque.c @ 185:3d6bfa290dbd r20-3b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b19
author cvs
date Mon, 13 Aug 2007 09:55:28 +0200
parents 8eaf7971accc
children 557eaa0339bf
comparison
equal deleted inserted replaced
184:bcd2674570bf 185:3d6bfa290dbd
105 } 105 }
106 106
107 Lisp_Object 107 Lisp_Object
108 make_opaque (int size, CONST void *data) 108 make_opaque (int size, CONST void *data)
109 { 109 {
110 struct Lisp_Opaque *p = alloc_lcrecord (sizeof (*p) + size - sizeof (int), 110 struct Lisp_Opaque *p = (struct Lisp_Opaque *)
111 lrecord_opaque); 111 alloc_lcrecord (sizeof (*p) + size - sizeof (int), lrecord_opaque);
112 Lisp_Object val; 112 Lisp_Object val;
113 113
114 p->markfun = 0; 114 p->markfun = 0;
115 p->size_or_chain = make_int (size); 115 p->size_or_chain = make_int (size);
116 if (data) 116 if (data)
138 Lisp_Object 138 Lisp_Object
139 make_opaque_list (int size, 139 make_opaque_list (int size,
140 Lisp_Object (*markfun) (Lisp_Object obj, 140 Lisp_Object (*markfun) (Lisp_Object obj,
141 void (*markobj) (Lisp_Object))) 141 void (*markobj) (Lisp_Object)))
142 { 142 {
143 struct Lisp_Opaque_List *p = alloc_lcrecord (sizeof (*p),
144 lrecord_opaque_list);
145 Lisp_Object val = Qnil; 143 Lisp_Object val = Qnil;
144 struct Lisp_Opaque_List *p =
145 alloc_lcrecord_type (struct Lisp_Opaque_List, lrecord_opaque_list);
146 146
147 p->markfun = markfun; 147 p->markfun = markfun;
148 p->size = size; 148 p->size = size;
149 p->free = Qnil; 149 p->free = Qnil;
150 XSETOPAQUE_LIST (val, p); 150 XSETOPAQUE_LIST (val, p);