1 *** perly.c.orig Tue Oct 27 12:59:58 1998
2 --- perly.c Tue Oct 27 13:00:18 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");
33 - /* I sense a Big Blue pattern here... */
34 - #if !defined(OEMVS) && !defined(__OPEN_VM) && !defined(POSIX_BC)
43 - #endif /* !OEMVS && !__OPEN_VM && !POSIX_BC */
45 - #ifdef USE_PURE_BISON
46 - #define YYLEX_PARAM (&yychar)
51 - #define FUNCMETH 259
54 - #define PRIVATEREF 262
55 - #define FUNC0SUB 263
56 - #define UNIOPSUB 264
57 - #define LSTOPSUB 265
70 - #define CONTINUE 278
83 - #define DOLSHARP 291
85 - #define HASHBRACK 293
92 - #define ASSIGNOP 300
96 - #define BITANDOP 304
104 - #define POSTINC 312
105 - #define POSTDEC 313
107 #define YYERRCODE 256
108 short yylhs[] = { -1,
110 deprecate("\"do\" to call subroutines");
115 #define YYERRCODE 256
116 short yylhs[] = { -1,
129 - short yyss[YYSTACKSIZE];
130 - YYSTYPE yyvs[YYSTACKSIZE];
131 - #define yystacksize YYSTACKSIZE
134 ! #line 1358 "y.tab.c"
135 #define YYABORT goto yyabort
136 #define YYACCEPT goto yyaccept
137 #define YYERROR goto yyerrlab
141 register int yym, yyn, yystate;
144 extern char *getenv();
146 if (yys = getenv("YYDEBUG"))
153 ! #line 1358 "perly.c"
154 #define YYABORT goto yyabort
155 #define YYACCEPT goto yyaccept
156 #define YYERROR goto yyerrlab
170 + yydestruct(void *ptr)
172 + struct ysv* ysave = (struct ysv*)ptr;
173 + if (ysave->yyss) Safefree(ysave->yyss);
174 + if (ysave->yyvs) Safefree(ysave->yyvs);
175 + yydebug = ysave->oldyydebug;
176 + yynerrs = ysave->oldyynerrs;
177 + yyerrflag = ysave->oldyyerrflag;
178 + yychar = ysave->oldyychar;
179 + yyval = ysave->oldyyval;
180 + yylval = ysave->oldyylval;
187 register int yym, yyn, yystate;
188 + register short *yyssp;
189 + register YYSTYPE *yyvsp;
192 + unsigned yystacksize = YYSTACKSIZE;
196 + #ifndef __cplusplus
197 extern char *getenv();
202 + New(73, ysave, 1, struct ysv);
203 + SAVEDESTRUCTOR(yydestruct, ysave);
204 + ysave->oldyydebug = yydebug;
205 + ysave->oldyynerrs = yynerrs;
206 + ysave->oldyyerrflag = yyerrflag;
207 + ysave->oldyychar = yychar;
208 + ysave->oldyyval = yyval;
209 + ysave->oldyylval = yylval;
212 if (yys = getenv("YYDEBUG"))
220 + ** Initialize private stacks (yyparse may be called from an action)
222 + New(73, yyss, yystacksize, short);
223 + New(73, yyvs, yystacksize, YYSTYPE);
224 + ysave->yyss = yyss;
225 + ysave->yyvs = yyvs;
226 + if (!yyvs || !yyss)
235 ! printf("yydebug: state %d, shifting to state %d\n",
236 yystate, yytable[yyn]);
238 if (yyssp >= yyss + yystacksize - 1)
242 *++yyssp = yystate = yytable[yyn];
246 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n",
247 yystate, yytable[yyn]);
249 if (yyssp >= yyss + yystacksize - 1)
252 ! ** reallocate and recover. Note that pointers
253 ! ** have to be reset, or bad things will happen
255 ! int yyps_index = (yyssp - yyss);
256 ! int yypv_index = (yyvsp - yyvs);
257 ! yystacksize += YYSTACKSIZE;
258 ! ysave->yyvs = yyvs =
259 ! (YYSTYPE*)PerlMem_realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
260 ! ysave->yyss = yyss =
261 ! (short*)PerlMem_realloc((char*)yyss,yystacksize * sizeof(short));
262 ! if (!yyvs || !yyss)
264 ! yyssp = yyss + yyps_index;
265 ! yyvsp = yyvs + yypv_index;
267 *++yyssp = yystate = yytable[yyn];
272 ! printf("yydebug: state %d, error recovery shifting\
273 ! to state %d\n", *yyssp, yytable[yyn]);
275 if (yyssp >= yyss + yystacksize - 1)
279 *++yyssp = yystate = yytable[yyn];
283 ! PerlIO_printf(Perl_debug_log,
284 ! "yydebug: state %d, error recovery shifting to state %d\n",
285 ! *yyssp, yytable[yyn]);
287 if (yyssp >= yyss + yystacksize - 1)
290 ! ** reallocate and recover. Note that pointers
291 ! ** have to be reset, or bad things will happen
293 ! int yyps_index = (yyssp - yyss);
294 ! int yypv_index = (yyvsp - yyvs);
295 ! yystacksize += YYSTACKSIZE;
296 ! ysave->yyvs = yyvs = (YYSTYPE*)PerlMem_realloc((char*)yyvs,
297 ! yystacksize * sizeof(YYSTYPE));
298 ! ysave->yyss = yyss = (short*)PerlMem_realloc((char*)yyss,
299 ! yystacksize * sizeof(short));
300 ! if (!yyvs || !yyss)
302 ! yyssp = yyss + yyps_index;
303 ! yyvsp = yyvs + yypv_index;
305 *++yyssp = yystate = yytable[yyn];
310 ! printf("yydebug: error recovery discarding state %d\n",
313 if (yyssp <= yyss) goto yyabort;
317 ! PerlIO_printf(Perl_debug_log,
318 ! "yydebug: error recovery discarding state %d\n",
321 if (yyssp <= yyss) goto yyabort;
324 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
325 if (!yys) yys = "illegal-symbol";
326 ! printf("yydebug: state %d, error recovery discards token %d (%s)\n",
327 ! yystate, yychar, yys);
331 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
332 if (!yys) yys = "illegal-symbol";
333 ! PerlIO_printf(Perl_debug_log,
334 ! "yydebug: state %d, error recovery discards token %d (%s)\n",
335 ! yystate, yychar, yys);
342 ! printf("yydebug: state %d, reducing by rule %d (%s)\n",
343 yystate, yyn, yyrule[yyn]);
348 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n",
349 yystate, yyn, yyrule[yyn]);
353 { yyval.opval = yyvsp[0].opval; }
355 ! #line 2275 "y.tab.c"
359 { yyval.opval = yyvsp[0].opval; }
361 ! #line 2275 "perly.c"
368 ! printf("yydebug: after reduction, shifting from state 0 to\
369 ! state %d\n", YYFINAL);
375 ! PerlIO_printf(Perl_debug_log,
376 ! "yydebug: after reduction, shifting from state 0 to state %d\n",
382 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
383 if (!yys) yys = "illegal-symbol";
384 ! printf("yydebug: state %d, reading %d (%s)\n",
385 YYFINAL, yychar, yys);
388 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
389 if (!yys) yys = "illegal-symbol";
390 ! PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n",
391 YYFINAL, yychar, yys);
397 ! printf("yydebug: after reduction, shifting from state %d \
398 ! to state %d\n", *yyssp, yystate);
400 if (yyssp >= yyss + yystacksize - 1)
408 ! PerlIO_printf(Perl_debug_log,
409 ! "yydebug: after reduction, shifting from state %d to state %d\n",
412 if (yyssp >= yyss + yystacksize - 1)
415 ! ** reallocate and recover. Note that pointers
416 ! ** have to be reset, or bad things will happen
418 ! int yyps_index = (yyssp - yyss);
419 ! int yypv_index = (yyvsp - yyvs);
420 ! yystacksize += YYSTACKSIZE;
421 ! ysave->yyvs = yyvs =
422 ! (YYSTYPE*)PerlMem_realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
423 ! ysave->yyss = yyss =
424 ! (short*)PerlMem_realloc((char*)yyss,yystacksize * sizeof(short));
425 ! if (!yyvs || !yyss)
427 ! yyssp = yyss + yyps_index;
428 ! yyvsp = yyvs + yypv_index;
435 ! yyerror("yacc stack overflow");
444 ! yyerror("Out of memory for yacc stack");