=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/Attic/pari-mp.c,v retrieving revision 1.1 retrieving revision 1.4 diff -u -p -r1.1 -r1.4 --- OpenXM_contrib2/asir2000/engine/Attic/pari-mp.c 2000/12/22 10:03:28 1.1 +++ OpenXM_contrib2/asir2000/engine/Attic/pari-mp.c 2004/02/13 05:48:35 1.4 @@ -1,12 +1,18 @@ /* - * $OpenXM: $ + * $OpenXM: OpenXM_contrib2/asir2000/engine/pari-mp.c,v 1.3 2003/02/14 22:29:09 ohara Exp $ */ /* for f-itv.c */ -#include "genpari.h" +#if defined(PARI) + +#include #include "itv-pari.h" +# if PARI_VERSION_CODE > 131588 +extern ulong hiremainder, overflow; +# endif + GEN PariAddDown(GEN x, GEN y) { @@ -348,11 +354,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 +496,4 @@ PariDivrrDown(GEN x, GEN y) z[1]=ex1;*z=z0;return z; } +#endif /* PARI */