diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1997-01-17 08:39:00 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-17 08:39:00 +1200 |
| commit | fa83b5b6263413f922909c255e021c32c808b32d (patch) | |
| tree | 4f21edebbdd75d0613487aca81c35c1190e483d9 /perly.c.diff | |
| parent | 743c51bca697772277895eb80832bcfbd65530df (diff) | |
| download | perl-fa83b5b6263413f922909c255e021c32c808b32d.tar.gz | |
[inseparable changes from patch from perl5.003_21 to perl5.003_22]perl-5.003_22
CORE LANGUAGE CHANGES
Subject: Fix parsing of C< ${ xyz } >
From: Chip Salzenberg <chip@atlantic.net>
Files: toke.c
Subject: Don't parse method calls in strings
From: Chip Salzenberg <chip@atlantic.net>
Files: toke.c
OTHER CORE CHANGES
Subject: Fix memory corruption from formats
From: Chip Salzenberg <chip@atlantic.net>
Files: op.c perl.c perly.c perly.c.diff perly.y proto.h sv.c toke.c
Diffstat (limited to 'perly.c.diff')
| -rw-r--r-- | perly.c.diff | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/perly.c.diff b/perly.c.diff index 4bae11aa35..beedeb763e 100644 --- a/perly.c.diff +++ b/perly.c.diff @@ -88,7 +88,7 @@ Index: perly.c - short yyss[YYSTACKSIZE]; - YYSTYPE yyvs[YYSTACKSIZE]; - #define yystacksize YYSTACKSIZE - #line 626 "perly.y" + #line 624 "perly.y" /* PROGRAM */ --- 1238,1243 ---- *************** @@ -300,14 +300,14 @@ Index: perly.c yystate, yyn, yyrule[yyn]); #endif *************** -*** 2224,2229 **** +*** 2222,2227 **** #if YYDEBUG if (yydebug) ! printf("yydebug: after reduction, shifting from state 0 to\ ! state %d\n", YYFINAL); #endif yystate = YYFINAL; ---- 2238,2244 ---- +--- 2236,2242 ---- #if YYDEBUG if (yydebug) ! fprintf(stderr, @@ -316,20 +316,20 @@ Index: perly.c #endif yystate = YYFINAL; *************** -*** 2239,2243 **** +*** 2237,2241 **** if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; if (!yys) yys = "illegal-symbol"; ! printf("yydebug: state %d, reading %d (%s)\n", YYFINAL, yychar, yys); } ---- 2254,2258 ---- +--- 2252,2256 ---- if (yychar <= YYMAXTOKEN) yys = yyname[yychar]; if (!yys) yys = "illegal-symbol"; ! fprintf(stderr, "yydebug: state %d, reading %d (%s)\n", YYFINAL, yychar, yys); } *************** -*** 2254,2263 **** +*** 2252,2261 **** #if YYDEBUG if (yydebug) ! printf("yydebug: after reduction, shifting from state %d \ @@ -340,7 +340,7 @@ Index: perly.c ! goto yyoverflow; } *++yyssp = yystate; ---- 2269,2293 ---- +--- 2267,2291 ---- #if YYDEBUG if (yydebug) ! fprintf(stderr, @@ -367,7 +367,7 @@ Index: perly.c } *++yyssp = yystate; *************** -*** 2265,2272 **** +*** 2263,2270 **** goto yyloop; yyoverflow: ! yyerror("yacc stack overflow"); @@ -376,7 +376,7 @@ Index: perly.c yyaccept: ! return (0); } ---- 2295,2302 ---- +--- 2293,2300 ---- goto yyloop; yyoverflow: ! yyerror("Out of memory for yacc stack"); |