1 *** perly.c.orig Tue Jul 28 15:02:41 1998
2 --- perly.c Tue Jul 28 15:14:54 1998
10 + Dep(CPerlObj *pPerl)
12 + pPerl->deprecate("\"do\" to call subroutines");
14 + #define dep() Dep(this)
21 deprecate("\"do\" to call subroutines");
38 - #define FUNCMETH 259
41 - #define PRIVATEREF 262
42 - #define FUNC0SUB 263
43 - #define UNIOPSUB 264
44 - #define LSTOPSUB 265
57 - #define CONTINUE 278
70 - #define DOLSHARP 291
72 - #define HASHBRACK 293
79 - #define ASSIGNOP 300
83 - #define BITANDOP 304
97 deprecate("\"do\" to call subroutines");
102 #define YYERRCODE 256
103 short yylhs[] = { -1,
108 - short yyss[YYSTACKSIZE];
109 - YYSTYPE yyvs[YYSTACKSIZE];
110 - #define yystacksize YYSTACKSIZE
113 ! #line 1353 "y.tab.c"
114 #define YYABORT goto yyabort
115 #define YYACCEPT goto yyaccept
116 #define YYERROR goto yyerrlab
120 register int yym, yyn, yystate;
123 extern char *getenv();
125 if (yys = getenv("YYDEBUG"))
132 ! #line 1353 "perly.c"
133 #define YYABORT goto yyabort
134 #define YYACCEPT goto yyaccept
135 #define YYERROR goto yyerrlab
149 + yydestruct(void *ptr)
151 + struct ysv* ysave = (struct ysv*)ptr;
152 + if (ysave->yyss) Safefree(ysave->yyss);
153 + if (ysave->yyvs) Safefree(ysave->yyvs);
154 + yydebug = ysave->oldyydebug;
155 + yynerrs = ysave->oldyynerrs;
156 + yyerrflag = ysave->oldyyerrflag;
157 + yychar = ysave->oldyychar;
158 + yyval = ysave->oldyyval;
159 + yylval = ysave->oldyylval;
166 register int yym, yyn, yystate;
167 + register short *yyssp;
168 + register YYSTYPE *yyvsp;
171 + unsigned yystacksize = YYSTACKSIZE;
175 + #ifndef __cplusplus
176 extern char *getenv();
181 + New(73, ysave, 1, struct ysv);
182 + SAVEDESTRUCTOR(yydestruct, ysave);
183 + ysave->oldyydebug = yydebug;
184 + ysave->oldyynerrs = yynerrs;
185 + ysave->oldyyerrflag = yyerrflag;
186 + ysave->oldyychar = yychar;
187 + ysave->oldyyval = yyval;
188 + ysave->oldyylval = yylval;
191 if (yys = getenv("YYDEBUG"))
199 + ** Initialize private stacks (yyparse may be called from an action)
201 + New(73, yyss, yystacksize, short);
202 + New(73, yyvs, yystacksize, YYSTYPE);
203 + ysave->yyss = yyss;
204 + ysave->yyvs = yyvs;
205 + if (!yyvs || !yyss)
212 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
213 if (!yys) yys = "illegal-symbol";
214 ! printf("yydebug: state %d, reading %d (%s)\n", yystate,
218 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
219 if (!yys) yys = "illegal-symbol";
220 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", yystate,
227 ! printf("yydebug: state %d, shifting to state %d\n",
228 yystate, yytable[yyn]);
233 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n",
234 yystate, yytable[yyn]);
238 if (yyssp >= yyss + yystacksize - 1)
242 *++yyssp = yystate = yytable[yyn];
244 if (yyssp >= yyss + yystacksize - 1)
247 ! ** reallocate and recover. Note that pointers
248 ! ** have to be reset, or bad things will happen
250 ! int yyps_index = (yyssp - yyss);
251 ! int yypv_index = (yyvsp - yyvs);
252 ! yystacksize += YYSTACKSIZE;
253 ! ysave->yyvs = yyvs =
254 ! (YYSTYPE*)realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
255 ! ysave->yyss = yyss =
256 ! (short*)realloc((char*)yyss,yystacksize * sizeof(short));
257 ! if (!yyvs || !yyss)
259 ! yyssp = yyss + yyps_index;
260 ! yyvsp = yyvs + yypv_index;
262 *++yyssp = yystate = yytable[yyn];
267 ! printf("yydebug: state %d, error recovery shifting\
268 ! to state %d\n", *yyssp, yytable[yyn]);
270 if (yyssp >= yyss + yystacksize - 1)
274 *++yyssp = yystate = yytable[yyn];
278 ! PerlIO_printf(Perl_debug_log,
279 ! "yydebug: state %d, error recovery shifting to state %d\n",
280 ! *yyssp, yytable[yyn]);
282 if (yyssp >= yyss + yystacksize - 1)
285 ! ** reallocate and recover. Note that pointers
286 ! ** have to be reset, or bad things will happen
288 ! int yyps_index = (yyssp - yyss);
289 ! int yypv_index = (yyvsp - yyvs);
290 ! yystacksize += YYSTACKSIZE;
291 ! ysave->yyvs = yyvs = (YYSTYPE*)realloc((char*)yyvs,
292 ! yystacksize * sizeof(YYSTYPE));
293 ! ysave->yyss = yyss = (short*)realloc((char*)yyss,
294 ! yystacksize * sizeof(short));
295 ! if (!yyvs || !yyss)
297 ! yyssp = yyss + yyps_index;
298 ! yyvsp = yyvs + yypv_index;
300 *++yyssp = yystate = yytable[yyn];
305 ! printf("yydebug: error recovery discarding state %d\n",
308 if (yyssp <= yyss) goto yyabort;
312 ! PerlIO_printf(Perl_debug_log,
313 ! "yydebug: error recovery discarding state %d\n",
316 if (yyssp <= yyss) goto yyabort;
319 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
320 if (!yys) yys = "illegal-symbol";
321 ! printf("yydebug: state %d, error recovery discards token %d (%s)\n",
322 ! yystate, yychar, yys);
326 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
327 if (!yys) yys = "illegal-symbol";
328 ! PerlIO_printf(Perl_debug_log,
329 ! "yydebug: state %d, error recovery discards token %d (%s)\n",
330 ! yystate, yychar, yys);
337 ! printf("yydebug: state %d, reducing by rule %d (%s)\n",
338 yystate, yyn, yyrule[yyn]);
343 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n",
344 yystate, yyn, yyrule[yyn]);
348 { yyval.opval = yyvsp[0].opval; }
350 ! #line 2270 "y.tab.c"
354 { yyval.opval = yyvsp[0].opval; }
356 ! #line 2270 "perly.c"
363 ! printf("yydebug: after reduction, shifting from state 0 to\
364 ! state %d\n", YYFINAL);
370 ! PerlIO_printf(Perl_debug_log,
371 ! "yydebug: after reduction, shifting from state 0 to state %d\n",
377 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
378 if (!yys) yys = "illegal-symbol";
379 ! printf("yydebug: state %d, reading %d (%s)\n",
380 YYFINAL, yychar, yys);
383 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
384 if (!yys) yys = "illegal-symbol";
385 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n",
386 YYFINAL, yychar, yys);
392 ! printf("yydebug: after reduction, shifting from state %d \
393 ! to state %d\n", *yyssp, yystate);
395 if (yyssp >= yyss + yystacksize - 1)
403 ! PerlIO_printf(Perl_debug_log,
404 ! "yydebug: after reduction, shifting from state %d to state %d\n",
407 if (yyssp >= yyss + yystacksize - 1)
410 ! ** reallocate and recover. Note that pointers
411 ! ** have to be reset, or bad things will happen
413 ! int yyps_index = (yyssp - yyss);
414 ! int yypv_index = (yyvsp - yyvs);
415 ! yystacksize += YYSTACKSIZE;
416 ! ysave->yyvs = yyvs =
417 ! (YYSTYPE*)realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
418 ! ysave->yyss = yyss =
419 ! (short*)realloc((char*)yyss,yystacksize * sizeof(short));
420 ! if (!yyvs || !yyss)
422 ! yyssp = yyss + yyps_index;
423 ! yyvsp = yyvs + yypv_index;
430 ! yyerror("yacc stack overflow");
439 ! yyerror("Out of memory for yacc stack");