X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb/blobdiff_plain/a889a2b3fd8065bc610a0db330b1b63820e4d3c9..refs/heads/mdw/cfd-subtree:/pub/dsa-gen.c

diff --git a/pub/dsa-gen.c b/pub/dsa-gen.c
index 8802003f..5505beaf 100644
--- a/pub/dsa-gen.c
+++ b/pub/dsa-gen.c
@@ -137,7 +137,6 @@ int dsa_gen(dsa_param *dp, unsigned ql, unsigned pl, unsigned steps,
   dsa_stepctx s;
   prim_ctx p;
   int i;
-  rabin r;
   mp *qc;
 
   /* --- Initialize the stepping context --- */
@@ -158,7 +157,7 @@ int dsa_gen(dsa_param *dp, unsigned ql, unsigned pl, unsigned steps,
     ds->p = s.seedbuf = xmalloc(sz);
   }
   if ((dp->q = pgen("q", MP_NEW, MP_NEW, event, ectx, steps, dsa_step, &s,
-		    rabin_iters(ql), pgen_test, &r)) == 0)
+		    PGEN_BAILLIEPSWNTESTS, pgen_bailliepswtest, 0)) == 0)
     goto fail_q;
 
   /* --- Find @p@ --- */
@@ -169,7 +168,7 @@ int dsa_gen(dsa_param *dp, unsigned ql, unsigned pl, unsigned steps,
   s.bits = pl;
   s.seedbuf = 0;
   if ((dp->p = pgen("p", MP_NEW, MP_NEW, event, ectx, 4096, dsa_step, &s,
-		    rabin_iters(pl), pgen_test, &r)) == 0)
+		    PGEN_BAILLIEPSWNTESTS, pgen_bailliepswtest, 0)) == 0)
     goto fail_p;
   mp_drop(s.q);
   if (ds)