Lines Matching refs:val
72 int arity = DidArity(p[0].val.did);
97 int i = DidArity(p[0].val.did);
150 obj = (t_heap_array *) prop->val.wptr; \
177 p[0].val.did = key_did;
181 Return_Unify_Pw(vbag, tbag, bag.val, bag.tag);
196 i = DidArity(pglobal->val.did);
208 err = create_heapterm(&pheap[i], parg->val, parg->tag);
212 Return_Unify_Pw(vbag, tbag, bag.val, bag.tag);
231 prop->val.wptr = (uword *) heap_array_tid.copy(obj);
250 pw.val = vval;
262 pw.val = vval;
266 if (vi.nint < 0 || vi.nint > DidArity(obj->array[0].val.did))
273 Return_Unify_Pw(vval, tval, pw.val, pw.tag);
283 if (vi.nint < 1 || vi.nint > DidArity(obj->array[0].val.did))
287 if (pw->val.nint == MAX_S_WORD)
291 ++pw->val.nint;
302 if (vi.nint < 1 || vi.nint > DidArity(obj->array[0].val.did))
306 if (pw->val.nint <= 0)
310 --pw->val.nint;
325 arity = DidArity(pheap[0].val.did);
328 if ((err = create_heapterm(©_pw, pw.val, pw.tag)) != PSUCCEED)
337 if (IsStructure(pw.tag) && pw.val.ptr->val.did == pheap[0].val.did)
340 Push_Struct_Frame(pheap[0].val.did);
343 pword *parg = &pw.val.ptr[i];
345 if ((err = create_heapterm(aux+i, parg->val, parg->tag)) != PSUCCEED)
377 result.val.ptr = TG;
390 arity = DidArity(pheap[0].val.did);
399 Push_Struct_Frame(pheap[0].val.did);
402 get_heapterm(&pheap[i], &result->val.ptr[i]);