Function mont_exp_init

modules/crypt/arith/xsBigIntEx.c:502–511

}

static txBigInt *mont_exp_init(txMachine *the, txBigInt *r, txBigInt *m, pool_t *pool)
{
	txBigInt *t = pool_get(the, m->size + 1, pool);

	fxBigInt_fill0(t);
	t->data[t->size - 1] = 1;
	r = fxBigInt_mod(the, r, t, m);
	pool_put(t, m->size + 1);
	return r;
}

txBigInt *fxBigInt_mont_exp_LR(txMachine *the, txBigInt *r, txBigInt *b, txBigInt *e, txBigInt *m)
{