/* --- Set up for the exponentiation --- */
- mpmont_create(&mm, rp->n);
+ if (mpmont_create(&mm, rp->n)) goto out;
m1 = mp_sub(m1, rp->n, mm.r);
/* --- Now for the main loop --- *
* is a failure.
*/
+ if (i > NPRIME) goto out;
aw = primetab[i++];
z = mpmont_mul(&mm, z, &a, mm.r2);
z = mpmont_expr(&mm, z, z, t);