Function fxThrowMessage

xs/sources/xsAPI.c:1338–1382

}

void fxThrowMessage(txMachine* the, txString path, txInteger line, txError error, txString format, ...)
{
	char message[128] = "";
	txSize length = 0;
    va_list arguments;
    txSlot* slot;
    va_start(arguments, format);
    c_vsnprintf(message, sizeof(message), format, arguments);
    va_end(arguments);

	//??
	length = (txSize)c_strlen(message) - 1;
	while (length && (0x80 & message[length]))
		message[length--] = 0;
		
#ifdef mxDebug
 	if (!the->debugEval) {
		c_strncat(message, " (in ", sizeof(message) - mxStringLength(message) - 1);
		length = (txSize)c_strlen(message);
		fxBufferFrameName(the, message + length, sizeof(message) - length, the->frame, ")");
	}
#endif

	if ((error <= XS_NO_ERROR) || (XS_ERROR_COUNT <= error))
		error = XS_UNKNOWN_ERROR;

    slot = fxNewSlot(the);
    slot->kind = XS_INSTANCE_KIND;
    slot->value.instance.garbage = C_NULL;
    slot->value.instance.prototype = mxErrorPrototypes(error).value.reference;
	mxException.kind = XS_REFERENCE_KIND;
	mxException.value.reference = slot;
	slot = slot->next = fxNewSlot(the);
	slot->flag = XS_INTERNAL_FLAG;
	slot->kind = XS_ERROR_KIND;
	slot->value.error.info = C_NULL;
	slot->value.error.which = error;
	if (gxDefaults.captureErrorStack)
		gxDefaults.captureErrorStack(the, slot, the->frame);
	slot = fxNextStringProperty(the, slot, message, mxID(_message), XS_DONT_ENUM_FLAG);
#ifdef mxDebug
	fxDebugThrow(the, path, line, "throw");
#endif
	fxJump(the);
}

/* Debugger */