X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb/blobdiff_plain/bb77b1d1f5d16f3e8fce3d15fc2d88eb0597346f..HEAD:/math/mpmont-mexp.c

diff --git a/math/mpmont-mexp.c b/math/mpmont-mexp.c
index 20a5f73b..9b0506bf 100644
--- a/math/mpmont-mexp.c
+++ b/math/mpmont-mexp.c
@@ -37,7 +37,7 @@
 
 /* --- @mpmont_mexpr@ --- *
  *
- * Arguments:	@mpmont *mm@ = pointer to Montgomery reduction context
+ * Arguments:	@const mpmont *mm@ = pointer to Montgomery reduction context
  *		@mp *d@ = fake destination
  *		@const mp_expfactor *f@ = pointer to array of factors
  *		@size_t n@ = number of factors supplied
@@ -51,7 +51,7 @@
  *		except that the %$g_i$% and result are in Montgomery form.
  */
 
-static mp *mexpr(mpmont *mm, mp *d, mp_expfactor *f, size_t n)
+static mp *mexpr(const mpmont *mm, mp *d, mp_expfactor *f, size_t n)
 {
   mp *a = MP_COPY(mm->r);
   mp *spare = MP_NEW;
@@ -76,7 +76,7 @@ static mp *mexpr(mpmont *mm, mp *d, mp_expfactor *f, size_t n)
   return (a);
 }
 
-mp *mpmont_mexpr(mpmont *mm, mp *d, const mp_expfactor *f, size_t n)
+mp *mpmont_mexpr(const mpmont *mm, mp *d, const mp_expfactor *f, size_t n)
 {
   mp_expfactor *ff = xmalloc(n * sizeof(mp_expfactor));
   size_t i;
@@ -90,7 +90,7 @@ mp *mpmont_mexpr(mpmont *mm, mp *d, const mp_expfactor *f, size_t n)
 
 /* --- @mpmont_mexp@ --- *
  *
- * Arguments:	@mpmont *mm@ = pointer to Montgomery reduction context
+ * Arguments:	@const mpmont *mm@ = pointer to Montgomery reduction context
  *		@mp *d@ = fake destination
  *		@const mp_expfactor *f@ = pointer to array of factors
  *		@size_t n@ = number of factors supplied
@@ -100,7 +100,7 @@ mp *mpmont_mexpr(mpmont *mm, mp *d, const mp_expfactor *f, size_t n)
  * Use:		Convenient interface over @mpmont_mexpr@.
  */
 
-mp *mpmont_mexp(mpmont *mm, mp *d, const mp_expfactor *f, size_t n)
+mp *mpmont_mexp(const mpmont *mm, mp *d, const mp_expfactor *f, size_t n)
 {
   mp_expfactor *ff = xmalloc(n * sizeof(mp_expfactor));
   size_t i;