diff options
Diffstat (limited to 'src/gen/gens.c')
| -rw-r--r-- | src/gen/gens.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/gen/gens.c b/src/gen/gens.c index e2c624e..04e7646 100644 --- a/src/gen/gens.c +++ b/src/gen/gens.c @@ -50,13 +50,15 @@ CHECK(gens_check_anomalous) { GEN gens_get_embedding(GEN prime, GEN order) { pari_sp ltop = avma; + GEN degree = gen_0; GEN power = gen_1; GEN pm; do { + degree = addii(degree, gen_1); power = mulii(power, prime); pm = subii(power, gen_1); } while (!dvdii(pm, order)); - return gerepilecopy(ltop, power); + return gerepilecopy(ltop, degree); } CHECK(gens_check_embedding) { |