diff options
| -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; |