Restore use of Safefree() macro.
Perl 5 Porters [Mon, 19 Aug 1996 00:41:46 +0000 (00:41 +0000)]
perly.c
perly.c.diff

diff --git a/perly.c b/perly.c
index 735330a..8e94e1a 100644 (file)
--- a/perly.c
+++ b/perly.c
@@ -1335,15 +1335,15 @@ yydestruct(ptr)
 void* ptr;
 {
     struct ysv* ysave = (struct ysv*)ptr;
-    if (ysave->yyss) safefree((char *)ysave->yyss);
-    if (ysave->yyvs) safefree((char *)ysave->yyvs);
+    if (ysave->yyss) Safefree(ysave->yyss);
+    if (ysave->yyvs) Safefree(ysave->yyvs);
     yydebug    = ysave->oldyydebug;
     yynerrs    = ysave->oldyynerrs;
     yyerrflag  = ysave->oldyyerrflag;
     yychar     = ysave->oldyychar;
     yyval      = ysave->oldyyval;
     yylval     = ysave->oldyylval;
-    safefree((char *)ysave);
+    Safefree(ysave);
 }
 
 int
index 61b4cff..f31072a 100644 (file)
 + void* ptr;
 + {
 +     struct ysv* ysave = (struct ysv*)ptr;
-+     if (ysave->yyss) safefree((char *)ysave->yyss);
-+     if (ysave->yyvs) safefree((char *)ysave->yyvs);
++     if (ysave->yyss) Safefree(ysave->yyss);
++     if (ysave->yyvs) Safefree(ysave->yyvs);
 +     yydebug  = ysave->oldyydebug;
 +     yynerrs  = ysave->oldyynerrs;
 +     yyerrflag        = ysave->oldyyerrflag;
 +     yychar   = ysave->oldyychar;
 +     yyval    = ysave->oldyyval;
 +     yylval   = ysave->oldyylval;
-+     safefree((char *)ysave);
++     Safefree(ysave);
 + }
 + 
   int