===================================================================
RCS file: /home/cvs/OpenXM_contrib/pari-2.2/src/kernel/none/Attic/level0.h,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -p -r1.1.1.1 -r1.2
--- OpenXM_contrib/pari-2.2/src/kernel/none/Attic/level0.h	2001/10/02 11:17:08	1.1.1.1
+++ OpenXM_contrib/pari-2.2/src/kernel/none/Attic/level0.h	2002/09/11 07:27:00	1.2
@@ -1,4 +1,4 @@
-/* $Id: level0.h,v 1.1.1.1 2001/10/02 11:17:08 noro Exp $
+/* $Id: level0.h,v 1.2 2002/09/11 07:27:00 noro Exp $
 
 Copyright (C) 2000  The PARI group.
 
@@ -230,6 +230,8 @@ again2:
   if (aux1 > hiremainder) {q2--; hiremainder += v1; aux -= v2; goto again2;}
   hiremainder = GLUE(hiremainder - aux1, LOWWORD(u4 - aux2)) >> k;
   return GLUE(q1, q2);
+#undef GLUE
+#undef SPLIT
 }
 
 #endif