Function fxGrowChunks

xs/sources/xsMemory.c:619–661

}

void* fxGrowChunks(txMachine* the, txSize size) 
{
	txByte* buffer;
	txBlock* block = C_NULL;

	if (!the->minimumChunksSize && the->firstBlock) {
		fxReport(the, "# Chunk allocation: %d bytes failed in fixed size heap\n", size);
		fxAbort(the, XS_NOT_ENOUGH_MEMORY_EXIT);
	}

	if ((the->firstBlock != C_NULL) && (!(the->collectFlag & XS_SKIPPED_COLLECT_FLAG))) {
		txSize modulo = size % (the->minimumChunksSize ? the->minimumChunksSize : 16);
		if (modulo)
			size = fxAddChunkSizes(the, size, the->minimumChunksSize - modulo);
	}
	size = fxAddChunkSizes(the, size, sizeof(txBlock));
	buffer = fxAllocateChunks(the, size);
	if (buffer) {
	#ifdef mxSnapshot
		c_memset(buffer, 0, size);
	#endif
		if ((the->firstBlock != C_NULL) && (the->firstBlock->limit == buffer)) {
			the->firstBlock->limit += size;
			block = the->firstBlock;
		}
		else {
			block = (txBlock*)buffer;
			block->nextBlock = the->firstBlock;
			block->current = buffer + sizeof(txBlock);
			block->limit = buffer + size;
			block->temporary = C_NULL;
			the->firstBlock = block;
			size -= sizeof(txBlock);
		}
		the->maximumChunksSize = fxAddChunkSizes(the, the->maximumChunksSize, size);
	#if mxReport
		fxReport(the, "# Chunk allocation: reserved %ld used %ld peak %ld bytes\n", 
			(long)the->maximumChunksSize, (long)the->currentChunksSize, (long)the->peakChunksSize);
	#endif
	}
	the->collectFlag &= ~XS_TRASHING_CHUNKS_FLAG;
	return block;
}

void fxGrowKeys(txMachine* the, txID theCount) 
{