Encode tweaks for VMS
[perl.git] / perly_c.diff
1 *** perly.c.orig        Tue Mar 26 01:38:52 2002
2 --- perly.c     Tue Mar 26 01:38:54 2002
3 ***************
4 *** 1,5 ****
5   #ifndef lint
6 ! static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91";
7   #endif
8   #define YYBYACC 1
9   #line 16 "perly.y"
10 --- 1,5 ----
11   #ifndef lint
12 ! /* static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91"; */
13   #endif
14   #define YYBYACC 1
15   #line 16 "perly.y"
16 ***************
17 *** 9,15 ****
18   #ifdef EBCDIC
19   #undef YYDEBUG
20   #endif
21 ! #define dep() deprecate("\"do\" to call subroutines")
22   
23   /* stuff included here to make perly_c.diff apply better */
24   
25 --- 9,15 ----
26   #ifdef EBCDIC
27   #undef YYDEBUG
28   #endif
29 ! #define dep() deprecate_old("\"do\" to call subroutines")
30   
31   /* stuff included here to make perly_c.diff apply better */
32   
33 ***************
34 *** 50,119 ****
35   #define yylex yylex_r
36   #endif
37   
38 ! #line 54 "y.tab.c"
39 ! #define WORD 257
40 ! #define METHOD 258
41 ! #define FUNCMETH 259
42 ! #define THING 260
43 ! #define PMFUNC 261
44 ! #define PRIVATEREF 262
45 ! #define FUNC0SUB 263
46 ! #define UNIOPSUB 264
47 ! #define LSTOPSUB 265
48 ! #define LABEL 266
49 ! #define FORMAT 267
50 ! #define SUB 268
51 ! #define ANONSUB 269
52 ! #define PACKAGE 270
53 ! #define USE 271
54 ! #define WHILE 272
55 ! #define UNTIL 273
56 ! #define IF 274
57 ! #define UNLESS 275
58 ! #define ELSE 276
59 ! #define ELSIF 277
60 ! #define CONTINUE 278
61 ! #define FOR 279
62 ! #define LOOPEX 280
63 ! #define DOTDOT 281
64 ! #define FUNC0 282
65 ! #define FUNC1 283
66 ! #define FUNC 284
67 ! #define UNIOP 285
68 ! #define LSTOP 286
69 ! #define RELOP 287
70 ! #define EQOP 288
71 ! #define MULOP 289
72 ! #define ADDOP 290
73 ! #define DOLSHARP 291
74 ! #define DO 292
75 ! #define HASHBRACK 293
76 ! #define NOAMP 294
77 ! #define LOCAL 295
78 ! #define MY 296
79 ! #define MYSUB 297
80 ! #define COLONATTR 298
81 ! #define PREC_LOW 299
82 ! #define OROP 300
83 ! #define ANDOP 301
84 ! #define NOTOP 302
85 ! #define ASSIGNOP 303
86 ! #define OROR 304
87 ! #define ANDAND 305
88 ! #define BITOROP 306
89 ! #define BITANDOP 307
90 ! #define SHIFTOP 308
91 ! #define MATCHOP 309
92 ! #define UMINUS 310
93 ! #define REFGEN 311
94 ! #define POWOP 312
95 ! #define PREINC 313
96 ! #define PREDEC 314
97 ! #define POSTINC 315
98 ! #define POSTDEC 316
99 ! #define ARROW 317
100   #define YYERRCODE 256
101 ! short yylhs[] = {                                        -1,
102       0,    9,    7,    6,   10,    8,   11,   11,   11,   12,
103      12,   12,   12,   25,   25,   25,   25,   25,   25,   25,
104      15,   15,   15,   14,   14,   43,   43,   13,   13,   13,
105 --- 50,58 ----
106   #define yylex yylex_r
107   #endif
108   
109 ! #line 54 "perly.c"
110   #define YYERRCODE 256
111 ! static short yylhs[] = {                                        -1,
112       0,    9,    7,    6,   10,    8,   11,   11,   11,   12,
113      12,   12,   12,   25,   25,   25,   25,   25,   25,   25,
114      15,   15,   15,   14,   14,   43,   43,   13,   13,   13,
115 ***************
116 *** 135,141 ****
117      49,   34,   34,   35,   35,   35,   44,   24,   19,   20,
118      21,   22,   23,   36,   36,   36,   36,
119   };
120 ! short yylen[] = {                                         2,
121       2,    4,    0,    0,    4,    0,    0,    2,    2,    2,
122       1,    2,    3,    1,    1,    3,    3,    3,    3,    3,
123       0,    2,    6,    7,    7,    0,    2,    8,    8,   10,
124 --- 74,80 ----
125      49,   34,   34,   35,   35,   35,   44,   24,   19,   20,
126      21,   22,   23,   36,   36,   36,   36,
127   };
128 ! static short yylen[] = {                                         2,
129       2,    4,    0,    0,    4,    0,    0,    2,    2,    2,
130       1,    2,    3,    1,    1,    3,    3,    3,    3,    3,
131       0,    2,    6,    7,    7,    0,    2,    8,    8,   10,
132 ***************
133 *** 157,163 ****
134       1,    0,    1,    0,    1,    2,    1,    2,    2,    2,
135       2,    2,    2,    1,    1,    1,    1,
136   };
137 ! short yydefred[] = {                                      4,
138       0,    7,    0,   45,   58,   56,    0,   56,   56,    8,
139      46,    9,   11,   48,    0,   47,   49,   50,    0,    0,
140       0,   70,   71,    0,   14,    3,  173,    0,    0,  154,
141 --- 96,102 ----
142       1,    0,    1,    0,    1,    2,    1,    2,    2,    2,
143       2,    2,    2,    1,    1,    1,    1,
144   };
145 ! static short yydefred[] = {                                      4,
146       0,    7,    0,   45,   58,   56,    0,   56,   56,    8,
147      46,    9,   11,   48,    0,   47,   49,   50,    0,    0,
148       0,   70,   71,    0,   14,    3,  173,    0,    0,  154,
149 ***************
150 *** 199,205 ****
151       0,   22,    0,    0,    0,   31,    5,    0,   30,    0,
152       0,   33,    0,   23,
153   };
154 ! short yydgoto[] = {                                       1,
155      10,   11,   20,  104,   19,    2,   95,  370,   98,  359,
156       3,   12,   13,   70,  375,  285,   72,   73,   74,   75,
157      76,   77,   78,   79,  291,   81,  292,  281,  283,  286,
158 --- 138,144 ----
159       0,   22,    0,    0,    0,   31,    5,    0,   30,    0,
160       0,   33,    0,   23,
161   };
162 ! static short yydgoto[] = {                                       1,
163      10,   11,   20,  104,   19,    2,   95,  370,   98,  359,
164       3,   12,   13,   70,  375,  285,   72,   73,   74,   75,
165      76,   77,   78,   79,  291,   81,  292,  281,  283,  286,
166 ***************
167 *** 207,213 ****
168     194,  327,  156,  289,  271,  225,   14,   83,  137,   84,
169      85,   86,   87,   15,   16,   17,   18,   93,  278,
170   };
171 ! short yysindex[] = {                                      0,
172       0,    0, -132,    0,    0,    0,  -51,    0,    0,    0,
173       0,    0,    0,    0,  650,    0,    0,    0, -239, -215,
174       5,    0,    0, -215,    0,    0,    0,  -31,  -31,    0,
175 --- 146,152 ----
176     194,  327,  156,  289,  271,  225,   14,   83,  137,   84,
177      85,   86,   87,   15,   16,   17,   18,   93,  278,
178   };
179 ! static short yysindex[] = {                                      0,
180       0,    0, -132,    0,    0,    0,  -51,    0,    0,    0,
181       0,    0,    0,    0,  650,    0,    0,    0, -239, -215,
182       5,    0,    0, -215,    0,    0,    0,  -31,  -31,    0,
183 ***************
184 *** 249,255 ****
185     449,    0, 2181, -150,  340,    0,    0,  355,    0,  216,
186     216,    0, -123,    0,
187   };
188 ! short yyrindex[] = {                                      0,
189       0,    0,  247,    0,    0,    0,    0,    0,    0,    0,
190       0,    0,    0,    0,    0,    0,    0,    0,  274,    0,
191       0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
192 --- 188,194 ----
193     449,    0, 2181, -150,  340,    0,    0,  355,    0,  216,
194     216,    0, -123,    0,
195   };
196 ! static short yyrindex[] = {                                      0,
197       0,    0,  247,    0,    0,    0,    0,    0,    0,    0,
198       0,    0,    0,    0,    0,    0,    0,    0,  274,    0,
199       0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
200 ***************
201 *** 291,297 ****
202     917,    0,    0,  119,    0,    0,    0,    0,    0,    0,
203       0,    0,  179,    0,
204   };
205 ! short yygindex[] = {                                      0,
206       0,    0,  196,  425,    0,    0,   -2,    0,   37,  634,
207     -94,    0,    0,    0, -323,  -15, 2445,    0,  999,  414,
208     417,    0,    0,    0,  463,  -43,    0,    0,  321, -198,
209 --- 230,236 ----
210     917,    0,    0,  119,    0,    0,    0,    0,    0,    0,
211       0,    0,  179,    0,
212   };
213 ! static short yygindex[] = {                                      0,
214       0,    0,  196,  425,    0,    0,   -2,    0,   37,  634,
215     -94,    0,    0,    0, -323,  -15, 2445,    0,  999,  414,
216     417,    0,    0,    0,  463,  -43,    0,    0,  321, -198,
217 ***************
218 *** 300,306 ****
219       0,    0,    0,    0,    0,    0,    0,    0,    0,
220   };
221   #define YYTABLESIZE 4568
222 ! short yytable[] = {                                      71,
223     197,   65,  121,  227,   65,  111,  220,   22,  198,  293,
224     139,  296,  315,  275,  305,  102,  273,   88,  113,  228,
225      60,  113,  279,   65,  317,   60,  182,  254,  325,  101,
226 --- 239,245 ----
227       0,    0,    0,    0,    0,    0,    0,    0,    0,
228   };
229   #define YYTABLESIZE 4568
230 ! static short yytable[] = {                                      71,
231     197,   65,  121,  227,   65,  111,  220,   22,  198,  293,
232     139,  296,  315,  275,  305,  102,  273,   88,  113,  228,
233      60,  113,  279,   65,  317,   60,  182,  254,  325,  101,
234 ***************
235 *** 759,765 ****
236       0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
237       0,    0,    0,    0,    0,    0,   77,   77,
238   };
239 ! short yycheck[] = {                                      15,
240      95,   36,   46,   41,   36,   40,   59,   59,  100,  208,
241      54,   41,   59,  199,   41,   40,  196,  257,   41,   93,
242     123,   44,  202,   36,   93,   59,   40,   40,   59,   29,
243 --- 698,704 ----
244       0,    0,    0,    0,    0,    0,    0,    0,    0,    0,
245       0,    0,    0,    0,    0,    0,   77,   77,
246   };
247 ! static short yycheck[] = {                                      15,
248      95,   36,   46,   41,   36,   40,   59,   59,  100,  208,
249      54,   41,   59,  199,   41,   40,  196,  257,   41,   93,
250     123,   44,  202,   36,   93,   59,   40,   40,   59,   29,
251 ***************
252 *** 1224,1230 ****
253   #endif
254   #define YYMAXTOKEN 317
255   #if YYDEBUG
256 ! char *yyname[] = {
257   "end-of-file",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
258   "'!'",0,0,"'$'","'%'","'&'",0,"'('","')'","'*'","'+'","','","'-'",0,0,0,0,0,0,0,
259   0,0,0,0,0,"':'","';'",0,0,0,"'?'","'@'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
260 --- 1163,1169 ----
261   #endif
262   #define YYMAXTOKEN 317
263   #if YYDEBUG
264 ! static char *yyname[] = {
265   "end-of-file",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
266   "'!'",0,0,"'$'","'%'","'&'",0,"'('","')'","'*'","'+'","','","'-'",0,0,0,0,0,0,0,
267   0,0,0,0,0,"':'","';'",0,0,0,"'?'","'@'",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
268 ***************
269 *** 1241,1247 ****
270   "ANDAND","BITOROP","BITANDOP","SHIFTOP","MATCHOP","UMINUS","REFGEN","POWOP",
271   "PREINC","PREDEC","POSTINC","POSTDEC","ARROW",
272   };
273 ! char *yyrule[] = {
274   "$accept : prog",
275   "prog : progstart lineseq",
276   "block : '{' remember lineseq '}'",
277 --- 1180,1186 ----
278   "ANDAND","BITOROP","BITANDOP","SHIFTOP","MATCHOP","UMINUS","REFGEN","POWOP",
279   "PREINC","PREDEC","POSTINC","POSTDEC","ARROW",
280   };
281 ! static char *yyrule[] = {
282   "$accept : prog",
283   "prog : progstart lineseq",
284   "block : '{' remember lineseq '}'",
285 ***************
286 *** 1456,1472 ****
287   #define YYMAXDEPTH 500
288   #endif
289   #endif
290 - int yydebug;
291 - int yynerrs;
292 - int yyerrflag;
293 - int yychar;
294 - short *yyssp;
295 - YYSTYPE *yyvsp;
296 - YYSTYPE yyval;
297 - YYSTYPE yylval;
298 - short yyss[YYSTACKSIZE];
299 - YYSTYPE yyvs[YYSTACKSIZE];
300 - #define yystacksize YYSTACKSIZE
301   #line 793 "perly.y"
302    /* PROGRAM */
303   
304 --- 1395,1400 ----
305 ***************
306 *** 1477,1483 ****
307   #endif
308   #define yyparse() Perl_yyparse(pTHX)
309   
310 ! #line 1481 "y.tab.c"
311   #define YYABORT goto yyabort
312   #define YYACCEPT goto yyaccept
313   #define YYERROR goto yyerrlab
314 --- 1405,1411 ----
315   #endif
316   #define yyparse() Perl_yyparse(pTHX)
317   
318 ! #line 1409 "perly.c"
319   #define YYABORT goto yyabort
320   #define YYACCEPT goto yyaccept
321   #define YYERROR goto yyerrlab
322 ***************
323 *** 1485,1495 ****
324   yyparse()
325   {
326       register int yym, yyn, yystate;
327   #if YYDEBUG
328       register char *yys;
329 !     extern char *getenv();
330   
331 !     if (yys = getenv("YYDEBUG"))
332       {
333           yyn = *yys;
334           if (yyn >= '0' && yyn <= '9')
335 --- 1413,1443 ----
336   yyparse()
337   {
338       register int yym, yyn, yystate;
339 +     register short *yyssp;
340 +     register YYSTYPE *yyvsp;
341 +     short* yyss;
342 +     YYSTYPE* yyvs;
343 +     unsigned yystacksize = YYSTACKSIZE;
344 +     int retval = 0;
345   #if YYDEBUG
346       register char *yys;
347 ! #endif
348   
349 !     struct ysv *ysave;
350 ! #ifdef USE_ITHREADS
351 !     ENTER;                    /* force yydestruct() before we return */
352 ! #endif
353 !     New(73, ysave, 1, struct ysv);
354 !     SAVEDESTRUCTOR_X(yydestruct, ysave);
355 !     ysave->oldyydebug = yydebug;
356 !     ysave->oldyynerrs = yynerrs;
357 !     ysave->oldyyerrflag       = yyerrflag;
358 !     ysave->oldyychar  = yychar;
359 !     ysave->oldyyval   = yyval;
360 !     ysave->oldyylval  = yylval;
361
362 ! #if YYDEBUG
363 !     if ((yys = getenv("YYDEBUG")))
364       {
365           yyn = *yys;
366           if (yyn >= '0' && yyn <= '9')
367 ***************
368 *** 1501,1512 ****
369       yyerrflag = 0;
370       yychar = (-1);
371   
372       yyssp = yyss;
373       yyvsp = yyvs;
374       *yyssp = yystate = 0;
375   
376   yyloop:
377 !     if (yyn = yydefred[yystate]) goto yyreduce;
378       if (yychar < 0)
379       {
380           if ((yychar = yylex()) < 0) yychar = 0;
381 --- 1449,1470 ----
382       yyerrflag = 0;
383       yychar = (-1);
384   
385 +     /*
386 +     ** Initialize private stacks (yyparse may be called from an action)
387 +     */
388 +     New(73, yyss, yystacksize, short);
389 +     New(73, yyvs, yystacksize, YYSTYPE);
390 +     ysave->yyss = yyss;
391 +     ysave->yyvs = yyvs;
392 +     if (!yyvs || !yyss)
393 +       goto yyoverflow;
394
395       yyssp = yyss;
396       yyvsp = yyvs;
397       *yyssp = yystate = 0;
398   
399   yyloop:
400 !     if ((yyn = yydefred[yystate])) goto yyreduce;
401       if (yychar < 0)
402       {
403           if ((yychar = yylex()) < 0) yychar = 0;
404 ***************
405 *** 1516,1522 ****
406               yys = 0;
407               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
408               if (!yys) yys = "illegal-symbol";
409 !             printf("yydebug: state %d, reading %d (%s)\n", yystate,
410                       yychar, yys);
411           }
412   #endif
413 --- 1474,1480 ----
414               yys = 0;
415               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
416               if (!yys) yys = "illegal-symbol";
417 !             PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", yystate,
418                       yychar, yys);
419           }
420   #endif
421 ***************
422 *** 1526,1537 ****
423       {
424   #if YYDEBUG
425           if (yydebug)
426 !             printf("yydebug: state %d, shifting to state %d\n",
427                       yystate, yytable[yyn]);
428   #endif
429           if (yyssp >= yyss + yystacksize - 1)
430           {
431               goto yyoverflow;
432           }
433           *++yyssp = yystate = yytable[yyn];
434           *++yyvsp = yylval;
435 --- 1484,1507 ----
436       {
437   #if YYDEBUG
438           if (yydebug)
439 !             PerlIO_printf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n",
440                       yystate, yytable[yyn]);
441   #endif
442           if (yyssp >= yyss + yystacksize - 1)
443           {
444 +           /*
445 +           ** reallocate and recover.  Note that pointers
446 +           ** have to be reset, or bad things will happen
447 +           */
448 +           int yyps_index = (yyssp - yyss);
449 +           int yypv_index = (yyvsp - yyvs);
450 +           yystacksize += YYSTACKSIZE;
451 +           ysave->yyvs = Renew(yyvs, yystacksize, YYSTYPE);
452 +           ysave->yyss = Renew(yyss, yystacksize, short);
453 +           if (!yyvs || !yyss)
454               goto yyoverflow;
455 +           yyssp = yyss + yyps_index;
456 +           yyvsp = yyvs + yypv_index;
457           }
458           *++yyssp = yystate = yytable[yyn];
459           *++yyvsp = yylval;
460 ***************
461 *** 1547,1560 ****
462       }
463       if (yyerrflag) goto yyinrecovery;
464   #ifdef lint
465 !     goto yynewerror;
466   #endif
467 ! yynewerror:
468       yyerror("syntax error");
469   #ifdef lint
470 !     goto yyerrlab;
471   #endif
472 ! yyerrlab:
473       ++yynerrs;
474   yyinrecovery:
475       if (yyerrflag < 3)
476 --- 1517,1530 ----
477       }
478       if (yyerrflag) goto yyinrecovery;
479   #ifdef lint
480
481   #endif
482
483       yyerror("syntax error");
484   #ifdef lint
485
486   #endif
487
488       ++yynerrs;
489   yyinrecovery:
490       if (yyerrflag < 3)
491 ***************
492 *** 1567,1578 ****
493               {
494   #if YYDEBUG
495                   if (yydebug)
496 !                     printf("yydebug: state %d, error recovery shifting\
497    to state %d\n", *yyssp, yytable[yyn]);
498   #endif
499                   if (yyssp >= yyss + yystacksize - 1)
500                   {
501                       goto yyoverflow;
502                   }
503                   *++yyssp = yystate = yytable[yyn];
504                   *++yyvsp = yylval;
505 --- 1537,1560 ----
506               {
507   #if YYDEBUG
508                   if (yydebug)
509 !                     PerlIO_printf(Perl_debug_log, "yydebug: state %d, error recovery shifting\
510    to state %d\n", *yyssp, yytable[yyn]);
511   #endif
512                   if (yyssp >= yyss + yystacksize - 1)
513                   {
514 +                   /*
515 +                   ** reallocate and recover.  Note that pointers
516 +                   ** have to be reset, or bad things will happen
517 +                   */
518 +                   int yyps_index = (yyssp - yyss);
519 +                   int yypv_index = (yyvsp - yyvs);
520 +                   yystacksize += YYSTACKSIZE;
521 +                   ysave->yyvs = Renew(yyvs, yystacksize, YYSTYPE);
522 +                   ysave->yyss = Renew(yyss, yystacksize, short);
523 +                   if (!yyvs || !yyss)
524                       goto yyoverflow;
525 +                   yyssp = yyss + yyps_index;
526 +                   yyvsp = yyvs + yypv_index;
527                   }
528                   *++yyssp = yystate = yytable[yyn];
529                   *++yyvsp = yylval;
530 ***************
531 *** 1582,1588 ****
532               {
533   #if YYDEBUG
534                   if (yydebug)
535 !                     printf("yydebug: error recovery discarding state %d\n",
536                               *yyssp);
537   #endif
538                   if (yyssp <= yyss) goto yyabort;
539 --- 1564,1570 ----
540               {
541   #if YYDEBUG
542                   if (yydebug)
543 !                     PerlIO_printf(Perl_debug_log, "yydebug: error recovery discarding state %d\n",
544                               *yyssp);
545   #endif
546                   if (yyssp <= yyss) goto yyabort;
547 ***************
548 *** 1600,1606 ****
549               yys = 0;
550               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
551               if (!yys) yys = "illegal-symbol";
552 !             printf("yydebug: state %d, error recovery discards token %d (%s)\n",
553                       yystate, yychar, yys);
554           }
555   #endif
556 --- 1582,1588 ----
557               yys = 0;
558               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
559               if (!yys) yys = "illegal-symbol";
560 !             PerlIO_printf(Perl_debug_log, "yydebug: state %d, error recovery discards token %d (%s)\n",
561                       yystate, yychar, yys);
562           }
563   #endif
564 ***************
565 *** 1610,1616 ****
566   yyreduce:
567   #if YYDEBUG
568       if (yydebug)
569 !         printf("yydebug: state %d, reducing by rule %d (%s)\n",
570                   yystate, yyn, yyrule[yyn]);
571   #endif
572       yym = yylen[yyn];
573 --- 1592,1598 ----
574   yyreduce:
575   #if YYDEBUG
576       if (yydebug)
577 !         PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n",
578                   yystate, yyn, yyrule[yyn]);
579   #endif
580       yym = yylen[yyn];
581 ***************
582 *** 2473,2479 ****
583   #line 790 "perly.y"
584   { yyval.opval = yyvsp[0].opval; }
585   break;
586 ! #line 2477 "y.tab.c"
587       }
588       yyssp -= yym;
589       yystate = *yyssp;
590 --- 2455,2461 ----
591   #line 790 "perly.y"
592   { yyval.opval = yyvsp[0].opval; }
593   break;
594 ! #line 2459 "perly.c"
595       }
596       yyssp -= yym;
597       yystate = *yyssp;
598 ***************
599 *** 2483,2489 ****
600       {
601   #if YYDEBUG
602           if (yydebug)
603 !             printf("yydebug: after reduction, shifting from state 0 to\
604    state %d\n", YYFINAL);
605   #endif
606           yystate = YYFINAL;
607 --- 2465,2471 ----
608       {
609   #if YYDEBUG
610           if (yydebug)
611 !             PerlIO_printf(Perl_debug_log, "yydebug: after reduction, shifting from state 0 to\
612    state %d\n", YYFINAL);
613   #endif
614           yystate = YYFINAL;
615 ***************
616 *** 2498,2504 ****
617                   yys = 0;
618                   if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
619                   if (!yys) yys = "illegal-symbol";
620 !                 printf("yydebug: state %d, reading %d (%s)\n",
621                           YYFINAL, yychar, yys);
622               }
623   #endif
624 --- 2480,2486 ----
625                   yys = 0;
626                   if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
627                   if (!yys) yys = "illegal-symbol";
628 !                 PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n",
629                           YYFINAL, yychar, yys);
630               }
631   #endif
632 ***************
633 *** 2513,2532 ****
634           yystate = yydgoto[yym];
635   #if YYDEBUG
636       if (yydebug)
637 !         printf("yydebug: after reduction, shifting from state %d \
638   to state %d\n", *yyssp, yystate);
639   #endif
640       if (yyssp >= yyss + yystacksize - 1)
641       {
642           goto yyoverflow;
643       }
644       *++yyssp = yystate;
645       *++yyvsp = yyval;
646       goto yyloop;
647   yyoverflow:
648 !     yyerror("yacc stack overflow");
649   yyabort:
650 !     return (1);
651   yyaccept:
652 !     return (0);
653   }
654 --- 2495,2544 ----
655           yystate = yydgoto[yym];
656   #if YYDEBUG
657       if (yydebug)
658 !         PerlIO_printf(Perl_debug_log, "yydebug: after reduction, shifting from state %d \
659   to state %d\n", *yyssp, yystate);
660   #endif
661       if (yyssp >= yyss + yystacksize - 1)
662       {
663 +       /*
664 +       ** reallocate and recover.  Note that pointers
665 +       ** have to be reset, or bad things will happen
666 +       */
667 +       int yyps_index = (yyssp - yyss);
668 +       int yypv_index = (yyvsp - yyvs);
669 +       yystacksize += YYSTACKSIZE;
670 +       ysave->yyvs = Renew(yyvs, yystacksize, YYSTYPE);
671 +       ysave->yyss = Renew(yyss, yystacksize, short);
672 +       if (!yyvs || !yyss)
673           goto yyoverflow;
674 +       yyssp = yyss + yyps_index;
675 +       yyvsp = yyvs + yypv_index;
676       }
677       *++yyssp = yystate;
678       *++yyvsp = yyval;
679       goto yyloop;
680   yyoverflow:
681 !     yyerror("Out of memory for yacc stack");
682   yyabort:
683 !     retval = 1;
684   yyaccept:
685 ! #ifdef USE_ITHREADS
686 !     LEAVE;                    /* force yydestruct() before we return */
687 ! #endif
688 !     return retval;
689 ! }
690
691 ! static void
692 ! yydestruct(pTHX_ void *ptr)
693 ! {
694 !     struct ysv* ysave = (struct ysv*)ptr;
695 !     if (ysave->yyss) Safefree(ysave->yyss);
696 !     if (ysave->yyvs) Safefree(ysave->yyvs);
697 !     yydebug   = ysave->oldyydebug;
698 !     yynerrs   = ysave->oldyynerrs;
699 !     yyerrflag = ysave->oldyyerrflag;
700 !     yychar    = ysave->oldyychar;
701 !     yyval     = ysave->oldyyval;
702 !     yylval    = ysave->oldyylval;
703 !     Safefree(ysave);
704   }