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
LFS testing robustness.
[perl5.git] / perly_c.diff
... / ...
CommitLineData
1*** perly.c.orig Mon Jul 26 03:27:57 1999
2--- perly.c Mon Jul 26 02:47:03 1999
3***************
4*** 8,91 ****
5 #include "perl.h"
6
7 #define dep() deprecate("\"do\" to call subroutines")
8
9! #line 27 "perly.y"
10! /* I sense a Big Blue pattern here... */
11! #if !defined(OEMVS) && !defined(__OPEN_VM) && !defined(POSIX_BC)
12! #line 31 "perly.y"
13! typedef union {
14! I32 ival;
15! char *pval;
16! OP *opval;
17! GV *gvval;
18! } YYSTYPE;
19! #line 39 "perly.y"
20! #endif /* !OEMVS && !__OPEN_VM && !POSIX_BC */
21
22! #ifdef USE_PURE_BISON
23! #define YYLEX_PARAM (&yychar)
24! #endif
25! #line 29 "y.tab.c"
26! #define WORD 257
27! #define METHOD 258
28! #define FUNCMETH 259
29! #define THING 260
30! #define PMFUNC 261
31! #define PRIVATEREF 262
32! #define FUNC0SUB 263
33! #define UNIOPSUB 264
34! #define LSTOPSUB 265
35! #define LABEL 266
36! #define FORMAT 267
37! #define SUB 268
38! #define ANONSUB 269
39! #define PACKAGE 270
40! #define USE 271
41! #define WHILE 272
42! #define UNTIL 273
43! #define IF 274
44! #define UNLESS 275
45! #define ELSE 276
46! #define ELSIF 277
47! #define CONTINUE 278
48! #define FOR 279
49! #define LOOPEX 280
50! #define DOTDOT 281
51! #define FUNC0 282
52! #define FUNC1 283
53! #define FUNC 284
54! #define UNIOP 285
55! #define LSTOP 286
56! #define RELOP 287
57! #define EQOP 288
58! #define MULOP 289
59! #define ADDOP 290
60! #define DOLSHARP 291
61! #define DO 292
62! #define HASHBRACK 293
63! #define NOAMP 294
64! #define LOCAL 295
65! #define MY 296
66! #define PREC_LOW 297
67! #define OROP 298
68! #define ANDOP 299
69! #define NOTOP 300
70! #define ASSIGNOP 301
71! #define OROR 302
72! #define ANDAND 303
73! #define BITOROP 304
74! #define BITANDOP 305
75! #define SHIFTOP 306
76! #define MATCHOP 307
77! #define UMINUS 308
78! #define REFGEN 309
79! #define POWOP 310
80! #define PREINC 311
81! #define PREDEC 312
82! #define POSTINC 313
83! #define POSTDEC 314
84! #define ARROW 315
85 #define YYERRCODE 256
86! short yylhs[] = { -1,
87 46, 0, 9, 7, 10, 8, 11, 11, 11, 12,
88 12, 12, 12, 25, 25, 25, 25, 25, 25, 25,
89--- 8,25 ----
90 #include "perl.h"
91
92+ #define yydebug PL_yydebug
93+ #define yynerrs PL_yynerrs
94+ #define yyerrflag PL_yyerrflag
95+ #define yychar PL_yychar
96+ #define yyval PL_yyval
97+ #define yylval PL_yylval
98+
99 #define dep() deprecate("\"do\" to call subroutines")
100
101! static void yydestruct(pTHXo_ void *ptr);
102
103! #line 27 "perly.y"
104 #define YYERRCODE 256
105! static short yylhs[] = { -1,
106 46, 0, 9, 7, 10, 8, 11, 11, 11, 12,
107 12, 12, 12, 25, 25, 25, 25, 25, 25, 25,
108***************
109*** 107,111 ****
110 24, 19, 20, 21, 22, 23, 36, 36, 36, 36,
111 };
112! short yylen[] = { 2,
113 0, 2, 4, 0, 4, 0, 0, 2, 2, 2,
114 1, 2, 3, 1, 1, 3, 3, 3, 3, 3,
115--- 41,45 ----
116 24, 19, 20, 21, 22, 23, 36, 36, 36, 36,
117 };
118! static short yylen[] = { 2,
119 0, 2, 4, 0, 4, 0, 0, 2, 2, 2,
120 1, 2, 3, 1, 1, 3, 3, 3, 3, 3,
121***************
122*** 127,131 ****
123 2, 2, 2, 2, 2, 2, 1, 1, 1, 1,
124 };
125! short yydefred[] = { 1,
126 0, 7, 0, 45, 56, 54, 0, 54, 8, 46,
127 9, 11, 0, 47, 48, 49, 0, 0, 0, 63,
128--- 61,65 ----
129 2, 2, 2, 2, 2, 2, 1, 1, 1, 1,
130 };
131! static short yydefred[] = { 1,
132 0, 7, 0, 45, 56, 54, 0, 54, 8, 46,
133 9, 11, 0, 47, 48, 49, 0, 0, 0, 63,
134***************
135*** 166,170 ****
136 5, 0, 30, 0, 0, 33, 0, 23,
137 };
138! short yydgoto[] = { 1,
139 9, 66, 10, 18, 96, 17, 87, 344, 90, 333,
140 3, 11, 12, 68, 349, 267, 70, 71, 72, 73,
141--- 100,104 ----
142 5, 0, 30, 0, 0, 33, 0, 23,
143 };
144! static short yydgoto[] = { 1,
145 9, 66, 10, 18, 96, 17, 87, 344, 90, 333,
146 3, 11, 12, 68, 349, 267, 70, 71, 72, 73,
147***************
148*** 174,178 ****
149 260,
150 };
151! short yysindex[] = { 0,
152 0, 0, 142, 0, 0, 0, -57, 0, 0, 0,
153 0, 0, 622, 0, 0, 0, -239, -229, -10, 0,
154--- 108,112 ----
155 260,
156 };
157! static short yysindex[] = { 0,
158 0, 0, 142, 0, 0, 0, -57, 0, 0, 0,
159 0, 0, 622, 0, 0, 0, -239, -229, -10, 0,
160***************
161*** 213,217 ****
162 0, 228, 0, 92, 92, 0, -204, 0,
163 };
164! short yyrindex[] = { 0,
165 0, 0, 225, 0, 0, 0, 0, 0, 0, 0,
166 0, 0, 0, 0, 0, 0, 155, 0, 0, 0,
167--- 147,151 ----
168 0, 228, 0, 92, 92, 0, -204, 0,
169 };
170! static short yyrindex[] = { 0,
171 0, 0, 225, 0, 0, 0, 0, 0, 0, 0,
172 0, 0, 0, 0, 0, 0, 155, 0, 0, 0,
173***************
174*** 252,256 ****
175 0, 0, 0, 0, 0, 0, 168, 0,
176 };
177! short yygindex[] = { 0,
178 0, 0, 0, 339, 320, 0, -11, 0, 913, 360,
179 -78, 0, 0, 0, -320, -13, 4321, 0, 1367, 0,
180--- 186,190 ----
181 0, 0, 0, 0, 0, 0, 168, 0,
182 };
183! static short yygindex[] = { 0,
184 0, 0, 0, 339, 320, 0, -11, 0, 913, 360,
185 -78, 0, 0, 0, -320, -13, 4321, 0, 1367, 0,
186***************
187*** 261,265 ****
188 };
189 #define YYTABLESIZE 4610
190! short yytable[] = { 69,
191 206, 20, 295, 62, 113, 257, 184, 103, 183, 298,
192 172, 62, 125, 104, 252, 350, 104, 81, 209, 169,
193--- 195,199 ----
194 };
195 #define YYTABLESIZE 4610
196! static short yytable[] = { 69,
197 206, 20, 295, 62, 113, 257, 184, 103, 183, 298,
198 172, 62, 125, 104, 252, 350, 104, 81, 209, 169,
199***************
200*** 724,728 ****
201 0, 0, 0, 0, 0, 0, 0, 0, 0, 321,
202 };
203! short yycheck[] = { 13,
204 59, 59, 59, 36, 43, 185, 92, 40, 87, 59,
205 91, 36, 51, 41, 59, 336, 44, 257, 41, 40,
206--- 658,662 ----
207 0, 0, 0, 0, 0, 0, 0, 0, 0, 321,
208 };
209! static short yycheck[] = { 13,
210 59, 59, 59, 36, 43, 185, 92, 40, 87, 59,
211 91, 36, 51, 41, 59, 336, 44, 257, 41, 40,
212***************
213*** 1193,1197 ****
214 #define YYMAXTOKEN 315
215 #if YYDEBUG
216! char *yyname[] = {
217 "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,
218 "'!'",0,0,"'$'","'%'","'&'",0,"'('","')'","'*'","'+'","','","'-'",0,0,0,0,0,0,0,
219--- 1127,1131 ----
220 #define YYMAXTOKEN 315
221 #if YYDEBUG
222! static char *yyname[] = {
223 "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,
224 "'!'",0,0,"'$'","'%'","'&'",0,"'('","')'","'*'","'+'","','","'-'",0,0,0,0,0,0,0,
225***************
226*** 1210,1214 ****
227 "POSTINC","POSTDEC","ARROW",
228 };
229! char *yyrule[] = {
230 "$accept : prog",
231 "$$1 :",
232--- 1144,1148 ----
233 "POSTINC","POSTDEC","ARROW",
234 };
235! static char *yyrule[] = {
236 "$accept : prog",
237 "$$1 :",
238***************
239*** 1408,1436 ****
240 #endif
241 #endif
242- int yydebug;
243- int yynerrs;
244- int yyerrflag;
245- int yychar;
246- short *yyssp;
247- YYSTYPE *yyvsp;
248- YYSTYPE yyval;
249- YYSTYPE yylval;
250- short yyss[YYSTACKSIZE];
251- YYSTYPE yyvs[YYSTACKSIZE];
252- #define yystacksize YYSTACKSIZE
253 #line 666 "perly.y"
254 /* PROGRAM */
255! #line 1424 "y.tab.c"
256 #define YYABORT goto yyabort
257 #define YYACCEPT goto yyaccept
258 #define YYERROR goto yyerrlab
259 int
260! yyparse()
261 {
262 register int yym, yyn, yystate;
263 #if YYDEBUG
264 register char *yys;
265 extern char *getenv();
266
267 if (yys = getenv("YYDEBUG"))
268 {
269--- 1342,1391 ----
270 #endif
271 #endif
272 #line 666 "perly.y"
273 /* PROGRAM */
274! #line 1427 "perly.c"
275 #define YYABORT goto yyabort
276 #define YYACCEPT goto yyaccept
277 #define YYERROR goto yyerrlab
278+
279+ struct ysv {
280+ short* yyss;
281+ YYSTYPE* yyvs;
282+ int oldyydebug;
283+ int oldyynerrs;
284+ int oldyyerrflag;
285+ int oldyychar;
286+ YYSTYPE oldyyval;
287+ YYSTYPE oldyylval;
288+ };
289+
290 int
291! Perl_yyparse(pTHX)
292 {
293 register int yym, yyn, yystate;
294+ register short *yyssp;
295+ register YYSTYPE *yyvsp;
296+ short* yyss;
297+ YYSTYPE* yyvs;
298+ unsigned yystacksize = YYSTACKSIZE;
299+ int retval = 0;
300 #if YYDEBUG
301 register char *yys;
302+ #ifndef __cplusplus
303 extern char *getenv();
304+ #endif
305+ #endif
306+
307+ struct ysv *ysave;
308+ New(73, ysave, 1, struct ysv);
309+ SAVEDESTRUCTOR(yydestruct, ysave);
310+ ysave->oldyydebug = yydebug;
311+ ysave->oldyynerrs = yynerrs;
312+ ysave->oldyyerrflag = yyerrflag;
313+ ysave->oldyychar = yychar;
314+ ysave->oldyyval = yyval;
315+ ysave->oldyylval = yylval;
316
317+ #if YYDEBUG
318 if (yys = getenv("YYDEBUG"))
319 {
320***************
321*** 1445,1448 ****
322--- 1400,1413 ----
323 yychar = (-1);
324
325+ /*
326+ ** Initialize private stacks (yyparse may be called from an action)
327+ */
328+ New(73, yyss, yystacksize, short);
329+ New(73, yyvs, yystacksize, YYSTYPE);
330+ ysave->yyss = yyss;
331+ ysave->yyvs = yyvs;
332+ if (!yyvs || !yyss)
333+ goto yyoverflow;
334+
335 yyssp = yyss;
336 yyvsp = yyvs;
337***************
338*** 1470,1479 ****
339 #if YYDEBUG
340 if (yydebug)
341! printf("yydebug: state %d, shifting to state %d\n",
342 yystate, yytable[yyn]);
343 #endif
344 if (yyssp >= yyss + yystacksize - 1)
345 {
346! goto yyoverflow;
347 }
348 *++yyssp = yystate = yytable[yyn];
349--- 1435,1458 ----
350 #if YYDEBUG
351 if (yydebug)
352! PerlIO_printf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n",
353 yystate, yytable[yyn]);
354 #endif
355 if (yyssp >= yyss + yystacksize - 1)
356 {
357! /*
358! ** reallocate and recover. Note that pointers
359! ** have to be reset, or bad things will happen
360! */
361! int yyps_index = (yyssp - yyss);
362! int yypv_index = (yyvsp - yyvs);
363! yystacksize += YYSTACKSIZE;
364! ysave->yyvs = yyvs =
365! (YYSTYPE*)PerlMem_realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
366! ysave->yyss = yyss =
367! (short*)PerlMem_realloc((char*)yyss,yystacksize * sizeof(short));
368! if (!yyvs || !yyss)
369! goto yyoverflow;
370! yyssp = yyss + yyps_index;
371! yyvsp = yyvs + yypv_index;
372 }
373 *++yyssp = yystate = yytable[yyn];
374***************
375*** 1511,1520 ****
376 #if YYDEBUG
377 if (yydebug)
378! printf("yydebug: state %d, error recovery shifting\
379! to state %d\n", *yyssp, yytable[yyn]);
380 #endif
381 if (yyssp >= yyss + yystacksize - 1)
382 {
383! goto yyoverflow;
384 }
385 *++yyssp = yystate = yytable[yyn];
386--- 1490,1514 ----
387 #if YYDEBUG
388 if (yydebug)
389! PerlIO_printf(Perl_debug_log,
390! "yydebug: state %d, error recovery shifting to state %d\n",
391! *yyssp, yytable[yyn]);
392 #endif
393 if (yyssp >= yyss + yystacksize - 1)
394 {
395! /*
396! ** reallocate and recover. Note that pointers
397! ** have to be reset, or bad things will happen
398! */
399! int yyps_index = (yyssp - yyss);
400! int yypv_index = (yyvsp - yyvs);
401! yystacksize += YYSTACKSIZE;
402! ysave->yyvs = yyvs = (YYSTYPE*)PerlMem_realloc((char*)yyvs,
403! yystacksize * sizeof(YYSTYPE));
404! ysave->yyss = yyss = (short*)PerlMem_realloc((char*)yyss,
405! yystacksize * sizeof(short));
406! if (!yyvs || !yyss)
407! goto yyoverflow;
408! yyssp = yyss + yyps_index;
409! yyvsp = yyvs + yypv_index;
410 }
411 *++yyssp = yystate = yytable[yyn];
412***************
413*** 1526,1531 ****
414 #if YYDEBUG
415 if (yydebug)
416! printf("yydebug: error recovery discarding state %d\n",
417! *yyssp);
418 #endif
419 if (yyssp <= yyss) goto yyabort;
420--- 1520,1526 ----
421 #if YYDEBUG
422 if (yydebug)
423! PerlIO_printf(Perl_debug_log,
424! "yydebug: error recovery discarding state %d\n",
425! *yyssp);
426 #endif
427 if (yyssp <= yyss) goto yyabort;
428***************
429*** 1544,1549 ****
430 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
431 if (!yys) yys = "illegal-symbol";
432! printf("yydebug: state %d, error recovery discards token %d (%s)\n",
433! yystate, yychar, yys);
434 }
435 #endif
436--- 1539,1545 ----
437 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
438 if (!yys) yys = "illegal-symbol";
439! PerlIO_printf(Perl_debug_log,
440! "yydebug: state %d, error recovery discards token %d (%s)\n",
441! yystate, yychar, yys);
442 }
443 #endif
444***************
445*** 1554,1558 ****
446 #if YYDEBUG
447 if (yydebug)
448! printf("yydebug: state %d, reducing by rule %d (%s)\n",
449 yystate, yyn, yyrule[yyn]);
450 #endif
451--- 1550,1554 ----
452 #if YYDEBUG
453 if (yydebug)
454! PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n",
455 yystate, yyn, yyrule[yyn]);
456 #endif
457***************
458*** 2358,2362 ****
459 { yyval.opval = yyvsp[0].opval; }
460 break;
461! #line 2361 "y.tab.c"
462 }
463 yyssp -= yym;
464--- 2354,2358 ----
465 { yyval.opval = yyvsp[0].opval; }
466 break;
467! #line 2365 "perly.c"
468 }
469 yyssp -= yym;
470***************
471*** 2368,2373 ****
472 #if YYDEBUG
473 if (yydebug)
474! printf("yydebug: after reduction, shifting from state 0 to\
475! state %d\n", YYFINAL);
476 #endif
477 yystate = YYFINAL;
478--- 2364,2370 ----
479 #if YYDEBUG
480 if (yydebug)
481! PerlIO_printf(Perl_debug_log,
482! "yydebug: after reduction, shifting from state 0 to state %d\n",
483! YYFINAL);
484 #endif
485 yystate = YYFINAL;
486***************
487*** 2383,2387 ****
488 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
489 if (!yys) yys = "illegal-symbol";
490! printf("yydebug: state %d, reading %d (%s)\n",
491 YYFINAL, yychar, yys);
492 }
493--- 2380,2384 ----
494 if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
495 if (!yys) yys = "illegal-symbol";
496! PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n",
497 YYFINAL, yychar, yys);
498 }
499***************
500*** 2398,2407 ****
501 #if YYDEBUG
502 if (yydebug)
503! printf("yydebug: after reduction, shifting from state %d \
504! to state %d\n", *yyssp, yystate);
505 #endif
506 if (yyssp >= yyss + yystacksize - 1)
507 {
508! goto yyoverflow;
509 }
510 *++yyssp = yystate;
511--- 2395,2419 ----
512 #if YYDEBUG
513 if (yydebug)
514! PerlIO_printf(Perl_debug_log,
515! "yydebug: after reduction, shifting from state %d to state %d\n",
516! *yyssp, yystate);
517 #endif
518 if (yyssp >= yyss + yystacksize - 1)
519 {
520! /*
521! ** reallocate and recover. Note that pointers
522! ** have to be reset, or bad things will happen
523! */
524! int yyps_index = (yyssp - yyss);
525! int yypv_index = (yyvsp - yyvs);
526! yystacksize += YYSTACKSIZE;
527! ysave->yyvs = yyvs =
528! (YYSTYPE*)PerlMem_realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
529! ysave->yyss = yyss =
530! (short*)PerlMem_realloc((char*)yyss,yystacksize * sizeof(short));
531! if (!yyvs || !yyss)
532! goto yyoverflow;
533! yyssp = yyss + yyps_index;
534! yyvsp = yyvs + yypv_index;
535 }
536 *++yyssp = yystate;
537***************
538*** 2409,2416 ****
539 goto yyloop;
540 yyoverflow:
541! yyerror("yacc stack overflow");
542 yyabort:
543! return (1);
544 yyaccept:
545! return (0);
546 }
547--- 2421,2448 ----
548 goto yyloop;
549 yyoverflow:
550! yyerror("Out of memory for yacc stack");
551 yyabort:
552! retval = 1;
553 yyaccept:
554! return retval;
555! }
556!
557! #ifdef PERL_OBJECT
558! #define NO_XSLOCKS
559! #include "XSUB.h"
560! #endif
561!
562! static void
563! yydestruct(pTHXo_ void *ptr)
564! {
565! struct ysv* ysave = (struct ysv*)ptr;
566! if (ysave->yyss) Safefree(ysave->yyss);
567! if (ysave->yyvs) Safefree(ysave->yyvs);
568! yydebug = ysave->oldyydebug;
569! yynerrs = ysave->oldyynerrs;
570! yyerrflag = ysave->oldyyerrflag;
571! yychar = ysave->oldyychar;
572! yyval = ysave->oldyyval;
573! yylval = ysave->oldyylval;
574! Safefree(ysave);
575 }
Unnamed repository; edit this file 'description' to name the repository.