diff options
Diffstat (limited to 'src/gen/order.c')
| -rw-r--r-- | src/gen/order.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/gen/order.c b/src/gen/order.c index 5f7620e..da1eb48 100644 --- a/src/gen/order.c +++ b/src/gen/order.c @@ -49,16 +49,15 @@ GENERATOR(order_gen_cofactor) { pari_ulong cofactor = *(pari_ulong *)args->args; pari_sp ltop = avma; GEN order = ellff_get_card(curve->curve); - GEN res = cgeti(DEFAULTPREC); - if (!dvdiiz(order, utoi(cofactor), res)) { + if (!dvdii(order, utoi(cofactor))) { avma = ltop; return -4; } + GEN res = diviuexact(order, cofactor); if (!isprime(res)) { avma = ltop; return -4; } - verbose_log("cofactor"); curve->order = gerepilecopy(ltop, order); obj_insert_shallow(curve->curve, 1, curve->order); |