This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / blame_incremental
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (non-incremental) | history | HEAD
Integrate mainline
[perl5.git] / perly_c.diff
... / ...
CommitLineData
1--- perly.c.orig Tue Jun 19 08:39:52 2001
2+++ perly.c Tue Jun 19 08:39:24 2001
3@@ -1,5 +1,5 @@
4 #ifndef lint
5-static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91";
6+/* static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91"; */
7 #endif
8 #define YYBYACC 1
9 #line 16 "perly.y"
10@@ -50,70 +50,9 @@
11 #define yylex yylex_r
12 #endif
13
14-#line 54 "y.tab.c"
15-#define WORD 257
16-#define METHOD 258
17-#define FUNCMETH 259
18-#define THING 260
19-#define PMFUNC 261
20-#define PRIVATEREF 262
21-#define FUNC0SUB 263
22-#define UNIOPSUB 264
23-#define LSTOPSUB 265
24-#define LABEL 266
25-#define FORMAT 267
26-#define SUB 268
27-#define ANONSUB 269
28-#define PACKAGE 270
29-#define USE 271
30-#define WHILE 272
31-#define UNTIL 273
32-#define IF 274
33-#define UNLESS 275
34-#define ELSE 276
35-#define ELSIF 277
36-#define CONTINUE 278
37-#define FOR 279
38-#define LOOPEX 280
39-#define DOTDOT 281
40-#define FUNC0 282
41-#define FUNC1 283
42-#define FUNC 284
43-#define UNIOP 285
44-#define LSTOP 286
45-#define RELOP 287
46-#define EQOP 288
47-#define MULOP 289
48-#define ADDOP 290
49-#define DOLSHARP 291
50-#define DO 292
51-#define HASHBRACK 293
52-#define NOAMP 294
53-#define LOCAL 295
54-#define MY 296
55-#define MYSUB 297
56-#define COLONATTR 298
57-#define PREC_LOW 299
58-#define OROP 300
59-#define ANDOP 301
60-#define NOTOP 302
61-#define ASSIGNOP 303
62-#define OROR 304
63-#define ANDAND 305
64-#define BITOROP 306
65-#define BITANDOP 307
66-#define SHIFTOP 308
67-#define MATCHOP 309
68-#define UMINUS 310
69-#define REFGEN 311
70-#define POWOP 312
71-#define PREINC 313
72-#define PREDEC 314
73-#define POSTINC 315
74-#define POSTDEC 316
75-#define ARROW 317
76+#line 54 "perly.c"
77 #define YYERRCODE 256
78-short yylhs[] = { -1,
79+static short yylhs[] = { -1,
80 0, 9, 7, 6, 10, 8, 11, 11, 11, 12,
81 12, 12, 12, 25, 25, 25, 25, 25, 25, 25,
82 15, 15, 15, 14, 14, 43, 43, 13, 13, 13,
83@@ -135,7 +74,7 @@
84 49, 34, 34, 35, 35, 35, 44, 24, 19, 20,
85 21, 22, 23, 36, 36, 36, 36,
86 };
87-short yylen[] = { 2,
88+static short yylen[] = { 2,
89 2, 4, 0, 0, 4, 0, 0, 2, 2, 2,
90 1, 2, 3, 1, 1, 3, 3, 3, 3, 3,
91 0, 2, 6, 7, 7, 0, 2, 8, 8, 10,
92@@ -157,7 +96,7 @@
93 1, 0, 1, 0, 1, 2, 1, 2, 2, 2,
94 2, 2, 2, 1, 1, 1, 1,
95 };
96-short yydefred[] = { 4,
97+static short yydefred[] = { 4,
98 0, 7, 0, 45, 58, 56, 0, 56, 56, 8,
99 46, 9, 11, 48, 0, 47, 49, 50, 0, 0,
100 0, 70, 71, 0, 14, 3, 173, 0, 0, 154,
101@@ -199,7 +138,7 @@
102 0, 22, 0, 0, 0, 31, 5, 0, 30, 0,
103 0, 33, 0, 23,
104 };
105-short yydgoto[] = { 1,
106+static short yydgoto[] = { 1,
107 10, 11, 20, 104, 19, 2, 95, 370, 98, 359,
108 3, 12, 13, 70, 375, 285, 72, 73, 74, 75,
109 76, 77, 78, 79, 291, 81, 292, 281, 283, 286,
110@@ -207,7 +146,7 @@
111 194, 327, 156, 289, 271, 225, 14, 83, 137, 84,
112 85, 86, 87, 15, 16, 17, 18, 93, 278,
113 };
114-short yysindex[] = { 0,
115+static short yysindex[] = { 0,
116 0, 0, -132, 0, 0, 0, -51, 0, 0, 0,
117 0, 0, 0, 0, 650, 0, 0, 0, -239, -215,
118 5, 0, 0, -215, 0, 0, 0, -31, -31, 0,
119@@ -249,7 +188,7 @@
120 449, 0, 2181, -150, 340, 0, 0, 355, 0, 216,
121 216, 0, -123, 0,
122 };
123-short yyrindex[] = { 0,
124+static short yyrindex[] = { 0,
125 0, 0, 247, 0, 0, 0, 0, 0, 0, 0,
126 0, 0, 0, 0, 0, 0, 0, 0, 274, 0,
127 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
128@@ -291,7 +230,7 @@
129 917, 0, 0, 119, 0, 0, 0, 0, 0, 0,
130 0, 0, 179, 0,
131 };
132-short yygindex[] = { 0,
133+static short yygindex[] = { 0,
134 0, 0, 196, 425, 0, 0, -2, 0, 37, 634,
135 -94, 0, 0, 0, -323, -15, 2445, 0, 999, 414,
136 417, 0, 0, 0, 463, -43, 0, 0, 321, -198,
137@@ -300,7 +239,7 @@
138 0, 0, 0, 0, 0, 0, 0, 0, 0,
139 };
140 #define YYTABLESIZE 4568
141-short yytable[] = { 71,
142+static short yytable[] = { 71,
143 197, 65, 121, 227, 65, 111, 220, 22, 198, 293,
144 139, 296, 315, 275, 305, 102, 273, 88, 113, 228,
145 60, 113, 279, 65, 317, 60, 182, 254, 325, 101,
146@@ -759,7 +698,7 @@
147 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
148 0, 0, 0, 0, 0, 0, 77, 77,
149 };
150-short yycheck[] = { 15,
151+static short yycheck[] = { 15,
152 95, 36, 46, 41, 36, 40, 59, 59, 100, 208,
153 54, 41, 59, 199, 41, 40, 196, 257, 41, 93,
154 123, 44, 202, 36, 93, 59, 40, 40, 59, 29,
155@@ -1224,7 +1163,7 @@
156 #endif
157 #define YYMAXTOKEN 317
158 #if YYDEBUG
159-char *yyname[] = {
160+static char *yyname[] = {
161 "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,
162 "'!'",0,0,"'$'","'%'","'&'",0,"'('","')'","'*'","'+'","','","'-'",0,0,0,0,0,0,0,
163 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,
164@@ -1241,7 +1180,7 @@
165 "ANDAND","BITOROP","BITANDOP","SHIFTOP","MATCHOP","UMINUS","REFGEN","POWOP",
166 "PREINC","PREDEC","POSTINC","POSTDEC","ARROW",
167 };
168-char *yyrule[] = {
169+static char *yyrule[] = {
170 "$accept : prog",
171 "prog : progstart lineseq",
172 "block : '{' remember lineseq '}'",
173@@ -1456,17 +1395,6 @@
174 #define YYMAXDEPTH 500
175 #endif
176 #endif
177-int yydebug;
178-int yynerrs;
179-int yyerrflag;
180-int yychar;
181-short *yyssp;
182-YYSTYPE *yyvsp;
183-YYSTYPE yyval;
184-YYSTYPE yylval;
185-short yyss[YYSTACKSIZE];
186-YYSTYPE yyvs[YYSTACKSIZE];
187-#define yystacksize YYSTACKSIZE
188 #line 793 "perly.y"
189 /* PROGRAM */
190
191@@ -1477,7 +1405,7 @@
192 #endif
193 #define yyparse() Perl_yyparse(pTHX)
194
195-#line 1481 "y.tab.c"
196+#line 1409 "perly.c"
197 #define YYABORT goto yyabort
198 #define YYACCEPT goto yyaccept
199 #define YYERROR goto yyerrlab
200@@ -1485,11 +1413,31 @@
201 yyparse()
202 {
203 register int yym, yyn, yystate;
204+ register short *yyssp;
205+ register YYSTYPE *yyvsp;
206+ short* yyss;
207+ YYSTYPE* yyvs;
208+ unsigned yystacksize = YYSTACKSIZE;
209+ int retval = 0;
210 #if YYDEBUG
211 register char *yys;
212- extern char *getenv();
213+#endif
214+
215+ struct ysv *ysave;
216+#ifdef USE_ITHREADS
217+ ENTER; /* force yydestruct() before we return */
218+#endif
219+ New(73, ysave, 1, struct ysv);
220+ SAVEDESTRUCTOR_X(yydestruct, ysave);
221+ ysave->oldyydebug = yydebug;
222+ ysave->oldyynerrs = yynerrs;
223+ ysave->oldyyerrflag = yyerrflag;
224+ ysave->oldyychar = yychar;
225+ ysave->oldyyval = yyval;
226+ ysave->oldyylval = yylval;
227
228- if (yys = getenv("YYDEBUG"))
229+#if YYDEBUG
230+ if ((yys = getenv("YYDEBUG")))
231 {
232 yyn = *yys;
233 if (yyn >= '0' && yyn <= '9')
234@@ -1501,12 +1449,22 @@
235 yyerrflag = 0;
236 yychar = (-1);
237
238+ /*
239+ ** Initialize private stacks (yyparse may be called from an action)
240+ */
241+ New(73, yyss, yystacksize, short);
242+ New(73, yyvs, yystacksize, YYSTYPE);
243+ ysave->yyss = yyss;
244+ ysave->yyvs = yyvs;
245+ if (!yyvs || !yyss)
246+ goto yyoverflow;
247+
248 yyssp = yyss;
249 yyvsp = yyvs;
250 *yyssp = yystate = 0;
251
252 yyloop:
253- if (yyn = yydefred[yystate]) goto yyreduce;
254+ if ((yyn = yydefred[yystate])) goto yyreduce;
255 if (yychar < 0)
256 {
257 if ((yychar = yylex()) < 0) yychar = 0;
258@@ -1516,7 +1474,7 @@
259 yys = 0;
260 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
261 if (!yys) yys = "illegal-symbol";
262- printf("yydebug: state %d, reading %d (%s)\n", yystate,
263+ PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", yystate,
264 yychar, yys);
265 }
266 #endif
267@@ -1526,12 +1484,24 @@
268 {
269 #if YYDEBUG
270 if (yydebug)
271- printf("yydebug: state %d, shifting to state %d\n",
272+ PerlIO_printf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n",
273 yystate, yytable[yyn]);
274 #endif
275 if (yyssp >= yyss + yystacksize - 1)
276 {
277+ /*
278+ ** reallocate and recover. Note that pointers
279+ ** have to be reset, or bad things will happen
280+ */
281+ int yyps_index = (yyssp - yyss);
282+ int yypv_index = (yyvsp - yyvs);
283+ yystacksize += YYSTACKSIZE;
284+ ysave->yyvs = Renew(yyvs, yystacksize, YYSTYPE);
285+ ysave->yyss = Renew(yyss, yystacksize, short);
286+ if (!yyvs || !yyss)
287 goto yyoverflow;
288+ yyssp = yyss + yyps_index;
289+ yyvsp = yyvs + yypv_index;
290 }
291 *++yyssp = yystate = yytable[yyn];
292 *++yyvsp = yylval;
293@@ -1547,14 +1517,14 @@
294 }
295 if (yyerrflag) goto yyinrecovery;
296 #ifdef lint
297- goto yynewerror;
298+
299 #endif
300-yynewerror:
301+
302 yyerror("syntax error");
303 #ifdef lint
304- goto yyerrlab;
305+
306 #endif
307-yyerrlab:
308+
309 ++yynerrs;
310 yyinrecovery:
311 if (yyerrflag < 3)
312@@ -1567,12 +1537,24 @@
313 {
314 #if YYDEBUG
315 if (yydebug)
316- printf("yydebug: state %d, error recovery shifting\
317+ PerlIO_printf(Perl_debug_log, "yydebug: state %d, error recovery shifting\
318 to state %d\n", *yyssp, yytable[yyn]);
319 #endif
320 if (yyssp >= yyss + yystacksize - 1)
321 {
322+ /*
323+ ** reallocate and recover. Note that pointers
324+ ** have to be reset, or bad things will happen
325+ */
326+ int yyps_index = (yyssp - yyss);
327+ int yypv_index = (yyvsp - yyvs);
328+ yystacksize += YYSTACKSIZE;
329+ ysave->yyvs = Renew(yyvs, yystacksize, YYSTYPE);
330+ ysave->yyss = Renew(yyss, yystacksize, short);
331+ if (!yyvs || !yyss)
332 goto yyoverflow;
333+ yyssp = yyss + yyps_index;
334+ yyvsp = yyvs + yypv_index;
335 }
336 *++yyssp = yystate = yytable[yyn];
337 *++yyvsp = yylval;
338@@ -1582,7 +1564,7 @@
339 {
340 #if YYDEBUG
341 if (yydebug)
342- printf("yydebug: error recovery discarding state %d\n",
343+ PerlIO_printf(Perl_debug_log, "yydebug: error recovery discarding state %d\n",
344 *yyssp);
345 #endif
346 if (yyssp <= yyss) goto yyabort;
347@@ -1600,7 +1582,7 @@
348 yys = 0;
349 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
350 if (!yys) yys = "illegal-symbol";
351- printf("yydebug: state %d, error recovery discards token %d (%s)\n",
352+ PerlIO_printf(Perl_debug_log, "yydebug: state %d, error recovery discards token %d (%s)\n",
353 yystate, yychar, yys);
354 }
355 #endif
356@@ -1610,7 +1592,7 @@
357 yyreduce:
358 #if YYDEBUG
359 if (yydebug)
360- printf("yydebug: state %d, reducing by rule %d (%s)\n",
361+ PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n",
362 yystate, yyn, yyrule[yyn]);
363 #endif
364 yym = yylen[yyn];
365@@ -2473,7 +2455,7 @@
366 #line 790 "perly.y"
367 { yyval.opval = yyvsp[0].opval; }
368 break;
369-#line 2477 "y.tab.c"
370+#line 2459 "perly.c"
371 }
372 yyssp -= yym;
373 yystate = *yyssp;
374@@ -2483,7 +2465,7 @@
375 {
376 #if YYDEBUG
377 if (yydebug)
378- printf("yydebug: after reduction, shifting from state 0 to\
379+ PerlIO_printf(Perl_debug_log, "yydebug: after reduction, shifting from state 0 to\
380 state %d\n", YYFINAL);
381 #endif
382 yystate = YYFINAL;
383@@ -2498,7 +2480,7 @@
384 yys = 0;
385 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
386 if (!yys) yys = "illegal-symbol";
387- printf("yydebug: state %d, reading %d (%s)\n",
388+ PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n",
389 YYFINAL, yychar, yys);
390 }
391 #endif
392@@ -2513,20 +2495,50 @@
393 yystate = yydgoto[yym];
394 #if YYDEBUG
395 if (yydebug)
396- printf("yydebug: after reduction, shifting from state %d \
397+ PerlIO_printf(Perl_debug_log, "yydebug: after reduction, shifting from state %d \
398 to state %d\n", *yyssp, yystate);
399 #endif
400 if (yyssp >= yyss + yystacksize - 1)
401 {
402+ /*
403+ ** reallocate and recover. Note that pointers
404+ ** have to be reset, or bad things will happen
405+ */
406+ int yyps_index = (yyssp - yyss);
407+ int yypv_index = (yyvsp - yyvs);
408+ yystacksize += YYSTACKSIZE;
409+ ysave->yyvs = Renew(yyvs, yystacksize, YYSTYPE);
410+ ysave->yyss = Renew(yyss, yystacksize, short);
411+ if (!yyvs || !yyss)
412 goto yyoverflow;
413+ yyssp = yyss + yyps_index;
414+ yyvsp = yyvs + yypv_index;
415 }
416 *++yyssp = yystate;
417 *++yyvsp = yyval;
418 goto yyloop;
419 yyoverflow:
420- yyerror("yacc stack overflow");
421+ yyerror("Out of memory for yacc stack");
422 yyabort:
423- return (1);
424+ retval = 1;
425 yyaccept:
426- return (0);
427+#ifdef USE_ITHREADS
428+ LEAVE; /* force yydestruct() before we return */
429+#endif
430+ return retval;
431+}
432+
433+static void
434+yydestruct(pTHX_ void *ptr)
435+{
436+ struct ysv* ysave = (struct ysv*)ptr;
437+ if (ysave->yyss) Safefree(ysave->yyss);
438+ if (ysave->yyvs) Safefree(ysave->yyvs);
439+ yydebug = ysave->oldyydebug;
440+ yynerrs = ysave->oldyynerrs;
441+ yyerrflag = ysave->oldyyerrflag;
442+ yychar = ysave->oldyychar;
443+ yyval = ysave->oldyyval;
444+ yylval = ysave->oldyylval;
445+ Safefree(ysave);
446 }
Unnamed repository; edit this file 'description' to name the repository.