This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.003_01: perly.c.diff
authorPerl 5 Porters <perl5-porters@africa.nicoh.com>
Sun, 7 Jul 1996 06:31:35 +0000 (06:31 +0000)
committerCharles Bailey <bailey@genetics.upenn.edu>
Sun, 7 Jul 1996 06:31:35 +0000 (06:31 +0000)
Update to reflect new perly.c
Use safefree instead of Safefree to free memory allocated by safemalloc

perly.c.diff

index 3b3c04e..61b4cff 100644 (file)
@@ -1,5 +1,5 @@
-*** perly.c.orig       Wed Feb 14 15:29:04 1996
---- perly.c    Wed Feb 14 15:29:05 1996
+*** perly.c.orig       Sun Jul  7 23:27:45 1996
+--- perly.c    Sun Jul  7 23:27:46 1996
 ***************
 *** 12,82 ****
       deprecate("\"do\" to call subroutines");
 ***************
 *** 12,82 ****
       deprecate("\"do\" to call subroutines");
@@ -75,7 +75,7 @@
      31,    0,    5,    3,    6,    6,    6,    7,    7,    7,
 --- 12,17 ----
 ***************
      31,    0,    5,    3,    6,    6,    6,    7,    7,    7,
 --- 12,17 ----
 ***************
-*** 1381,1393 ****
+*** 1375,1387 ****
   int yynerrs;
   int yyerrflag;
   int yychar;
   int yynerrs;
   int yyerrflag;
   int yychar;
 - #define yystacksize YYSTACKSIZE
   #line 571 "perly.y"
    /* PROGRAM */
 - #define yystacksize YYSTACKSIZE
   #line 571 "perly.y"
    /* PROGRAM */
-  #line 1394 "y.tab.c"
---- 1316,1323 ----
+  #line 1388 "y.tab.c"
+--- 1310,1317 ----
 ***************
 ***************
-*** 1394,1407 ****
---- 1324,1382 ----
+*** 1388,1401 ****
+--- 1318,1376 ----
   #define YYABORT goto yyabort
   #define YYACCEPT goto yyaccept
   #define YYERROR goto yyerrlab
   #define YYABORT goto yyabort
   #define YYACCEPT goto yyaccept
   #define YYERROR goto yyerrlab
 + void* ptr;
 + {
 +     struct ysv* ysave = (struct ysv*)ptr;
 + void* ptr;
 + {
 +     struct ysv* ysave = (struct ysv*)ptr;
-+     if (ysave->yyss) Safefree(ysave->yyss);
-+     if (ysave->yyvs) Safefree(ysave->yyvs);
++     if (ysave->yyss) safefree((char *)ysave->yyss);
++     if (ysave->yyvs) safefree((char *)ysave->yyvs);
 +     yydebug  = ysave->oldyydebug;
 +     yynerrs  = ysave->oldyynerrs;
 +     yyerrflag        = ysave->oldyyerrflag;
 +     yychar   = ysave->oldyychar;
 +     yyval    = ysave->oldyyval;
 +     yylval   = ysave->oldyylval;
 +     yydebug  = ysave->oldyydebug;
 +     yynerrs  = ysave->oldyynerrs;
 +     yyerrflag        = ysave->oldyyerrflag;
 +     yychar   = ysave->oldyychar;
 +     yyval    = ysave->oldyyval;
 +     yylval   = ysave->oldyylval;
-+     Safefree(ysave);
++     safefree((char *)ysave);
 + }
 + 
   int
 + }
 + 
   int
       {
           yyn = *yys;
 ***************
       {
           yyn = *yys;
 ***************
-*** 1414,1419 ****
---- 1389,1402 ----
+*** 1408,1413 ****
+--- 1383,1396 ----
       yyerrflag = 0;
       yychar = (-1);
   
       yyerrflag = 0;
       yychar = (-1);
   
       yyvsp = yyvs;
       *yyssp = yystate = 0;
 ***************
       yyvsp = yyvs;
       *yyssp = yystate = 0;
 ***************
-*** 1429,1435 ****
+*** 1423,1429 ****
               yys = 0;
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
               yys = 0;
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
                       yychar, yys);
           }
   #endif
                       yychar, yys);
           }
   #endif
---- 1412,1418 ----
+--- 1406,1412 ----
               yys = 0;
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
               yys = 0;
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
           }
   #endif
 ***************
           }
   #endif
 ***************
-*** 1439,1450 ****
+*** 1433,1444 ****
       {
   #if YYDEBUG
           if (yydebug)
       {
   #if YYDEBUG
           if (yydebug)
           }
           *++yyssp = yystate = yytable[yyn];
           *++yyvsp = yylval;
           }
           *++yyssp = yystate = yytable[yyn];
           *++yyvsp = yylval;
---- 1422,1447 ----
+--- 1416,1441 ----
       {
   #if YYDEBUG
           if (yydebug)
       {
   #if YYDEBUG
           if (yydebug)
           *++yyssp = yystate = yytable[yyn];
           *++yyvsp = yylval;
 ***************
           *++yyssp = yystate = yytable[yyn];
           *++yyvsp = yylval;
 ***************
-*** 1480,1491 ****
+*** 1474,1485 ****
               {
   #if YYDEBUG
                   if (yydebug)
               {
   #if YYDEBUG
                   if (yydebug)
                   }
                   *++yyssp = yystate = yytable[yyn];
                   *++yyvsp = yylval;
                   }
                   *++yyssp = yystate = yytable[yyn];
                   *++yyvsp = yylval;
---- 1477,1503 ----
+--- 1471,1497 ----
               {
   #if YYDEBUG
                   if (yydebug)
               {
   #if YYDEBUG
                   if (yydebug)
                   *++yyssp = yystate = yytable[yyn];
                   *++yyvsp = yylval;
 ***************
                   *++yyssp = yystate = yytable[yyn];
                   *++yyvsp = yylval;
 ***************
-*** 1495,1502 ****
+*** 1489,1496 ****
               {
   #if YYDEBUG
                   if (yydebug)
               {
   #if YYDEBUG
                   if (yydebug)
   #endif
                   if (yyssp <= yyss) goto yyabort;
                   --yyssp;
   #endif
                   if (yyssp <= yyss) goto yyabort;
                   --yyssp;
---- 1507,1515 ----
+--- 1501,1509 ----
               {
   #if YYDEBUG
                   if (yydebug)
               {
   #if YYDEBUG
                   if (yydebug)
                   if (yyssp <= yyss) goto yyabort;
                   --yyssp;
 ***************
                   if (yyssp <= yyss) goto yyabort;
                   --yyssp;
 ***************
-*** 1513,1520 ****
+*** 1507,1514 ****
               yys = 0;
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
               yys = 0;
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
           }
   #endif
           yychar = (-1);
           }
   #endif
           yychar = (-1);
---- 1526,1534 ----
+--- 1520,1528 ----
               yys = 0;
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
               yys = 0;
               if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
               if (!yys) yys = "illegal-symbol";
   #endif
           yychar = (-1);
 ***************
   #endif
           yychar = (-1);
 ***************
-*** 1523,1529 ****
+*** 1517,1523 ****
   yyreduce:
   #if YYDEBUG
       if (yydebug)
   yyreduce:
   #if YYDEBUG
       if (yydebug)
                   yystate, yyn, yyrule[yyn]);
   #endif
       yym = yylen[yyn];
                   yystate, yyn, yyrule[yyn]);
   #endif
       yym = yylen[yyn];
---- 1537,1543 ----
+--- 1531,1537 ----
   yyreduce:
   #if YYDEBUG
       if (yydebug)
   yyreduce:
   #if YYDEBUG
       if (yydebug)
   #endif
       yym = yylen[yyn];
 ***************
   #endif
       yym = yylen[yyn];
 ***************
-*** 2242,2249 ****
+*** 2236,2243 ****
       {
   #if YYDEBUG
           if (yydebug)
       {
   #if YYDEBUG
           if (yydebug)
   #endif
           yystate = YYFINAL;
           *++yyssp = YYFINAL;
   #endif
           yystate = YYFINAL;
           *++yyssp = YYFINAL;
---- 2256,2264 ----
+--- 2250,2258 ----
       {
   #if YYDEBUG
           if (yydebug)
       {
   #if YYDEBUG
           if (yydebug)
           yystate = YYFINAL;
           *++yyssp = YYFINAL;
 ***************
           yystate = YYFINAL;
           *++yyssp = YYFINAL;
 ***************
-*** 2257,2263 ****
+*** 2251,2257 ****
                   yys = 0;
                   if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                   if (!yys) yys = "illegal-symbol";
                   yys = 0;
                   if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                   if (!yys) yys = "illegal-symbol";
                           YYFINAL, yychar, yys);
               }
   #endif
                           YYFINAL, yychar, yys);
               }
   #endif
---- 2272,2278 ----
+--- 2266,2272 ----
                   yys = 0;
                   if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                   if (!yys) yys = "illegal-symbol";
                   yys = 0;
                   if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                   if (!yys) yys = "illegal-symbol";
               }
   #endif
 ***************
               }
   #endif
 ***************
-*** 2272,2291 ****
+*** 2266,2285 ****
           yystate = yydgoto[yym];
   #if YYDEBUG
       if (yydebug)
           yystate = yydgoto[yym];
   #if YYDEBUG
       if (yydebug)
   yyaccept:
 !     return (0);
   }
   yyaccept:
 !     return (0);
   }
---- 2287,2321 ----
+--- 2281,2315 ----
           yystate = yydgoto[yym];
   #if YYDEBUG
       if (yydebug)
           yystate = yydgoto[yym];
   #if YYDEBUG
       if (yydebug)