Function mont_init

modules/crypt/arith/xsBigIntEx.c:397–410

* Montgomery method */

 * Montgomery method
 */
txU4 mont_init(txBigInt *m)
{
	txU4 a = m->data[0];
	txU4 x, s, d;
	int n;

	x = 1;
	for (n = mxBigIntWordSize - 1, s = 2; --n >= 0; s <<= 1) {
		d = a * x;
		if (d & s)
			x += s;
	}
	return ~x + 1;
}

txBigInt *mont_reduction(txMachine *the, txBigInt *r, txBigInt *a, txBigInt *m, txU4 u, pool_t *pool)
{