Function fxOrderModule

xs/sources/xsModule.c:1948–1985

}

void fxOrderModule(txMachine* the, txSlot* queue, txSlot* order, txSlot* module)
{
	txSlot** fromAddress = &(queue->next);
	txSlot** toAddress = &(order->next);
	txSlot* from;
	txSlot* to;
	while ((from = *fromAddress)) {
		if (from == module) {
			*fromAddress = module->next;
			module->next = C_NULL;
			break;
		}
		fromAddress = &(from->next);
	}
	if (mxModuleStatus(module) == XS_MODULE_STATUS_LINKING) {
		txSlot* transfer = mxModuleTransfers(module)->value.reference->next;
		while (transfer) {
			from = mxTransferFrom(transfer);
			if (from->kind != XS_NULL_KIND) {
				to = queue->next;
				while (to) {
					if (to->value.reference == from->value.reference)
						break;
					to = to->next;
				}
				if (to)
					fxOrderModule(the, queue, order, to);
			}
			transfer = transfer->next;
		}
	}
	while ((to = *toAddress)) {
		if (to->value.reference == module->value.reference)
			return;
		toAddress = &(to->next);
	}
	*toAddress = module;
}

void fxOverrideModule(txMachine* the, txSlot* queue, txSlot* list, txSlot* result, txSlot* module, txSlot* record)
{