diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-10 17:38:28 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-10 17:38:28 +0000 |
| commit | 7b57b0ead8ab6b3f08be8b4ded2364d260db25a1 (patch) | |
| tree | fec87b47aee3e8ee1e435b54119f831f26448a1e /perly.c | |
| parent | 001465dc1b963f420aece5071db797e2459b57f8 (diff) | |
| download | perl-7b57b0ead8ab6b3f08be8b4ded2364d260db25a1.tar.gz | |
Update perly_c.diff, update perly.fixer to edit away
some of the -Wall noise.
p4raw-id: //depot/perl@10503
Diffstat (limited to 'perly.c')
| -rw-r--r-- | perly.c | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -1,5 +1,5 @@ #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 16 "perly.y" @@ -1509,7 +1509,9 @@ 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 +1521,12 @@ yyloop: #ifdef lint goto yynewerror; #endif -yynewerror: + yyerror("syntax error"); #ifdef lint goto yyerrlab; #endif -yyerrlab: + ++yynerrs; yyinrecovery: if (yyerrflag < 3) |