Function fxBeginHost

xs/sources/xsAPI.c:1883–1925

/* Host */

txMachine* fxBeginHost(txMachine* the)
{
#if defined(mxInstrument) || defined(mxProfile)
	if (the->frame == C_NULL)
		fxCheckProfiler(the, C_NULL);
#endif
	mxOverflow(-5);
	/* THIS */
	(--the->stack)->next = C_NULL;
	mxInitSlotKind(the->stack, XS_UNDEFINED_KIND);
	/* FUNCTION */
	(--the->stack)->next = C_NULL;
	mxInitSlotKind(the->stack, XS_UNDEFINED_KIND);
	/* RESULT */
	(--the->stack)->next = C_NULL;
	mxInitSlotKind(the->stack, XS_UNDEFINED_KIND);
	/* FRAME */
	(--the->stack)->next = the->frame;
	the->stack->ID = 0;
	the->stack->flag = XS_C_FLAG;
#ifdef mxDebug
	if (the->breakOnStartFlag) {
		the->breakOnStartFlag = 0;
		the->stack->flag |= XS_STEP_INTO_FLAG | XS_STEP_OVER_FLAG;
	}
	if (the->frame && (the->frame->flag & XS_STEP_INTO_FLAG))
		the->stack->flag |= XS_STEP_INTO_FLAG | XS_STEP_OVER_FLAG;
#endif
	the->stack->kind = XS_FRAME_KIND;
	the->stack->value.frame.code = the->code;
	the->stack->value.frame.scope = the->scope;
	the->frame = the->stack;
	/* VARC */
	(--the->stack)->next = C_NULL;
	the->stack->ID = XS_NO_ID;
	the->stack->flag = XS_NO_FLAG;
	the->stack->kind = XS_VAR_KIND;
	the->stack->value.environment.variable.count = 0;
	the->stack->value.environment.line = 0;
	the->scope = the->stack;
	the->code = C_NULL;
	return the;
}

void fxEndHost(txMachine* the)
{