X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=x2p%2Fa2p.c;h=a118b3ad8cc9b67b681e43fc30f0935e543eec33;hb=ae7638f4d1ab4edf2eef64922c6d042904d21153;hp=eb3e8ae6a58a02a4ab62bee4406e7a864d2b32ea;hpb=2efaeb471b8b92d7180a656a22c05b363d242664;p=p5sagit%2Fp5-mst-13.2.git diff --git a/x2p/a2p.c b/x2p/a2p.c index eb3e8ae..a118b3a 100644 --- a/x2p/a2p.c +++ b/x2p/a2p.c @@ -1,11 +1,11 @@ #ifndef lint -static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91"; +/* static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91"; */ #endif #define YYBYACC 1 #line 2 "a2p.y" /* $RCSfile: a2p.y,v $$Revision: 4.1 $$Date: 92/08/07 18:29:12 $ * - * Copyright (c) 1991-1997, Larry Wall + * Copyright (c) 1991-2002, Larry Wall * * You may distribute under the terms of either the GNU General Public * License or the Artistic License, as specified in the README file. @@ -2074,7 +2074,7 @@ YYSTYPE yyvs[YYSTACKSIZE]; #define yystacksize YYSTACKSIZE #line 401 "a2p.y" -int yyparse _((void)); +int yyparse (void); #include "a2py.c" #line 2081 "y.tab.c" @@ -2089,7 +2089,7 @@ yyparse() register char *yys; extern char *getenv(); - if (yys = getenv("YYDEBUG")) + if ((yys = getenv("YYDEBUG"))) { yyn = *yys; if (yyn >= '0' && yyn <= '9') @@ -2106,7 +2106,7 @@ yyparse() *yyssp = yystate = 0; yyloop: - if (yyn = yydefred[yystate]) goto yyreduce; + if ((yyn = yydefred[yystate])) goto yyreduce; if (yychar < 0) { if ((yychar = yylex()) < 0) yychar = 0; @@ -2147,14 +2147,14 @@ yyloop: } if (yyerrflag) goto yyinrecovery; #ifdef lint - goto yynewerror; + #endif -yynewerror: + yyerror("syntax error"); #ifdef lint - goto yyerrlab; + #endif -yyerrlab: + ++yynerrs; yyinrecovery: if (yyerrflag < 3)