===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/include/ca.h,v
retrieving revision 1.106
retrieving revision 1.108
diff -u -p -r1.106 -r1.108
--- OpenXM_contrib2/asir2000/include/ca.h	2018/03/29 01:32:53	1.106
+++ OpenXM_contrib2/asir2000/include/ca.h	2020/10/04 03:14:08	1.108
@@ -45,7 +45,7 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/include/ca.h,v 1.105 2018/03/27 06:29:19 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/include/ca.h,v 1.107 2018/09/04 07:03:38 noro Exp $ 
 */
 #include <stdio.h>
 #include <stdlib.h>
@@ -2666,7 +2666,7 @@ int compnbp(VL vl,NBP p1,NBP p2);
 #define MPQTOGQ(g,q) \
 (!mpq_sgn(g)?((q)=0):(NEWGQ(q),BDY(q)[0]=(g)[0],(q)))
 
-#define INTMPQ(a) (!mpz_cmp_ui(mpq_numref(a),1))
+#define INTMPQ(a) (!mpz_cmp_ui(mpq_denref(a),1))
 
 #define UNIGZ(a) ((a)&&NID(a)==N_GZ&&!mpz_cmp_ui(BDY(a),1))
 #define MUNIGZ(a) ((a)&&NID(a)==N_GZ&&!mpz_cmp_si(BDY(a),-1))
@@ -2837,3 +2837,5 @@ void leave_signal_cs_all();
 #else
 #define LEAVE_SIGNAL_CS_ALL
 #endif
+
+int equalr(VL,Obj,Obj);