Re: [patch] IO::Socket::INET Broadcast patch
[perl.git] / perly_c.diff
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  }