diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-11 12:03:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-11 12:03:16 +0000 |
| commit | 771df0940fe18ac10a1fb9f22390e99d0aa14d65 (patch) | |
| tree | d91506431b630224266e162fa79c4723ea6918b6 | |
| parent | c4968b8c1fd33346b57653dcfcc0f9a34387a828 (diff) | |
| download | perl-771df0940fe18ac10a1fb9f22390e99d0aa14d65.tar.gz | |
One more run_byacc (a hand-tweaked version had slipped in).
p4raw-id: //depot/perl@10510
| -rw-r--r-- | perly.c | 8 | ||||
| -rw-r--r-- | vms/perly_c.vms | 4 |
2 files changed, 5 insertions, 7 deletions
@@ -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 9528fa1a18..3c6b437b99 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; |