===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/Attic/pari-mp.c,v
retrieving revision 1.1
retrieving revision 1.3
diff -u -p -r1.1 -r1.3
--- OpenXM_contrib2/asir2000/engine/Attic/pari-mp.c	2000/12/22 10:03:28	1.1
+++ OpenXM_contrib2/asir2000/engine/Attic/pari-mp.c	2003/02/14 22:29:09	1.3
@@ -1,8 +1,10 @@
 /*
- * $OpenXM: $
+ * $OpenXM: OpenXM_contrib2/asir2000/engine/pari-mp.c,v 1.2 2000/12/26 06:12:36 noro Exp $
 */
 /* for f-itv.c */
 
+#if defined(PARI)
+
 #include "genpari.h"
 #include "itv-pari.h"
 
@@ -348,11 +350,11 @@ PariMulirDown(GEN x, GEN y)
   avma=av;return z;
 }
 
-#ifdef LONG_IS_32BIT
+#if defined(LONG_IS_32BIT)
 #define DIVCONVI 14
 #endif
 
-#ifdef LONG_IS_64BIT
+#if defined(LONG_IS_64BIT)
 #define DIVCONVI 7
 #endif
 
@@ -490,3 +492,4 @@ PariDivrrDown(GEN x, GEN y)
   z[1]=ex1;*z=z0;return z;
 }
 
+#endif /* PARI */