Function mont_in

modules/crypt/arith/xsBigIntEx.c:438–448

}

txBigInt *mont_in(txMachine *the, txBigInt *r, txBigInt *a, txBigInt *m)
{
	txBigInt *ta;

	if (r == NULL)
		r = fxBigInt_alloc(the, m->size);
	ta = fxBigInt_ulsl1(the, NULL, a, m->size * mxBigIntWordSize);
	fxBigInt_mod(the, r, ta, m);
	fxBigInt_free(the, ta);
	return r;
}

txBigInt *mont_out(txMachine *the, txBigInt *r, txBigInt *a, txBigInt *m, txU4 u)
{