Function fxNewParserChunk

xs/sources/xsScript.c:174–203

#define kParserChunkSize (4096)

void* fxNewParserChunk(txParser* parser, txSize size)
{
	size = (size + sizeof(void *) - 1) & ~(sizeof(void *) - 1);
	if (size <= parser->chunkSize) {
		void *result = parser->chunk;
		parser->chunk += size;
		parser->chunkSize -= size;
		return result;
	}

	if (size > (txSize)(kParserChunkSize - sizeof(txParserChunk))) {
		txParserChunk *block = c_malloc(sizeof(txParserChunk) + size);
		if (!block)
			fxAbort(parser->console, XS_NOT_ENOUGH_MEMORY_EXIT);
		parser->total += sizeof(txParserChunk) + size;
		block->next = parser->first;
		parser->first = block;
		return block + 1;
	}

	txParserChunk *block = c_malloc(kParserChunkSize);
	if (!block)
		fxAbort(parser->console, XS_NOT_ENOUGH_MEMORY_EXIT);
	parser->total += kParserChunkSize;
	block->next = parser->first;
	parser->first = block;
	parser->chunk = (txByte*)(block + 1) + size;
	parser->chunkSize = kParserChunkSize - sizeof(txParserChunk) - size;
	return block + 1;
}

void* fxNewParserChunkClear(txParser* parser, txSize size)
{