=================================================================== RCS file: /home/cvs/OpenXM_contrib/pari-2.2/src/language/Attic/anal.c,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/language/Attic/anal.c 2001/10/02 11:17:10 1.1.1.1 +++ OpenXM_contrib/pari-2.2/src/language/Attic/anal.c 2002/07/25 08:06:08 1.2 @@ -1,4 +1,4 @@ -/* $Id: anal.c,v 1.1.1.1 2001/10/02 11:17:10 noro Exp $ +/* $Id: anal.c,v 1.2 2002/07/25 08:06:08 noro Exp $ Copyright (C) 2000 The PARI group. @@ -606,7 +606,7 @@ err_match(char *s, char c) } #define match2(s,c) if (*s != c) err_match(s,c); -#define match(c) ({match2(analyseur, c); analyseur++;}) +#define match(c) do {match2(analyseur, c); analyseur++;} while (0) static long readlong()