diff options
| author | J08nY | 2017-08-31 21:29:32 +0200 |
|---|---|---|
| committer | J08nY | 2017-08-31 21:29:32 +0200 |
| commit | f68be0c29ca6871f4ea1e3a9ecb294bf54e1fd89 (patch) | |
| tree | 1986f91f7cebbe2a3c52dd34ad6074851a6fa3e7 /src/math/subgroups.c | |
| parent | 390046e05d5f14f07c6adbe879b51c48bbe27733 (diff) | |
| download | ecgen-f68be0c29ca6871f4ea1e3a9ecb294bf54e1fd89.tar.gz ecgen-f68be0c29ca6871f4ea1e3a9ecb294bf54e1fd89.tar.zst ecgen-f68be0c29ca6871f4ea1e3a9ecb294bf54e1fd89.zip | |
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); } /** |