X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/8ca0529451a9cb8b83ea71b56462a20761c4162b..3beded3716206d231f433c210e691159adbe7b66:/mpmont-mexp.c

diff --git a/mpmont-mexp.c b/mpmont-mexp.c
index fabac3e..a3f3f4b 100644
--- a/mpmont-mexp.c
+++ b/mpmont-mexp.c
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: mpmont-mexp.c,v 1.6 2001/06/16 13:00:20 mdw Exp $
+ * $Id: mpmont-mexp.c,v 1.7 2002/01/13 13:49:14 mdw Exp $
  *
  * Multiple simultaneous exponentiations
  *
@@ -30,6 +30,9 @@
 /*----- Revision history --------------------------------------------------* 
  *
  * $Log: mpmont-mexp.c,v $
+ * Revision 1.7  2002/01/13 13:49:14  mdw
+ * Make @const@-correct.
+ *
  * Revision 1.6  2001/06/16 13:00:20  mdw
  * Use the generic exponentiation functions.
  *
@@ -103,7 +106,7 @@ mp *mpmont_mexpr(mpmont *mm, mp *d, mp_expfactor *f, size_t n)
  *
  * Arguments:	@mpmont *mm@ = pointer to Montgomery reduction context
  *		@mp *d@ = fake destination
- *		@mp_expfactor *f@ = pointer to array of factors
+ *		@const mp_expfactor *f@ = pointer to array of factors
  *		@size_t n@ = number of factors supplied
  *
  * Returns:	Product of bases raised to exponents, all mod @m@.
@@ -111,7 +114,7 @@ mp *mpmont_mexpr(mpmont *mm, mp *d, mp_expfactor *f, size_t n)
  * Use:		Convenient interface over @mpmont_mexpr@.
  */
 
-mp *mpmont_mexp(mpmont *mm, mp *d, mp_expfactor *f, size_t n)
+mp *mpmont_mexp(mpmont *mm, mp *d, const mp_expfactor *f, size_t n)
 {
   mp_expfactor *v = xmalloc(sizeof(*v) * n);
   size_t i;