X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perly.c;h=8e94e1aa2a39932c970e65493623e3da87faffab;hb=d1bf51ddeaafef1b94a1f5c011bdefbb8ebf5604;hp=735330a73db9d44fe101c5fe829b99c0d6eddc58;hpb=760ac839baf413929cd31cc32ffd6dba6b781a81;p=p5sagit%2Fp5-mst-13.2.git

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