prime generation: Deploy the new Baillie--PSW testers.

[catacomb] / pub / rsa-gen.c

diff --git a/pub/rsa-gen.c b/pub/rsa-gen.c
index b381bcd..ec16a12 100644 (file)
--- a/pub/rsa-gen.c
+++ b/pub/rsa-gen.c
@@ -61,7 +61,6 @@ static int genprime(mp **pp, mp **dd, const char *name,
 {
   pgen_jumpctx jctx; pfilt j;
   mp *p = MP_NEWSEC, *t = MP_NEW, *u = MP_NEW;
-  rabin rb;
   mpw p3, j3, a;
   int rc = -1;
 
@@ -105,7 +104,7 @@ static int genprime(mp **pp, mp **dd, const char *name,
   jctx.j = &j;
   p = pgen(name, p, p, event, ectx,
           nsteps, pgen_jump, &jctx,
-          rabin_iters(nbits), pgen_test, &rb);
+          PGEN_BAILLIEPSWNTESTS, pgen_bailliepswtest, 0);
 
   if (!p) goto end;