Function fxFree

xs/sources/xsMemory.c:526–605

}

void fxFree(txMachine* the) 
{
	txSlot* aHeap;

#if mxAliasInstance
	if (the->aliasArray)
		c_free_uint32(the->aliasArray);
	the->aliasArray = C_NULL;
#endif

	fxFreeStringInfoCache(the);

	if (the->symbolTable)
		c_free_uint32(the->symbolTable);
	the->symbolTable = C_NULL;
	if (the->nameTable)
		c_free_uint32(the->nameTable);
	the->nameTable = C_NULL;
	if (the->keyArray)
		c_free_uint32(the->keyArray);
	the->keyArray = C_NULL;
	
	while (the->firstHeap) {
		aHeap = the->firstHeap;
		the->firstHeap = aHeap->next;
		fxFreeSlots(the, aHeap);
	}
	the->firstHeap = C_NULL;

	if (the->stackBottom)
		fxFreeSlots(the, the->stackBottom);
	the->stackBottom = C_NULL;
	the->stackTop = C_NULL;
	the->stackIntrinsics = C_NULL;
	the->stackPrototypes = C_NULL;
	the->stack = C_NULL;
	
#if mxNoChunks
	{
		txChunk** address;
		txChunk* chunk;
		address = (txChunk**)&(the->firstBlock);
		while ((chunk = *address)) {
			*address = (txChunk*)(chunk->temporary);
			c_free(chunk);
		}
	}
#else
	{
		txBlock* aBlock;
		while (the->firstBlock) {
			aBlock = the->firstBlock;
			the->firstBlock = aBlock->nextBlock;
			fxFreeChunks(the, aBlock);
		}
		the->firstBlock = C_NULL;
	}
#endif