From: Jarkko Hietaniemi Date: Mon, 11 Jun 2001 12:03:16 +0000 (+0000) Subject: One more run_byacc (a hand-tweaked version had slipped in). X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=771df0940fe18ac10a1fb9f22390e99d0aa14d65;p=p5sagit%2Fp5-mst-13.2.git One more run_byacc (a hand-tweaked version had slipped in). p4raw-id: //depot/perl@10510 --- diff --git a/perly.c b/perly.c index 2b2a3f0..61a6fd3 100644 --- a/perly.c +++ b/perly.c @@ -1509,9 +1509,7 @@ yyloop: if (yyerrflag > 0) --yyerrflag; goto yyloop; } - if ( -((yyn = yyrindex[yystate])) && -(yyn += yychar) >= 0 && + if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 && yyn <= YYTABLESIZE && yycheck[yyn] == yychar) { yyn = yytable[yyn]; @@ -1519,12 +1517,12 @@ yyloop: } if (yyerrflag) goto yyinrecovery; #ifdef lint - goto yynewerror; + #endif yyerror("syntax error"); #ifdef lint - goto yyerrlab; + #endif ++yynerrs; diff --git a/vms/perly_c.vms b/vms/perly_c.vms index 9528fa1..3c6b437 100644 --- a/vms/perly_c.vms +++ b/vms/perly_c.vms @@ -1519,12 +1519,12 @@ yyloop: } if (yyerrflag) goto yyinrecovery; #ifdef lint - goto yynewerror; + #endif yyerror("syntax error"); #ifdef lint - goto yyerrlab; + #endif ++yynerrs;