Function fxNewArgumentsStrictInstance

xs/sources/xsArguments.c:179–218

}

txSlot* fxNewArgumentsStrictInstance(txMachine* the, txIndex count)
{
	txSlot* instance;
	txSlot* array;
	txSlot* property;
	txSlot* function;
	txIndex index;
	txSlot* address;
	txIndex length = (txIndex)mxArgc;
	instance = fxNewObjectInstance(the);
	instance->flag |= XS_EXOTIC_FLAG;
	array = instance->next = fxNewSlot(the);
	array->flag = XS_INTERNAL_FLAG;
	array->ID = XS_ARGUMENTS_STRICT_BEHAVIOR;
	array->kind = XS_ARRAY_KIND;
	array->value.array.length = 0;
	array->value.array.address = C_NULL;
	property = fxNextNumberProperty(the, array, length, mxID(_length), XS_DONT_ENUM_FLAG);
	property = fxNextSlotProperty(the, property, &mxArrayIteratorFunction, mxID(_Symbol_iterator), XS_DONT_ENUM_FLAG);
	function = mxThrowTypeErrorFunction.value.reference;
	property = property->next = fxNewSlot(the);
	property->flag = XS_DONT_DELETE_FLAG | XS_DONT_ENUM_FLAG;
	property->ID = mxID(_callee);
	property->kind = XS_ACCESSOR_KIND;
	property->value.accessor.getter = function;
	property->value.accessor.setter = function;
	fxSetIndexSize(the, array, length, XS_CHUNK);
	index = 0;
	address = array->value.array.address;
	while (index < length) {
		property = mxArgv(index);
		*((txIndex*)address) = index;
		address->ID = XS_NO_ID;
		address->kind = property->kind;
		address->value = property->value;
		index++;
		address++;
	}
	return instance;
}

void fxThrowTypeError(txMachine* the)
{