Kernel/src/gc_stacks.c

200     (ref)->val.all = (target)->tag.all;\
206     (ref)->val.all = (target)->tag.all;\
298 p_gc_interval(value val, type tag)
302 	Return_Unify_Integer(val, tag, TG_SEG * sizeof(pword));
312 	if (val.nint < sizeof(pword))
314 	TG_SEG = val.nint / sizeof(pword);
332 	result.val.nint = collections_;
338 	result.val.nint = average_area_ * sizeof(pword);
349 	result.val.nint = (char *) TG -
353 	result.val.nint = (char *) g_emu_.global_trail[0].end -
357 	result.val.nint = (char *) g_emu_.global_trail[0].peak -
361 	result.val.nint = (char *) g_emu_.global_trail[1].start -
365 	result.val.nint = (char *) g_emu_.global_trail[1].start -
369 	result.val.nint = (char *) g_emu_.global_trail[1].start -
373 	result.val.nint = (char *) g_emu_.global_trail[1].start -
377 	result.val.nint = (char *) g_emu_.global_trail[1].start -
382 	result.val.nint = (char *) B.args -
386 	result.val.nint = (char *) g_emu_.control_local[0].end -
390 	result.val.nint = (char *) g_emu_.control_local[0].peak -
394 	result.val.nint = (char *) g_emu_.control_local[1].start -
398 	result.val.nint = (char *) g_emu_.control_local[1].start -
402 	result.val.nint = (char *) g_emu_.control_local[1].start -
406 	result.val.nint = (char *) g_emu_.control_local[1].start -
410 	result.val.nint = (char *) g_emu_.control_local[1].start -
415 	result.val.nint = 0;
418     Return_Unify_Pw(vval, tval, result.val, result.tag);
768 	pw->val.nint = 0x11111111;
814 			trailed_item->val.ptr = trailed_item;
867 			trailed_item->val.ptr = trailed_item;
976 			trailed_item->val.ptr = *tr++;
1002 			    if (((pword*)tr)->val.ptr == trailed_item)
1074 		pword *trailed_ptr = ((pword *)(tr+2))->val.ptr;
1091 		    if (((pword *)(tr+2))->val.ptr == trailed_item)
1434 		    pw = prev_de->val.ptr;
1435 		    prev_de->val.ptr = next_de;
1440 		next_de = next_de[SUSP_LD].val.ptr;
1441 		prev_de->val.ptr = (pword *) 0;
1445 		pw = next_de[SUSP_LD].val.ptr;
1446 		next_de[SUSP_LD].val.ptr = (pword *) 0;	/* not necessary */
1489 	pw = prev_de->val.ptr;
1490 	prev_de->val.ptr = next_de;
1802 #define Pdl_Target()	SP->val.ptr
1808 	SP->val.ptr = (t); \
1833 	target = ref->val.ptr;
1892 	    i = DidArity(target->val.did);
2030 	    link_or_tag = ref->val.all;
2031 	    ref->val.ptr = compact;
2039 		if ((ref = current->val.ptr) > current && ref < TG)
2044 		    compact->val.all = current->val.all;
2054 		(compact++)->val.all = current->val.all;
2064 		    if ((ref = current->val.ptr) > current)	/* LD link */
2073 			compact->val.all = current->val.all;
2085 		    (compact++)->val.all = current->val.all;
2096 		    (compact++)->val.all = (current++)->val.all;
2141     	compact->val.ptr = 0;
2392     Exit_Block(exit_tag.val, exit_tag.tag);
2418 	    if ((a = pw->val.did) != D_UNKNOWN)
2431 	    if (StringInDictionary(pw->val))
2433 		a = check_did_n(StringStart(pw->val), StringLength(pw->val), 0);