1 *** perly.c.old Wed Jan 06 20:03:41 1999
2 --- perly.c Wed Jan 06 18:51:20 1999
10 deprecate("\"do\" to call subroutines");
27 - #define FUNCMETH 259
30 - #define PRIVATEREF 262
31 - #define FUNC0SUB 263
32 - #define UNIOPSUB 264
33 - #define LSTOPSUB 265
46 - #define CONTINUE 278
59 - #define DOLSHARP 291
61 - #define HASHBRACK 293
68 - #define ASSIGNOP 300
72 - #define BITANDOP 304
90 + Dep(CPerlObj *pPerl)
92 + pPerl->deprecate("\"do\" to call subroutines");
94 + #define dep() Dep(this)
99 deprecate("\"do\" to call subroutines");
104 #define YYERRCODE 256
105 short yylhs[] = { -1,
111 + #ifndef PERL_OBJECT
118 ! short yyss[YYSTACKSIZE];
119 ! YYSTYPE yyvs[YYSTACKSIZE];
120 ! #define yystacksize YYSTACKSIZE
123 ! #line 1353 "y.tab.c"
124 #define YYABORT goto yyabort
125 #define YYACCEPT goto yyaccept
126 #define YYERROR goto yyerrlab
130 register int yym, yyn, yystate;
133 extern char *getenv();
135 if (yys = getenv("YYDEBUG"))
143 ! #line 1353 "perly.c"
144 #define YYABORT goto yyabort
145 #define YYACCEPT goto yyaccept
146 #define YYERROR goto yyerrlab
160 + yydestruct(void *ptr)
162 + struct ysv* ysave = (struct ysv*)ptr;
163 + if (ysave->yyss) Safefree(ysave->yyss);
164 + if (ysave->yyvs) Safefree(ysave->yyvs);
165 + yydebug = ysave->oldyydebug;
166 + yynerrs = ysave->oldyynerrs;
167 + yyerrflag = ysave->oldyyerrflag;
168 + yychar = ysave->oldyychar;
169 + yyval = ysave->oldyyval;
170 + yylval = ysave->oldyylval;
177 register int yym, yyn, yystate;
178 + register short *yyssp;
179 + register YYSTYPE *yyvsp;
182 + unsigned yystacksize = YYSTACKSIZE;
186 + #ifndef __cplusplus
187 extern char *getenv();
192 + New(73, ysave, 1, struct ysv);
193 + SAVEDESTRUCTOR(yydestruct, ysave);
194 + ysave->oldyydebug = yydebug;
195 + ysave->oldyynerrs = yynerrs;
196 + ysave->oldyyerrflag = yyerrflag;
197 + ysave->oldyychar = yychar;
198 + ysave->oldyyval = yyval;
199 + ysave->oldyylval = yylval;
202 if (yys = getenv("YYDEBUG"))
210 + ** Initialize private stacks (yyparse may be called from an action)
212 + New(73, yyss, yystacksize, short);
213 + New(73, yyvs, yystacksize, YYSTYPE);
214 + ysave->yyss = yyss;
215 + ysave->yyvs = yyvs;
216 + if (!yyvs || !yyss)
223 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
224 if (!yys) yys = "illegal-symbol";
225 ! printf("yydebug: state %d, reading %d (%s)\n", yystate,
229 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
230 if (!yys) yys = "illegal-symbol";
231 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", yystate,
238 ! printf("yydebug: state %d, shifting to state %d\n",
239 yystate, yytable[yyn]);
241 if (yyssp >= yyss + yystacksize - 1)
245 *++yyssp = yystate = yytable[yyn];
249 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n",
250 yystate, yytable[yyn]);
252 if (yyssp >= yyss + yystacksize - 1)
255 ! ** reallocate and recover. Note that pointers
256 ! ** have to be reset, or bad things will happen
258 ! int yyps_index = (yyssp - yyss);
259 ! int yypv_index = (yyvsp - yyvs);
260 ! yystacksize += YYSTACKSIZE;
261 ! ysave->yyvs = yyvs =
262 ! (YYSTYPE*)PerlMem_realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
263 ! ysave->yyss = yyss =
264 ! (short*)PerlMem_realloc((char*)yyss,yystacksize * sizeof(short));
265 ! if (!yyvs || !yyss)
267 ! yyssp = yyss + yyps_index;
268 ! yyvsp = yyvs + yypv_index;
270 *++yyssp = yystate = yytable[yyn];
275 ! printf("yydebug: state %d, error recovery shifting\
276 ! to state %d\n", *yyssp, yytable[yyn]);
278 if (yyssp >= yyss + yystacksize - 1)
282 *++yyssp = yystate = yytable[yyn];
286 ! PerlIO_printf(Perl_debug_log,
287 ! "yydebug: state %d, error recovery shifting to state %d\n",
288 ! *yyssp, yytable[yyn]);
290 if (yyssp >= yyss + yystacksize - 1)
293 ! ** reallocate and recover. Note that pointers
294 ! ** have to be reset, or bad things will happen
296 ! int yyps_index = (yyssp - yyss);
297 ! int yypv_index = (yyvsp - yyvs);
298 ! yystacksize += YYSTACKSIZE;
299 ! ysave->yyvs = yyvs = (YYSTYPE*)PerlMem_realloc((char*)yyvs,
300 ! yystacksize * sizeof(YYSTYPE));
301 ! ysave->yyss = yyss = (short*)PerlMem_realloc((char*)yyss,
302 ! yystacksize * sizeof(short));
303 ! if (!yyvs || !yyss)
305 ! yyssp = yyss + yyps_index;
306 ! yyvsp = yyvs + yypv_index;
308 *++yyssp = yystate = yytable[yyn];
313 ! printf("yydebug: error recovery discarding state %d\n",
316 if (yyssp <= yyss) goto yyabort;
320 ! PerlIO_printf(Perl_debug_log,
321 ! "yydebug: error recovery discarding state %d\n",
324 if (yyssp <= yyss) goto yyabort;
327 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
328 if (!yys) yys = "illegal-symbol";
329 ! printf("yydebug: state %d, error recovery discards token %d (%s)\n",
330 ! yystate, yychar, yys);
334 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
335 if (!yys) yys = "illegal-symbol";
336 ! PerlIO_printf(Perl_debug_log,
337 ! "yydebug: state %d, error recovery discards token %d (%s)\n",
338 ! yystate, yychar, yys);
345 ! printf("yydebug: state %d, reducing by rule %d (%s)\n",
346 yystate, yyn, yyrule[yyn]);
351 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n",
352 yystate, yyn, yyrule[yyn]);
356 { yyval.opval = yyvsp[0].opval; }
358 ! #line 2270 "y.tab.c"
362 { yyval.opval = yyvsp[0].opval; }
364 ! #line 2270 "perly.c"
371 ! printf("yydebug: after reduction, shifting from state 0 to\
372 ! state %d\n", YYFINAL);
378 ! PerlIO_printf(Perl_debug_log,
379 ! "yydebug: after reduction, shifting from state 0 to state %d\n",
385 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
386 if (!yys) yys = "illegal-symbol";
387 ! printf("yydebug: state %d, reading %d (%s)\n",
388 YYFINAL, yychar, yys);
391 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
392 if (!yys) yys = "illegal-symbol";
393 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n",
394 YYFINAL, yychar, yys);
400 ! printf("yydebug: after reduction, shifting from state %d \
401 ! to state %d\n", *yyssp, yystate);
403 if (yyssp >= yyss + yystacksize - 1)
411 ! PerlIO_printf(Perl_debug_log,
412 ! "yydebug: after reduction, shifting from state %d to state %d\n",
415 if (yyssp >= yyss + yystacksize - 1)
418 ! ** reallocate and recover. Note that pointers
419 ! ** have to be reset, or bad things will happen
421 ! int yyps_index = (yyssp - yyss);
422 ! int yypv_index = (yyvsp - yyvs);
423 ! yystacksize += YYSTACKSIZE;
424 ! ysave->yyvs = yyvs =
425 ! (YYSTYPE*)PerlMem_realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
426 ! ysave->yyss = yyss =
427 ! (short*)PerlMem_realloc((char*)yyss,yystacksize * sizeof(short));
428 ! if (!yyvs || !yyss)
430 ! yyssp = yyss + yyps_index;
431 ! yyvsp = yyvs + yypv_index;
438 ! yyerror("yacc stack overflow");
447 ! yyerror("Out of memory for yacc stack");