X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb/blobdiff_plain/0f00dc4c8eb47e67bc0f148c2dd109f73a451e0a..6a024d24d97cb5d42c0091571735475b849f59f4:/math/group-guts.h

diff --git a/math/group-guts.h b/math/group-guts.h
index c34d89c2..c9f28c49 100644
--- a/math/group-guts.h
+++ b/math/group-guts.h
@@ -50,6 +50,10 @@
 #  include "gfreduce.h"
 #endif
 
+#define GROUP_GUTS_MPSTRUCT
+typedef struct { mp *x; } ge_prime;
+typedef struct { mp *x; } ge_bin;
+
 #ifndef CATACOMB_GROUP_H
 #  include "group.h"
 #endif
@@ -57,21 +61,22 @@
 /*----- Data structures ---------------------------------------------------*/
 
 typedef struct gctx_prime {
-  group g;
-  mp *gen;
+  struct group_ g;
+  ge_prime gen;
   mpmont mm;
+  ge_prime i;
 } gctx_prime;
 
 typedef struct gctx_ec {
-  group g;
+  struct group_ g;
   ec id, gen;
   ec_info ei;
 } gctx_ec;
 
 typedef struct gctx_bin {
-  group g;
-  mp *gen;
-  mp *one;
+  struct group_ g;
+  ge_bin gen;
+  ge_bin one;
   gfreduce r;
 } gctx_bin;