Kernel/src/gc_stacks.c

117 	non_marking_reference(pword **ref),
120 	mark_from(word tag, pword *ref, int ref_in_segment),
175 #define Mark_from(tag, ref, in_seg) \
178 	mark_from(tag,ref,in_seg);\
181 #define Mark_from_pointer(tag, ref, in_seg) \
183     mark_from((word) (tag),(pword *)(ref),in_seg);\
198 #define Into_Reloc_Chain_Nonmarking(target, ref) \
200     (ref)->val.all = (target)->tag.all;\
201     (target)->tag.all = PointerToLink((target)->tag.all,ref);\
204 #define Into_Reloc_Chain(target, ref) \
206     (ref)->val.all = (target)->tag.all;\
207     (target)->tag.all = PointerToMarkedLink(ref);\
1576 non_marking_reference(pword **ref)
1578     pword *pw = *ref;
1582 	Into_Reloc_Chain_Nonmarking(pw, (pword *)ref);
1773     ec_ref ref = g_emu_.allrefs.next;
1775     while(ref != &g_emu_.allrefs)
1777 	Mark_from(ref->var.tag.kernel, &ref->var, NO)
1778 	ref = ref->next;
1787  * ref	points to the word that has the reference.
1793  * NOTE: ref->tag may be already overwritten and hence different from tag
1815 	pword *ref,		/* location of the reference */
1816 	int ref_in_segment)	/* true if ref is in the current segment */
1833 	target = ref->val.ptr;
1839 	if (ref_in_segment && ref < target)
1846 	    Into_Reloc_Chain(target, ref)
1854 	if (ISRef(tag) && ref != target)	/* handling of untyped references	*/
1971 	ref = target;
2019     register pword *current, *compact, *ref;
2029 	    ref = LinkToPointer(link_or_tag);
2030 	    link_or_tag = ref->val.all;
2031 	    ref->val.ptr = compact;
2039 		if ((ref = current->val.ptr) > current && ref < TG)
2041 		    Into_Reloc_Chain(ref,compact)
2064 		    if ((ref = current->val.ptr) > current)	/* LD link */
2070 			Into_Reloc_Chain(ref,compact)