Function fxBigInt_mod_dbl

modules/crypt/arith/xsBigIntEx.c:124–137

}

txBigInt *fxBigInt_mod_dbl(txMachine *the, txBigInt *r, txBigInt *a, int k, txBigInt *m, pool_t *pool)
{
	txBigInt *t = pool_get(the, m->size + 1, pool);

	fxBigInt_copy(r, a);
	while (--k >= 0) {
		fxBigInt_ulsl1(the, t, r, 1);
		while (fxBigInt_ucomp(t, m) >= 0)
			fxBigInt_sub(the, t, t, m);
		fxBigInt_copy(r, t);
	}
	pool_put(t, m->size + 1);
	return r;
}

txBigInt *fxBigInt_mod_sub(txMachine *the, txBigInt *r, txBigInt *a, txBigInt *b, txBigInt *m, pool_t *pool)
{