diff options
Diffstat (limited to 'src/math/subgroups.c')
| -rw-r--r-- | src/math/subgroups.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/math/subgroups.c b/src/math/subgroups.c index 5ca2fde..45523ad 100644 --- a/src/math/subgroups.c +++ b/src/math/subgroups.c @@ -54,6 +54,7 @@ static GEN subgroups_divisors(GEN order) { * @return a t_VEC of factors */ static GEN subgroups_2n_factors(GEN factors, size_t min_bits) { + pari_sp ltop = avma; long nprimes = glength(factors); if (nprimes == min_bits) return NULL; GEN amount = int2n(nprimes); @@ -78,7 +79,7 @@ static GEN subgroups_2n_factors(GEN factors, size_t min_bits) { } } GEN ret = gtoset(groups); - return ret; + return gerepilecopy(ltop, ret); } /** |