Function fxGetArrayLimit

xs/sources/xsArray.c:584–624

}

txIndex fxGetArrayLimit(txMachine* the, txSlot* reference)
{
	txNumber length;
	txSlot* instance = fxToInstance(the, reference);
	txSlot* array = instance->next;
	if (array && (array->kind == XS_ARRAY_KIND) && (array->ID == XS_ARRAY_BEHAVIOR)) {
#if mxAliasInstance
		if (instance->ID) {
			txSlot* alias = the->aliasArray[instance->ID];
			if (alias)
				array = alias->next;
		}
#endif
		return array->value.array.length;
	}
	if (array && (array->kind == XS_TYPED_ARRAY_KIND) && (array->ID == XS_TYPED_ARRAY_BEHAVIOR)) {
		txSlot* view = array->next;
		txSlot* buffer = view->next;
		if (mxThis->value.reference != instance) { // iterator
			if (fxIsDataViewOutOfBound(the, view, buffer))
				mxTypeError("out of bound buffer");
		}
		return fxGetDataViewSize(the, view, buffer) >> array->value.typedArray.dispatch->shift;
	}
	mxPushReference(instance);
	mxGetID(mxID(_length));
	length = fxToLength(the, the->stack);
	mxPop();
	if (length > 0xFFFFFFFF) { // @@ practical limit for iterations
		txSlot* result = instance->next;
		length = 0;
		while (result && (result->flag & XS_INTERNAL_FLAG)) {
			if (result->kind == XS_ARRAY_KIND) {
				length = result->value.array.length;
				break;
			}
			result = result->next;
		}
	}
	return (txIndex)length;
}

void fxIndexArray(txMachine* the, txSlot* array) 
{