1 *** perly.c.orig Thu Sep 24 00:32:28 1998
2 --- perly.c Thu Sep 24 00:18:13 1998
8 + #define yydebug PL_yydebug
9 + #define yynerrs PL_yynerrs
10 + #define yyerrflag PL_yyerrflag
11 + #define yychar PL_yychar
12 + #define yyssp PL_yyssp
13 + #define yyvsp PL_yyvsp
14 + #define yyval PL_yyval
15 + #define yylval PL_yylval
19 + Dep(CPerlObj *pPerl)
21 + pPerl->deprecate("\"do\" to call subroutines");
23 + #define dep() Dep(this)
29 deprecate("\"do\" to call subroutines");
46 - #define FUNCMETH 259
49 - #define PRIVATEREF 262
50 - #define FUNC0SUB 263
51 - #define UNIOPSUB 264
52 - #define LSTOPSUB 265
65 - #define CONTINUE 278
78 - #define DOLSHARP 291
80 - #define HASHBRACK 293
87 - #define ASSIGNOP 300
91 - #define BITANDOP 304
100 - #define POSTDEC 313
102 #define YYERRCODE 256
103 short yylhs[] = { -1,
105 deprecate("\"do\" to call subroutines");
110 #define YYERRCODE 256
111 short yylhs[] = { -1,
124 - short yyss[YYSTACKSIZE];
125 - YYSTYPE yyvs[YYSTACKSIZE];
126 - #define yystacksize YYSTACKSIZE
129 ! #line 1353 "y.tab.c"
130 #define YYABORT goto yyabort
131 #define YYACCEPT goto yyaccept
132 #define YYERROR goto yyerrlab
136 register int yym, yyn, yystate;
139 extern char *getenv();
141 if (yys = getenv("YYDEBUG"))
148 ! #line 1353 "perly.c"
149 #define YYABORT goto yyabort
150 #define YYACCEPT goto yyaccept
151 #define YYERROR goto yyerrlab
165 + yydestruct(void *ptr)
167 + struct ysv* ysave = (struct ysv*)ptr;
168 + if (ysave->yyss) Safefree(ysave->yyss);
169 + if (ysave->yyvs) Safefree(ysave->yyvs);
170 + yydebug = ysave->oldyydebug;
171 + yynerrs = ysave->oldyynerrs;
172 + yyerrflag = ysave->oldyyerrflag;
173 + yychar = ysave->oldyychar;
174 + yyval = ysave->oldyyval;
175 + yylval = ysave->oldyylval;
182 register int yym, yyn, yystate;
183 + register short *yyssp;
184 + register YYSTYPE *yyvsp;
187 + unsigned yystacksize = YYSTACKSIZE;
191 + #ifndef __cplusplus
192 extern char *getenv();
197 + New(73, ysave, 1, struct ysv);
198 + SAVEDESTRUCTOR(yydestruct, ysave);
199 + ysave->oldyydebug = yydebug;
200 + ysave->oldyynerrs = yynerrs;
201 + ysave->oldyyerrflag = yyerrflag;
202 + ysave->oldyychar = yychar;
203 + ysave->oldyyval = yyval;
204 + ysave->oldyylval = yylval;
207 if (yys = getenv("YYDEBUG"))
215 + ** Initialize private stacks (yyparse may be called from an action)
217 + New(73, yyss, yystacksize, short);
218 + New(73, yyvs, yystacksize, YYSTYPE);
219 + ysave->yyss = yyss;
220 + ysave->yyvs = yyvs;
221 + if (!yyvs || !yyss)
228 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
229 if (!yys) yys = "illegal-symbol";
230 ! printf("yydebug: state %d, reading %d (%s)\n", yystate,
234 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
235 if (!yys) yys = "illegal-symbol";
236 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", yystate,
243 ! printf("yydebug: state %d, shifting to state %d\n",
244 yystate, yytable[yyn]);
246 if (yyssp >= yyss + yystacksize - 1)
250 *++yyssp = yystate = yytable[yyn];
254 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n",
255 yystate, yytable[yyn]);
257 if (yyssp >= yyss + yystacksize - 1)
260 ! ** reallocate and recover. Note that pointers
261 ! ** have to be reset, or bad things will happen
263 ! int yyps_index = (yyssp - yyss);
264 ! int yypv_index = (yyvsp - yyvs);
265 ! yystacksize += YYSTACKSIZE;
266 ! ysave->yyvs = yyvs =
267 ! (YYSTYPE*)PerlMem_realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
268 ! ysave->yyss = yyss =
269 ! (short*)PerlMem_realloc((char*)yyss,yystacksize * sizeof(short));
270 ! if (!yyvs || !yyss)
272 ! yyssp = yyss + yyps_index;
273 ! yyvsp = yyvs + yypv_index;
275 *++yyssp = yystate = yytable[yyn];
280 ! printf("yydebug: state %d, error recovery shifting\
281 ! to state %d\n", *yyssp, yytable[yyn]);
283 if (yyssp >= yyss + yystacksize - 1)
287 *++yyssp = yystate = yytable[yyn];
291 ! PerlIO_printf(Perl_debug_log,
292 ! "yydebug: state %d, error recovery shifting to state %d\n",
293 ! *yyssp, yytable[yyn]);
295 if (yyssp >= yyss + yystacksize - 1)
298 ! ** reallocate and recover. Note that pointers
299 ! ** have to be reset, or bad things will happen
301 ! int yyps_index = (yyssp - yyss);
302 ! int yypv_index = (yyvsp - yyvs);
303 ! yystacksize += YYSTACKSIZE;
304 ! ysave->yyvs = yyvs = (YYSTYPE*)PerlMem_realloc((char*)yyvs,
305 ! yystacksize * sizeof(YYSTYPE));
306 ! ysave->yyss = yyss = (short*)PerlMem_realloc((char*)yyss,
307 ! yystacksize * sizeof(short));
308 ! if (!yyvs || !yyss)
310 ! yyssp = yyss + yyps_index;
311 ! yyvsp = yyvs + yypv_index;
313 *++yyssp = yystate = yytable[yyn];
318 ! printf("yydebug: error recovery discarding state %d\n",
321 if (yyssp <= yyss) goto yyabort;
325 ! PerlIO_printf(Perl_debug_log,
326 ! "yydebug: error recovery discarding state %d\n",
329 if (yyssp <= yyss) goto yyabort;
332 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
333 if (!yys) yys = "illegal-symbol";
334 ! printf("yydebug: state %d, error recovery discards token %d (%s)\n",
335 ! yystate, yychar, yys);
339 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
340 if (!yys) yys = "illegal-symbol";
341 ! PerlIO_printf(Perl_debug_log,
342 ! "yydebug: state %d, error recovery discards token %d (%s)\n",
343 ! yystate, yychar, yys);
350 ! printf("yydebug: state %d, reducing by rule %d (%s)\n",
351 yystate, yyn, yyrule[yyn]);
356 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n",
357 yystate, yyn, yyrule[yyn]);
361 { yyval.opval = yyvsp[0].opval; }
363 ! #line 2270 "y.tab.c"
367 { yyval.opval = yyvsp[0].opval; }
369 ! #line 2270 "perly.c"
376 ! printf("yydebug: after reduction, shifting from state 0 to\
377 ! state %d\n", YYFINAL);
383 ! PerlIO_printf(Perl_debug_log,
384 ! "yydebug: after reduction, shifting from state 0 to state %d\n",
390 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
391 if (!yys) yys = "illegal-symbol";
392 ! printf("yydebug: state %d, reading %d (%s)\n",
393 YYFINAL, yychar, yys);
396 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
397 if (!yys) yys = "illegal-symbol";
398 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n",
399 YYFINAL, yychar, yys);
405 ! printf("yydebug: after reduction, shifting from state %d \
406 ! to state %d\n", *yyssp, yystate);
408 if (yyssp >= yyss + yystacksize - 1)
416 ! PerlIO_printf(Perl_debug_log,
417 ! "yydebug: after reduction, shifting from state %d to state %d\n",
420 if (yyssp >= yyss + yystacksize - 1)
423 ! ** reallocate and recover. Note that pointers
424 ! ** have to be reset, or bad things will happen
426 ! int yyps_index = (yyssp - yyss);
427 ! int yypv_index = (yyvsp - yyvs);
428 ! yystacksize += YYSTACKSIZE;
429 ! ysave->yyvs = yyvs =
430 ! (YYSTYPE*)PerlMem_realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
431 ! ysave->yyss = yyss =
432 ! (short*)PerlMem_realloc((char*)yyss,yystacksize * sizeof(short));
433 ! if (!yyvs || !yyss)
435 ! yyssp = yyss + yyps_index;
436 ! yyvsp = yyvs + yypv_index;
443 ! yyerror("yacc stack overflow");
452 ! yyerror("Out of memory for yacc stack");