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 b1c4367..f2fd7eb 100644 (file)
--- a/f-prime.c
+++ b/f-prime.c
@@ -160,11 +160,12 @@ 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;