Function fxMarkWeakStuff

xs/sources/xsMemory.c:1577–1640

}

void fxMarkWeakStuff(txMachine* the) 
{
	txSlot* slot;
	txSlot** address;

	{
		txSlot* list;
		txSlot** listAddress = &the->firstWeakListLink;
		while ((list = *listAddress)) {
			if (list->flag & XS_MARK_FLAG) {
				txSlot* listEntry;
				txSlot** listEntryAddress = &list->value.weakList.first;
				while ((listEntry = *listEntryAddress)) {
					txSlot* value = listEntry->value.weakEntry.value;
					if ((value->flag & XS_MARK_FLAG) && (value->kind != XS_UNINITIALIZED_KIND)) {
						listEntryAddress = &listEntry->next;
					}
					else {
						listEntry->flag &= ~XS_MARK_FLAG;
						*listEntryAddress = listEntry->next;
					}
				}
				listAddress = &list->value.weakList.link;
			}
			else {
				txSlot* listEntry = list->value.weakList.first;
				while (listEntry) {
					txSlot* key = listEntry->value.weakEntry.check;
					if (key->flag & XS_MARK_FLAG) {
						txSlot* keyEntry;
						txSlot** keyEntryAddress = &key->next;
						while ((keyEntry = *keyEntryAddress)) {
							if (!(keyEntry->flag & XS_INTERNAL_FLAG))
								break;
							if ((keyEntry->kind == XS_WEAK_ENTRY_KIND) && (keyEntry->value.weakEntry.check == list)) {
								keyEntry->flag &= ~XS_MARK_FLAG;
								*keyEntryAddress = keyEntry->next;
								break;
							}
							keyEntryAddress = &keyEntry->next;
						}
					}
					listEntry = listEntry->next;
				}
				*listAddress = list->value.weakList.link;
			}
		}
	}
	address = &the->firstWeakRefLink;
	while ((slot = *address)) {
		if (!(slot->value.weakRef.target->flag & XS_MARK_FLAG))
			slot->value.weakRef.target = C_NULL;
		*address = C_NULL;
		address = &(slot->value.weakRef.link);
	}
	
	if (mxFinalizationRegistries.kind == XS_REFERENCE_KIND) {
		slot = mxFinalizationRegistries.value.reference->next;