A variety of small tweaks and fixes. Make mpmont etc. return errors

[u/mdw/catacomb] / f-prime.c

diff --git a/f-prime.c b/f-prime.c
index 9b1ceb6..f2fd7eb 100644 (file)
--- a/f-prime.c
+++ b/f-prime.c
@@ -160,16 +160,18 @@ field *field_prime(mp *p)
 {
   fctx_prime *f;
 
-  if (!MP_POSP(p) || !MP_ODDP(p))
-    return (0);
   f = CREATE(fctx_prime);
   f->f.ops = &fops;
-  mpmont_create(&f->mm, p);
+  if (mpmont_create(&f->mm, p)) {
+    DESTROY(f);
+    return (0);
+  }
   f->f.zero = MP_ZERO;
   f->f.one = f->mm.r;
   f->f.m = f->mm.m;
   f->f.nbits = mp_bits(p);
   f->f.noctets = (f->f.nbits + 7) >> 3;
+  f->f.q = f->mm.m;
   return (&f->f);
 }