Function fxCheckArray

xs/sources/xsArray.c:336–377

}

txSlot* fxCheckArray(txMachine* the, txSlot* slot, txBoolean mutable)
{
	txSlot* instance = fxToInstance(the, slot);
	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;
			else if (mutable) {
				instance = fxAliasInstance(the, instance);
				array = instance->next;
			}
		}
#endif
		{
			txSlot* address = array->value.array.address;
			txIndex size = (address) ? (((txChunk*)(((txByte*)address) - sizeof(txChunk)))->size) / sizeof(txSlot) : 0;
			txSlot* prototype = instance->value.instance.prototype;
			if (array->value.array.length != size)
				return C_NULL;
			if (mutable && ((instance->flag & XS_DONT_PATCH_FLAG) || (array->flag & XS_DONT_SET_FLAG)))
				return C_NULL;
			while (prototype) {
				txSlot* property = prototype->next;
				while (property) {
					if (property->flag & XS_INTERNAL_FLAG) {
						if ((property->kind == XS_ARRAY_KIND) && (property->value.array.address != C_NULL)) 
							return C_NULL;
					}
					else 
						break;
					property = property->next;
				}
				prototype = prototype->value.instance.prototype;
			}				
			return array;
		}
	}
	return C_NULL;
}

txSlot* fxCheckArrayItems(txMachine* the, txSlot* array, txIndex from, txIndex to)
{