General robustification.

[u/mdw/catacomb] / mp.h

diff --git a/mp.h b/mp.h
index c38bb3c..bfed14a 100644 (file)
--- a/mp.h
+++ b/mp.h
@@ -1,6 +1,6 @@
 /* -*-c-*-
  *
 /* -*-c-*-
  *

- * $Id: mp.h,v 1.17 2003/05/16 09:09:24 mdw Exp $
+ * $Id: mp.h,v 1.18 2004/04/03 03:32:05 mdw Exp $

  *
  * Simple multiprecision arithmetic
  *
  *
  * Simple multiprecision arithmetic
  *


@@ -30,6 +30,9 @@
 /*----- Revision history --------------------------------------------------* 
  *
  * $Log: mp.h,v $
 /*----- Revision history --------------------------------------------------* 
  *
  * $Log: mp.h,v $

+ * Revision 1.18  2004/04/03 03:32:05  mdw
+ * General robustification.
+ *

  * Revision 1.17  2003/05/16 09:09:24  mdw
  * Fix @mp_lsl2c@.  Turns out to be surprisingly tricky.
  *
  * Revision 1.17  2003/05/16 09:09:24  mdw
  * Fix @mp_lsl2c@.  Turns out to be surprisingly tricky.
  *


@@ -854,8 +857,10 @@ extern int mp_cmp(const mp */*a*/, const mp */*b*/);
 /* --- Other handy macros --- */
 
 #define MP_ISNEG(x) ((x)->f & MP_NEG)
 /* --- Other handy macros --- */
 
 #define MP_ISNEG(x) ((x)->f & MP_NEG)

-#define MP_ISZERO(x) MP_EQ((x), MP_ZERO)
+#define MP_ISZERO(x) (!MP_LEN(x))

 #define MP_ISPOS(x) (!MP_ISNEG(x) && !MP_ISZERO(x))
 #define MP_ISPOS(x) (!MP_ISNEG(x) && !MP_ISZERO(x))

+#define MP_ISODD(x) (!MP_ISZERO(x) && ((x)->v[0] & 1u))
+#define MP_ISEVEN(x) (!MP_ISODD(x))

 
 /*----- Arithmetic operations ---------------------------------------------*/
 
 
 /*----- Arithmetic operations ---------------------------------------------*/