Release 2.5.0.

[catacomb] / math / mpreduce.c

diff --git a/math/mpreduce.c b/math/mpreduce.c
index 871d3a42826c6928a4b737eac18be79f4e851f0f..0fd4b458714bf877ad25c9ce7aea7d62f8b379cf 100644 (file)
--- a/math/mpreduce.c
+++ b/math/mpreduce.c
@@ -295,7 +295,7 @@ void mpreduce_destroy(mpreduce *r)
 
 /* --- @mpreduce_dump@ --- *
  *
 
 /* --- @mpreduce_dump@ --- *
  *

- * Arguments:  @mpreduce *r@ = structure to dump
+ * Arguments:  @const mpreduce *r@ = structure to dump

  *             @FILE *fp@ = file to dump on
  *
  * Returns:    ---
  *             @FILE *fp@ = file to dump on
  *
  * Returns:    ---


@@ -303,7 +303,7 @@ void mpreduce_destroy(mpreduce *r)
  * Use:                Dumps a reduction context.
  */
 
  * Use:                Dumps a reduction context.
  */
 

-void mpreduce_dump(mpreduce *r, FILE *fp)
+void mpreduce_dump(const mpreduce *r, FILE *fp)

 {
   size_t i;
   static const char *opname[] = { "add", "addshift", "sub", "subshift" };
 {
   size_t i;
   static const char *opname[] = { "add", "addshift", "sub", "subshift" };


@@ -331,7 +331,7 @@ void mpreduce_dump(mpreduce *r, FILE *fp)
 
 /* --- @mpreduce_do@ --- *
  *
 
 /* --- @mpreduce_do@ --- *
  *

- * Arguments:  @mpreduce *r@ = reduction context
+ * Arguments:  @const mpreduce *r@ = reduction context

  *             @mp *d@ = destination
  *             @mp *x@ = source
  *
  *             @mp *d@ = destination
  *             @mp *x@ = source
  *


@@ -353,7 +353,7 @@ static void run(const mpreduce_instr *i, const mpreduce_instr *il,
   }
 }
 
   }
 }
 

-mp *mpreduce_do(mpreduce *r, mp *d, mp *x)
+mp *mpreduce_do(const mpreduce *r, mp *d, mp *x)

 {
   mpw *v, *vl;
   const mpreduce_instr *il;
 {
   mpw *v, *vl;
   const mpreduce_instr *il;


@@ -410,7 +410,7 @@ mp *mpreduce_do(mpreduce *r, mp *d, mp *x)
 
 /* --- @mpreduce_exp@ --- *
  *
 
 /* --- @mpreduce_exp@ --- *
  *

- * Arguments:  @mpreduce *mr@ = pointer to reduction context
+ * Arguments:  @const mpreduce *mr@ = pointer to reduction context

  *             @mp *d@ = fake destination
  *             @mp *a@ = base
  *             @mp *e@ = exponent
  *             @mp *d@ = fake destination
  *             @mp *a@ = base
  *             @mp *e@ = exponent


@@ -418,7 +418,7 @@ mp *mpreduce_do(mpreduce *r, mp *d, mp *x)
  * Returns:    Result, %$a^e \bmod m$%.
  */
 
  * Returns:    Result, %$a^e \bmod m$%.
  */
 

-mp *mpreduce_exp(mpreduce *mr, mp *d, mp *a, mp *e)
+mp *mpreduce_exp(const mpreduce *mr, mp *d, mp *a, mp *e)

 {
   mp *x = MP_ONE;
   mp *spare = (e->f & MP_BURN) ? MP_NEWSEC : MP_NEW;
 {
   mp *x = MP_ONE;
   mp *spare = (e->f & MP_BURN) ? MP_NEWSEC : MP_NEW;