Re: Uninitialised error from -M()

[p5sagit/p5-mst-13.2.git] / perly.c.diff

diff --git a/perly.c.diff b/perly.c.diff
index 172fae5..55f0a11 100644 (file)
--- a/perly.c.diff
+++ b/perly.c.diff
@@ -1,5 +1,6 @@
-*** y.tab.c.ORIG       Thu Dec  5 13:55:38 1996
---- y.tab.c    Thu Dec  5 13:56:27 1996
+Index: perly.c
+*** perly.c.orig       Sun Mar  1 21:44:24 1998
+--- perly.c    Sun Mar  1 21:46:32 1998
 ***************
 *** 13,82 ****
   }
@@ -89,12 +90,24 @@
 - short yyss[YYSTACKSIZE];
 - YYSTYPE yyvs[YYSTACKSIZE];
 - #define yystacksize YYSTACKSIZE
-  #line 620 "perly.y"
+  #line 636 "perly.y"
    /* PROGRAM */
 --- 1272,1277 ----
 ***************
 *** 1350,1361 ****
---- 1280,1336 ----
+  #define YYACCEPT goto yyaccept
+  #define YYERROR goto yyerrlab
+  int
+! yyparse()
+  {
+      register int yym, yyn, yystate;
+  #if YYDEBUG
+      register char *yys;
+      extern char *getenv();
+  
+      if (yys = getenv("YYDEBUG"))
+      {
+--- 1280,1338 ----
   #define YYACCEPT goto yyaccept
   #define YYERROR goto yyerrlab
 + 
@@ -110,8 +123,7 @@
 + };
 + 
 + void
-+ yydestruct(ptr)
-+ void* ptr;
++ yydestruct(void *ptr)
 + {
 +     struct ysv* ysave = (struct ysv*)ptr;
 +     if (ysave->yyss) Safefree(ysave->yyss);
@@ -126,7 +138,7 @@
 + }
 + 
   int
-  yyparse()
+! yyparse(void)
   {
       register int yym, yyn, yystate;
 +     register short *yyssp;
@@ -137,10 +149,13 @@
 +     int retval = 0;
   #if YYDEBUG
       register char *yys;
++ #ifndef __cplusplus
       extern char *getenv();
 + #endif
++ #endif
 + 
-+     struct ysv *ysave = (struct ysv*)safemalloc(sizeof(struct ysv));
++     struct ysv *ysave;
++     New(73, ysave, 1, struct ysv);
 +     SAVEDESTRUCTOR(yydestruct, ysave);
 +     ysave->oldyydebug        = yydebug;
 +     ysave->oldyynerrs        = yynerrs;
@@ -154,14 +169,16 @@
       {
 ***************
 *** 1370,1373 ****
---- 1345,1356 ----
+--- 1347,1360 ----
       yychar = (-1);
   
 +     /*
 +     ** Initialize private stacks (yyparse may be called from an action)
 +     */
-+     ysave->yyss = yyss = (short*)safemalloc(yystacksize*sizeof(short));
-+     ysave->yyvs = yyvs = (YYSTYPE*)safemalloc(yystacksize*sizeof(YYSTYPE));
++     New(73, yyss, yystacksize, short);
++     New(73, yyvs, yystacksize, YYSTYPE);
++     ysave->yyss = yyss;
++     ysave->yyvs = yyvs;
 +     if (!yyvs || !yyss)
 +      goto yyoverflow;
 + 
@@ -174,10 +191,10 @@
 !             printf("yydebug: state %d, reading %d (%s)\n", yystate,
                       yychar, yys);
           }
---- 1368,1372 ----
+--- 1372,1376 ----
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
-!             fprintf(stderr, "yydebug: state %d, reading %d (%s)\n", yystate,
+!             PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n", yystate,
                       yychar, yys);
           }
 ***************
@@ -192,10 +209,10 @@
 !             goto yyoverflow;
           }
           *++yyssp = yystate = yytable[yyn];
---- 1378,1401 ----
+--- 1382,1405 ----
   #if YYDEBUG
           if (yydebug)
-!             fprintf(stderr, "yydebug: state %d, shifting to state %d\n",
+!             PerlIO_printf(Perl_debug_log, "yydebug: state %d, shifting to state %d\n",
                       yystate, yytable[yyn]);
   #endif
           if (yyssp >= yyss + yystacksize - 1)
@@ -229,10 +246,10 @@
 !                     goto yyoverflow;
                   }
                   *++yyssp = yystate = yytable[yyn];
---- 1433,1457 ----
+--- 1437,1461 ----
   #if YYDEBUG
                   if (yydebug)
-!                     fprintf(stderr,
+!                     PerlIO_printf(Perl_debug_log,
 !                   "yydebug: state %d, error recovery shifting to state %d\n",
 !                   *yyssp, yytable[yyn]);
   #endif
@@ -263,10 +280,10 @@
 !                             *yyssp);
   #endif
                   if (yyssp <= yyss) goto yyabort;
---- 1463,1469 ----
+--- 1467,1473 ----
   #if YYDEBUG
                   if (yydebug)
-!                     fprintf(stderr,
+!                     PerlIO_printf(Perl_debug_log,
 !                      "yydebug: error recovery discarding state %d\n",
 !                      *yyssp);
   #endif
@@ -279,10 +296,10 @@
 !                     yystate, yychar, yys);
           }
   #endif
---- 1482,1488 ----
+--- 1486,1492 ----
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
-!             fprintf(stderr,
+!             PerlIO_printf(Perl_debug_log,
 !              "yydebug: state %d, error recovery discards token %d (%s)\n",
 !              yystate, yychar, yys);
           }
@@ -294,43 +311,43 @@
 !         printf("yydebug: state %d, reducing by rule %d (%s)\n",
                   yystate, yyn, yyrule[yyn]);
   #endif
---- 1493,1497 ----
+--- 1497,1501 ----
   #if YYDEBUG
       if (yydebug)
-!         fprintf(stderr, "yydebug: state %d, reducing by rule %d (%s)\n",
+!         PerlIO_printf(Perl_debug_log, "yydebug: state %d, reducing by rule %d (%s)\n",
                   yystate, yyn, yyrule[yyn]);
   #endif
 ***************
-*** 2252,2257 ****
+*** 2274,2279 ****
   #if YYDEBUG
           if (yydebug)
 !             printf("yydebug: after reduction, shifting from state 0 to\
 !  state %d\n", YYFINAL);
   #endif
           yystate = YYFINAL;
---- 2266,2272 ----
+--- 2292,2298 ----
   #if YYDEBUG
           if (yydebug)
-!             fprintf(stderr,
+!             PerlIO_printf(Perl_debug_log,
 !              "yydebug: after reduction, shifting from state 0 to state %d\n",
 !              YYFINAL);
   #endif
           yystate = YYFINAL;
 ***************
-*** 2267,2271 ****
+*** 2289,2293 ****
                   if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                   if (!yys) yys = "illegal-symbol";
 !                 printf("yydebug: state %d, reading %d (%s)\n",
                           YYFINAL, yychar, yys);
               }
---- 2282,2286 ----
+--- 2308,2312 ----
                   if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                   if (!yys) yys = "illegal-symbol";
-!                 fprintf(stderr, "yydebug: state %d, reading %d (%s)\n",
+!                 PerlIO_printf(Perl_debug_log, "yydebug: state %d, reading %d (%s)\n",
                           YYFINAL, yychar, yys);
               }
 ***************
-*** 2282,2291 ****
+*** 2304,2313 ****
   #if YYDEBUG
       if (yydebug)
 !         printf("yydebug: after reduction, shifting from state %d \
@@ -341,10 +358,10 @@
 !         goto yyoverflow;
       }
       *++yyssp = yystate;
---- 2297,2321 ----
+--- 2323,2347 ----
   #if YYDEBUG
       if (yydebug)
-!         fprintf(stderr,
+!         PerlIO_printf(Perl_debug_log,
 !          "yydebug: after reduction, shifting from state %d to state %d\n",
 !          *yyssp, yystate);
   #endif
@@ -368,7 +385,7 @@
       }
       *++yyssp = yystate;
 ***************
-*** 2293,2300 ****
+*** 2315,2322 ****
       goto yyloop;
   yyoverflow:
 !     yyerror("yacc stack overflow");
@@ -377,7 +394,7 @@
   yyaccept:
 !     return (0);
   }
---- 2323,2330 ----
+--- 2349,2356 ----
       goto yyloop;
   yyoverflow:
 !     yyerror("Out of memory for yacc stack");