From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Mon, 19 Aug 1996 00:41:46 +0000 (+0000)
Subject: Restore use of Safefree() macro.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=489bbe731dd40f7d12e6e0e535fdfef30bb9e7fe;p=p5sagit%2Fp5-mst-13.2.git

Restore use of Safefree() macro.
---

diff --git a/perly.c b/perly.c
index 735330a..8e94e1a 100644
--- 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
diff --git a/perly.c.diff b/perly.c.diff
index 61b4cff..f31072a 100644
--- a/perly.c.diff
+++ b/perly.c.diff
@@ -113,15 +113,15 @@
 + 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