/*----- Revision history --------------------------------------------------*
*
* $Log: mpmont-mexp.c,v $
/*----- Revision history --------------------------------------------------*
*
* $Log: mpmont-mexp.c,v $
* Revision 1.2 1999/11/21 11:35:10 mdw
* Performance improvement: use @mp_sqr@ and @mpmont_reduce@ instead of
* @mpmont_mul@ for squaring in exponentiation.
* Revision 1.2 1999/11/21 11:35:10 mdw
* Performance improvement: use @mp_sqr@ and @mpmont_reduce@ instead of
* @mpmont_mul@ for squaring in exponentiation.
-mp *mpmont_mexpr(mpmont *mm, mpmont_factor *f, size_t n)
+mp *mpmont_mexpr(mpmont *mm, mp *d, mpmont_factor *f, size_t n)
-mp *mpmont_mexp(mpmont *mm, mpmont_factor *f, size_t n)
+mp *mpmont_mexp(mpmont *mm, mp *d, mpmont_factor *f, size_t n)
if (MP_CMP(r, !=, rr)) {
fputs("\n*** mexp failed\n", stderr);
fputs("m = ", stderr); mp_writefile(m, stderr, 10);
if (MP_CMP(r, !=, rr)) {
fputs("\n*** mexp failed\n", stderr);
fputs("m = ", stderr); mp_writefile(m, stderr, 10);