Function fxDebugEvalExpression

xs/sources/xsDebug.c:358–486

}

txBoolean fxDebugEvalExpression(txMachine* the, txSlot* frame, txSlot* expression, txSlot* result)
{
	txBoolean success = 0;
	if (mxIsFunction(expression->value.reference)) {
		txSlot* scope = C_NULL;
		if (frame == the->frame)
			scope = the->scope;
		else {
			txSlot* current = the->frame;
			while (current->next != frame)
				current = current->next;
			if (current)
				scope = current->value.frame.scope;
			else
				scope = C_NULL;
		}
	
		txSlot* _this = frame + 3;
		txSlot* environment = mxFrameToEnvironment(frame);
		txSlot* function = frame + 2;
		txSlot* home = (function->kind == XS_REFERENCE_KIND) ? mxFunctionInstanceHome(function->value.reference) : C_NULL;
		txSlot* closures;
		txSlot* property;

		the->debugEval = 1;

		mxOverflow(-5);
		/* THIS */
		mxPushSlot(_this);
		/* FUNCTION */
		mxPushSlot(function);
		/* RESULT */
		mxPushUndefined();
		/* FRAME */
		(--the->stack)->next = the->frame;
		the->stack->ID = 0;
		the->stack->flag = XS_C_FLAG | (frame->flag & (XS_STRICT_FLAG | XS_FIELD_FLAG));
		the->stack->kind = XS_FRAME_KIND;
		the->stack->value.frame.code = the->code;
		the->stack->value.frame.scope = the->scope;
		the->frame = the->stack;
		/* ENVIRONMENT */
		mxPushUndefined();
		closures = fxNewEnvironmentInstance(the, C_NULL);
		if (scope) {
			txSlot* local = scope;
			txID id;
			property = closures->next;
			while (local < environment) {
				id = local->ID;
				if ((0 < id) && (id < the->keyCount)) {
					property = fxNextSlotProperty(the, property, local, id, local->flag);
				}
				local++;
			}
		}
		the->scope = the->stack;
		the->code = C_NULL;