Function fx_lockdown

xs/sources/xsLockdown.c:74–206

}

void fx_lockdown(txMachine* the)
{
#define mxHardenBuiltInCall \
	mxPush(mxGlobal); \
	mxPushSlot(harden); \
	mxCall()
#define mxHardenBuiltInRun \
	mxRunCount(1); \
	mxPop()

	txSlot* instance;
	txSlot* property;
	txSlot* item;
	txSlot* harden;
	txInteger id;
	
	if (mxProgram.value.reference->flag & XS_DONT_MARSHALL_FLAG)
		mxTypeError("lockdown already called");
	mxProgram.value.reference->flag |= XS_DONT_MARSHALL_FLAG;
	
	property = mxBehaviorSetProperty(the, mxAsyncFunctionPrototype.value.reference, mxID(_constructor), 0, XS_OWN);
	fx_lockdown_aux(the, 1, &mxAsyncFunctionPrototype, property);
	property = mxBehaviorSetProperty(the, mxAsyncGeneratorFunctionPrototype.value.reference, mxID(_constructor), 0, XS_OWN);
	fx_lockdown_aux(the, 1, &mxAsyncGeneratorFunctionPrototype, property);
	property = mxBehaviorSetProperty(the, mxFunctionPrototype.value.reference, mxID(_constructor), 0, XS_OWN);
	fx_lockdown_aux(the, 1, &mxFunctionPrototype, property);
	property = mxBehaviorSetProperty(the, mxGeneratorFunctionPrototype.value.reference, mxID(_constructor), 0, XS_OWN);
	fx_lockdown_aux(the, 1, &mxGeneratorFunctionPrototype, property);
	property = mxBehaviorSetProperty(the, mxCompartmentPrototype.value.reference, mxID(_constructor), 0, XS_OWN);
	fx_lockdown_aux(the, 1, &mxCompartmentPrototype, property);

	instance = fxNewArray(the, _Compartment);
	property = the->stackIntrinsics - 1;
	item = instance->next->value.array.address;
	for (id = 0; id < XS_SYMBOL_ID_COUNT; id++) {
		*((txIndex*)item) = id;
		property--;
		item++;
	}
	for (; id < _Compartment; id++) {
		*((txIndex*)item) = id;
		item->kind = property->kind;
		item->value = property->value;
		property--;
		item++;
	}
	
	fxDuplicateInstance(the, mxDateConstructor.value.reference);
	property = mxFunctionInstanceCode(the->stack->value.reference);
	property->value.callback.address = mxCallback(fx_Date_secure);
	property = mxBehaviorSetProperty(the, the->stack->value.reference, mxID(_now), 0, XS_OWN);
	fxSetHostFunctionProperty(the, property, mxCallback(fx_Date_now_secure), 0, mxID(_now));
	property = mxBehaviorSetProperty(the, mxDatePrototype.value.reference, mxID(_constructor), 0, XS_OWN);
	fx_lockdown_aux(the, 7, &mxDatePrototype, property);
	mxPull(instance->next->value.array.address[_Date]);
	
	fxDuplicateInstance(the, mxMathObject.value.reference);
	property = mxBehaviorSetProperty(the, the->stack->value.reference, mxID(_random), 0, XS_OWN);