X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb/blobdiff_plain/0f00dc4c8eb47e67bc0f148c2dd109f73a451e0a..HEAD:/math/mpbarrett-exp.c

diff --git a/math/mpbarrett-exp.c b/math/mpbarrett-exp.c
index 44cad7ef..27b74da0 100644
--- a/math/mpbarrett-exp.c
+++ b/math/mpbarrett-exp.c
@@ -35,7 +35,7 @@
 
 /* --- @mpbarrett_exp@ --- *
  *
- * Arguments:	@mpbarrett *mb@ = pointer to Barrett reduction context
+ * Arguments:	@const mpbarrett *mb@ = pointer to Barrett reduction context
  *		@mp *d@ = fake destination
  *		@mp *a@ = base
  *		@mp *e@ = exponent
@@ -43,7 +43,7 @@
  * Returns:	Result, %$a^e \bmod m$%.
  */
 
-mp *mpbarrett_exp(mpbarrett *mb, mp *d, mp *a, mp *e)
+mp *mpbarrett_exp(const mpbarrett *mb, mp *d, mp *a, mp *e)
 {
   mp *x = MP_ONE;
   mp *spare = (e->f & MP_BURN) ? MP_NEWSEC : MP_NEW;