Function fxCloneMachine

xs/sources/xsAPI.c:1615–1738

#if mxAliasInstance
txMachine* fxCloneMachine(txCreation* theCreation, txMachine* theMachine, txString theName, void* theContext)
{
	txMachine* the = (txMachine *)c_calloc(1, sizeof(txMachine));
	if (the) {
		txJump aJump;

		aJump.nextJump = C_NULL;
		aJump.stack = C_NULL;
		aJump.scope = C_NULL;
		aJump.frame = C_NULL;
		aJump.code = C_NULL;
		aJump.flag = 0;
		the->firstJump = &aJump;
		if (c_setjmp(aJump.buffer) == 0) {
			txSlot* sharedSlot;
			txSlot* slot;

			if (gxDefaults.initializeSharedCluster)
				gxDefaults.initializeSharedCluster(the);

			the->preparation = theMachine->preparation;
			the->context = theContext;
			the->sharedMachine = theMachine;
			fxCreateMachinePlatform(the);

		#ifdef mxDebug
			the->name = theName;
		#endif
			the->profileID = theMachine->profileID;
			fxAllocate(the, theCreation);

            c_memcpy(the->nameTable, theMachine->nameTable, the->nameModulo * sizeof(txSlot *));
			c_memcpy(the->symbolTable, theMachine->symbolTable, the->symbolModulo * sizeof(txSlot *));
			the->colors = theMachine->colors;
			the->keyCount = theMachine->keyIndex + (txID)theCreation->initialKeyCount;
			the->keyIndex = theMachine->keyIndex;
			the->keyOffset = the->keyIndex;
			the->keyArrayHost = theMachine->keyArray;
			
			the->aliasCount = theMachine->aliasCount;
			if (the->aliasCount) {
				the->aliasArray = (txSlot **)c_malloc_uint32(the->aliasCount * sizeof(txSlot*));
				if (!the->aliasArray)
					fxAbort(the, XS_NOT_ENOUGH_MEMORY_EXIT);
				c_memset(the->aliasArray, 0, the->aliasCount * sizeof(txSlot*));
			}

			/* mxGlobal */
			mxPushUndefined();
			/* mxException */
			mxPushUndefined();
			/* mxProgram */
			mxPushNull();
			fxNewProgramInstance(the);
			/* mxHosts */
			mxPushUndefined();
			/* mxModuleQueue */
			fxNewInstance(the);