=================================================================== 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