Some cleanup of unused stuff.

1 files changed, 18 insertions, 1 deletions

diff --git a/src/math/subgroups.c b/src/math/subgroups.c
index e01d6cc..4df4de0 100644
--- a/src/math/subgroups.c
+++ b/src/math/subgroups.c
@@ -2,7 +2,7 @@
  * ecgen, tool for generating Elliptic curve domain parameters
  * Copyright (C) 2017 J08nY
  */
-#include <gen/types.h>
+#include "gen/types.h"
 #include "subgroups.h"
 
 /**
@@ -42,6 +42,23 @@ static GEN __attribute__((unused)) subgroups_divisors(GEN order) {
 	return result;
 }
 
+/*
+static GEN subgroups_exponents(GEN order) {
+	GEN factors = Z_factor(order);
+	GEN primes = gel(factors, 1);
+	GEN multiples = gel(factors, 2);
+
+	long len = glength(primes);
+	pari_ulong count = 1;
+	for (long i = 1; i <= len; ++i) {
+		count *= itou(gel(multiples,i)) + 1;
+	}
+
+	GEN result = gtovec0(gen_0, count);
+
+}
+*/
+
 GEN subgroups_prime(const curve_t *curve, const config_t *cfg) {
 	if (cfg->prime || isprime(curve->order)) {
 		return gtovec(curve->order);