Function fxRenewChunk

xs/sources/xsMemory.c:1759–1812

}

void* fxRenewChunk(txMachine* the, void* theData, txSize size)
{
#if mxNoChunks
	txByte* aData = ((txByte*)theData) - sizeof(txChunk);
	txChunk* aChunk = (txChunk*)aData;
	size = fxAdjustChunkSize(the, size);
	if (size <= aChunk->size) {
		aChunk->size = size;
		return theData;
	}
	return C_NULL;
#else
	txByte* aData = ((txByte*)theData) - sizeof(txChunk);
	txChunk* aChunk = (txChunk*)aData;
	txSize capacity = (txSize)(aChunk->temporary - aData);
	txBlock* aBlock = the->firstBlock;
	size = fxAdjustChunkSize(the, size);
	if (size <= capacity) {
		the->currentChunksSize += size - aChunk->size;
		if (the->peakChunksSize < the->currentChunksSize)
			the->peakChunksSize = the->currentChunksSize;
		aChunk->size = size;
	#ifdef mxMetering
		the->meterIndex += size * XS_CHUNK_ALLOCATION_METERING;
	#endif
		return theData;
	}
	while (aBlock) {
		if (aChunk->temporary == aBlock->current) {
			txSize delta = size - capacity;
			if (aBlock->current + delta <= aBlock->limit) {
				the->currentChunksSize += size - aChunk->size;
				if (the->peakChunksSize < the->currentChunksSize)
					the->peakChunksSize = the->currentChunksSize;
				aBlock->current += delta;
				aChunk->temporary = aBlock->current;
				aChunk->size = size;
			#ifdef mxSnapshot
				c_memset(aData + capacity, 0, delta);
			#endif
			#ifdef mxMetering
				the->meterIndex += size * XS_CHUNK_ALLOCATION_METERING;
			#endif
				return theData;
			}
			else {
				return C_NULL;
			}
		}
		aBlock = aBlock->nextBlock;
	}
	return C_NULL;
#endif
}

#if mxAliasInstance
void fxShare(txMachine* the)