Function fxSetIndexSize

xs/sources/xsProperty.c:421–466

}

void fxSetIndexSize(txMachine* the, txSlot* array, txIndex target, txBoolean growable)
{
	txSlot* address = array->value.array.address;
	txSlot* chunk = C_NULL;
	txIndex current = (address) ? (((txChunk*)(((txByte*)address) - sizeof(txChunk)))->size) / sizeof(txSlot) : 0;
	txSize size;
	if (current != target) {
		if (array->flag & XS_DONT_SET_FLAG)
			mxTypeError("set length: not writable");
		size = fxMultiplyChunkSizes(the, target, sizeof(txSlot));
		if (address) {
			if (target) {
				chunk = (txSlot*)fxRenewChunk(the, address, size);
				if (!chunk) {
				#ifndef mxNoArrayOverallocation
					if (growable) {
						txSize capacity = fxSizeToCapacity(the, size);
						chunk = (txSlot*)fxNewGrowableChunk(the, size, capacity);
					}
					else
				#endif
						chunk = (txSlot*)fxNewChunk(the, size);
					address = array->value.array.address;
					if (current < target)
						c_memcpy(chunk, address, current * sizeof(txSlot));
					else
						c_memcpy(chunk, address, size);
				}
			}
		}
		else {
		#ifndef mxNoArrayOverallocation
			if (growable) {
				txSize capacity = fxSizeToCapacity(the, size);
				chunk = (txSlot*)fxNewGrowableChunk(the, size, capacity);
			}
			else
		#endif
				chunk = (txSlot*)fxNewChunk(the, size);
		}
		if (current < target)
			c_memset(chunk + current, 0, (target - current) * sizeof(txSlot));
		array->value.array.length = target;
		array->value.array.address = chunk;
	}
}

txBoolean fxDefinePrivateProperty(txMachine* the, txSlot* instance, txSlot* check, txID id, txSlot* slot, txFlag mask) 
{