X-Git-Url: https://git.distorted.org.uk/u/mdw/catacomb/blobdiff_plain/e40955b56456a6191ebff48b00c667a0674b3bdb..f4535c6454395e6d56ce0091a07b6d4f7d54a47f:/f-prime.c

diff --git a/f-prime.c b/f-prime.c
index b1c4367..f2fd7eb 100644
--- 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;