Function mont_out

modules/crypt/arith/xsBigIntEx.c:450–460

}

txBigInt *mont_out(txMachine *the, txBigInt *r, txBigInt *a, txBigInt *m, txU4 u)
{
	/* convert x' -> Mont(x', 1) = x'R^{-1} mod m -- same as Montgomery reduction */
	pool_t pool;	// must be a small pool
	if (r == NULL)
		r = fxBigInt_alloc(the, m->size);
	pool_init(&pool);
	mont_reduction(the, r, a, m, u, &pool);
	pool_dispose(the, &pool);
	return r;
}

static txBigInt *mont_mul(txMachine *the, txBigInt *r, txBigInt *a, txBigInt *b, txBigInt *m, txU4 u, pool_t *pool)
{