Function fxOverrideModule

xs/sources/xsModule.c:1987–2021

}

void fxOverrideModule(txMachine* the, txSlot* queue, txSlot* list, txSlot* result, txSlot* module, txSlot* record)
{
	txSlot** address = &(queue->next);
	txSlot* slot;
	while ((slot = *address)) {
		if (slot->value.reference == module) {
//			 slot->value.reference = record;
			*address = slot->next;
		}
		else {
			if (mxModuleStatus(slot) == XS_MODULE_STATUS_LINKING) {
				txSlot* transfer = mxModuleTransfers(slot)->value.reference->next;
				while (transfer) {
					txSlot* from = mxTransferFrom(transfer);
					if ((from->kind == XS_REFERENCE_KIND) && (from->value.reference == module))
						from->value.reference = record;
					transfer = transfer->next;
				}
			}
		}
		address = &(slot->next);
	}
	slot = list->value.reference->next;
	while (slot) {
		if (slot->value.reference == module) {
			slot->value.reference = record;
		}
		slot = slot->next;
	}
	if (result) {
		if (result->value.reference == module) {
			result->value.reference = record;
		}
	}
}

void fxPrepareModule(txMachine* the, txFlag flag)
{