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

[catacomb] / misc / share.c

diff --git a/misc/share.c b/misc/share.c
index e99781e..6931630 100644 (file)
--- a/misc/share.c
+++ b/misc/share.c
@@ -112,14 +112,13 @@ void share_mkshares(share *s, grand *r, mp *n)
 
   if (!s->p) {
     pgen_filterctx pf;
-    rabin pr;
     mp *p;
     unsigned bits = (mp_octets(n) + 1) * 8;
 
     pf.step = 2;
     p = mprand(MP_NEW, bits, r, 1);
     s->p = pgen("p", p, p, 0, 0, 0, pgen_filter, &pf,
-               rabin_iters(bits), pgen_test, &pr);
+               PGEN_BAILLIEPSWNTESTS, pgen_bailliepswtest, 0);
   }
 
   /* --- Construct the polynomial --- */