X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/866fa31561005dd4a90fa92df86134e3829b86bf..c65df27983057ec76ed0e72bb370f9a5ae7dad28:/rabin.h

diff --git a/rabin.h b/rabin.h
index d57efcd..7fe4965 100644
--- a/rabin.h
+++ b/rabin.h
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
- * $Id: rabin.h,v 1.5 2000/07/09 21:32:16 mdw Exp $
+ * $Id: rabin.h,v 1.7 2004/04/08 01:36:15 mdw Exp $
  *
  * Miller-Rabin primality test
  *
@@ -27,27 +27,6 @@
  * MA 02111-1307, USA.
  */
 
-/*----- Revision history --------------------------------------------------* 
- *
- * $Log: rabin.h,v $
- * Revision 1.5  2000/07/09 21:32:16  mdw
- * rabin_test: Correct error in comment.
- *
- * Revision 1.4  2000/06/17 11:52:48  mdw
- * Typesetting fix.
- *
- * Revision 1.3  1999/12/22 15:50:29  mdw
- * Reworking for new prime-search system.  Add function for working out how
- * many iterations to use for a particular number.
- *
- * Revision 1.2  1999/12/10 23:29:48  mdw
- * Change header file guard names.
- *
- * Revision 1.1  1999/11/19 13:17:57  mdw
- * Prime number generator and tester.
- *
- */
-
 #ifndef CATACOMB_RABIN_H
 #define CATACOMB_RABIN_H
 
@@ -105,7 +84,7 @@ extern void rabin_create(rabin */*r*/, mp */*m*/);
 
 extern void rabin_destroy(rabin */*r*/);
 
-/* --- @rabin_test@ --- *
+/* --- @rabin_test@, @rabin_rtest@ --- *
  *
  * Arguments:	@rabin *r@ = pointer to Rabin-Miller context
  *		@mp *g@ = base to test the number against
@@ -114,9 +93,11 @@ extern void rabin_destroy(rabin */*r*/);
  *		if it succeeded.
  *
  * Use:		Performs a single iteration of the Rabin-Miller primality
- *		test.
+ *		test.  The @rtest@ variant assumes that %$g$% is either
+ *		already in Montgomery representation, or you don't care.
  */
 
+extern int rabin_rtest(rabin */*r*/, mp */*g*/);
 extern int rabin_test(rabin */*r*/, mp */*g*/);
 
 /* --- @rabin_iters@ --- *