Function xs_mod2_exp

modules/crypt/arith/modular.c:68–78

}

void
xs_mod2_exp(xsMachine *the)
{
	txBigInt *a, *e, *m, *r;

	a = xsmcToBigInt(xsArg(0));
	e = xsmcToBigInt(xsArg(1));
	m = xsmcToBigInt(xsArg(2));
	r = fxBigInt_mod_exp_LR(the, NULL, a, e, m);
	xsmcSetBigInt(xsResult, r);
}