Kernel/src/gc_stacks.c

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);\
1818     register pword *target;
1833 	target = ref->val.ptr;
1834 	if (!InCurrentSegment(target))
1837 	target_tag = target->tag.kernel;	/* save the original tag */
1839 	if (ref_in_segment && ref < target)
1841 	    Set_Bit(MARK, target)
1846 	    Into_Reloc_Chain(target, ref)
1850 	 * CAUTION: the tag of the target is now destroyed !
1854 	if (ISRef(tag) && ref != target)	/* handling of untyped references	*/
1860 	    /* Mark_from(target_tag, target, YES) */
1872 		/* Mark_from(target_tag, target, YES) */
1875 		    Pdl_Push(1,target+1);
1879 	    target_tag = (++target)->tag.kernel;
1883 	    Set_Bit(MARK, target)
1884 	    /* Mark_from(target_tag, target, YES) */
1892 	    i = DidArity(target->val.did);
1893 	    ++target;
1894 	    goto _mark_pwords_;		/* (i,target) */
1902 	    /* Mark_from(target_tag, target, YES) */
1925 	    target += SUSP_HEADER_SIZE;
1926 	    goto _mark_pwords_;		/* (i,target) */
1940 Desc:	The target item is referenced by a TEXTENSION_POINTER pointer.
1941 	The target tag is already overwritten, but still available in
1947 	pword *target			referenced by the typed pointer
1965 /* _mark_from_: */		/* Mark_from(target_tag, target, YES) */
1969 _mark_from_pointer_:		/* mark_from(target_tag, target, YES) */
1971 	ref = target;
1979 	target = Pdl_Target();
1982 _mark_pwords_:			/* (i, target) */
1985 	    target_tag = target->tag.kernel;
1989 		Set_Bit(MARK, target)
1990 		/* Mark_from(target_tag, target, YES) */
1993 		    if (i>0) { Pdl_Push(i,target+1); }
1997 	    ++target;