Function fxDeleteMachine

xs/sources/xsAPI.c:1566–1612

}

void fxDeleteMachine(txMachine* the)
{
	txSlot* aSlot;
#ifndef mxLink
	txSlot* bSlot;
	txSlot* cSlot;
#endif

	if (!(the->shared)) {
	#ifdef mxFrequency
		fxReportFrequency(the);
	#endif
	#ifdef mxDebug
		fxLogout(the);
	#endif
	}
	the->context = C_NULL;
	aSlot = the->cRoot;
	while (aSlot) {
		aSlot->flag |= XS_MARK_FLAG;
		aSlot = aSlot->next;
	}
#ifndef mxLink
	aSlot = the->firstHeap;
	while (aSlot) {
		bSlot = aSlot + 1;
		cSlot = aSlot->value.reference;
		while (bSlot < cSlot) {
			if ((bSlot->kind == XS_HOST_KIND) && (bSlot->value.host.variant.destructor)) {
				if (bSlot->flag & XS_HOST_HOOKS_FLAG) {
					if (bSlot->value.host.variant.hooks->destructor)
						(*(bSlot->value.host.variant.hooks->destructor))(bSlot->value.host.data);
				}
				else
					(*(bSlot->value.host.variant.destructor))(bSlot->value.host.data);
			}
			bSlot++;
		}
		aSlot = aSlot->next;
	}
#endif
	fxDeleteMachinePlatform(the);
	if (gxDefaults.terminateSharedCluster)
		gxDefaults.terminateSharedCluster(the);
	fxFree(the);
	c_free(the);
}

#if mxAliasInstance
txMachine* fxCloneMachine(txCreation* theCreation, txMachine* theMachine, txString theName, void* theContext)