From f68be0c29ca6871f4ea1e3a9ecb294bf54e1fd89 Mon Sep 17 00:00:00 2001
From: J08nY
Date: Thu, 31 Aug 2017 21:29:32 +0200
Subject: Implement hashing of ANSI X9.62 seed.

---
 src/math/subgroups.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/math')

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);
 }
 
 /**
-- 
cgit v1.3.1