Function pool_dispose

modules/crypt/arith/xsBigIntEx.c:91–97

}

static void pool_dispose(xsMachine *the, pool_t *pool)
{
	for (int i = MAX_PELM; --i >= 0;) {
		if (pool->pelm[i] != NULL)
			fxBigInt_free(the, pool->pelm[i]);
	}
}

/*
 * common functions