Lines Matching defs:obj
57 static void _free_heap_array(t_heap_array *obj);
58 static t_heap_array * _copy_heap_array(t_heap_array *obj);
59 static void _mark_heap_array(t_heap_array *obj);
63 static int _tostr_heap_arr(t_heap_array *obj, char *buf, int quoted);
64 static int _strsz_heap_arr(t_heap_array *obj, int quoted);
67 _free_heap_array(t_heap_array *obj) /* obj != NULL */
69 if (--obj->ref_ctr <= 0)
71 pword *p = obj->array;
78 hg_free_size(obj, sizeof(t_heap_array) + arity*sizeof(pword));
80 p_fprintf(current_err_, "\n_free_heap_array(0x%x)", obj);
87 _copy_heap_array(t_heap_array *obj) /* obj != NULL */
89 ++obj->ref_ctr;
90 return obj;
94 _mark_heap_array(t_heap_array *obj) /* obj != NULL */
96 pword *p = obj->array;
138 #define Get_Shelf(vhandle, thandle, vmod, tmod, obj) \
140 Get_Typed_Object(vhandle, thandle, &heap_array_tid, obj); \
150 obj = (t_heap_array *) prop->val.wptr; \
159 t_heap_array *obj;
168 obj = (t_heap_array *) hg_alloc_size(
170 obj->ref_ctr = 1;
171 p = obj->array;
180 bag = ec_handle(&heap_array_tid, (t_ext_ptr) obj);
190 t_heap_array *obj;
199 obj = (t_heap_array *) hg_alloc_size(
201 obj->ref_ctr = 1;
202 pheap = obj->array;
211 bag = ec_handle(&heap_array_tid, (t_ext_ptr) obj);
228 t_heap_array *obj;
229 Get_Typed_Object(vhandle, thandle, &heap_array_tid, obj);
231 prop->val.wptr = (uword *) heap_array_tid.copy(obj);
248 t_heap_array *obj;
252 Get_Shelf(vhandle, thandle, vmod, tmod, obj);
254 return _heap_arr_set(obj, vi.nint, pw);
260 t_heap_array *obj;
264 Get_Shelf(vhandle, thandle, vmod, tmod, obj);
266 if (vi.nint < 0 || vi.nint > DidArity(obj->array[0].val.did))
268 _heap_arr_get1(obj, vi.nint, &pw);
279 t_heap_array *obj;
281 Get_Shelf(vhandle, thandle, vmod, tmod, obj);
283 if (vi.nint < 1 || vi.nint > DidArity(obj->array[0].val.did))
285 pw = &obj->array[vi.nint];
298 t_heap_array *obj;
300 Get_Shelf(vhandle, thandle, vmod, tmod, obj);
302 if (vi.nint < 1 || vi.nint > DidArity(obj->array[0].val.did))
304 pw = &obj->array[vi.nint];
411 _tostr_heap_arr(t_heap_array *obj, char *buf, int quoted) /* obj != NULL */
414 sprintf(buf, "'SHELF'(16'%08x)", (int)(word) obj); /* possibly truncated */
420 _strsz_heap_arr(t_heap_array *obj, int quoted) /* obj != NULL */