Function pool_get

modules/crypt/arith/xsBigIntEx.c:67–84

}

static txBigInt *pool_get(xsMachine *the, txU2 size, pool_t *pool)
{
	// search for a free slot that fits into the size
	for (int i = 0; i < MAX_PELM; i++) {
		txBigInt *e = pool->pelm[i];
		if (e == NULL) {
			e = fxBigInt_alloc(the, size);
			pool->pelm[i] = e;
			return e;
		}
		if (e->size & FREE_MASK && (e->size & ~FREE_MASK) == size) {
			e->size &= ~FREE_MASK;
			return e;
		}
	}
	fxAbort(the, XS_NOT_ENOUGH_MEMORY_EXIT);
	return NULL;
}

static void pool_put(txBigInt *e, txU2 size)
{