From 4bd3d0834986b2de5ee920a43735f0b9a242127c Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Thu, 30 Sep 1999 09:03:48 +0000 Subject: remove prehistoric XFree() gunk p4raw-id: //depot/perl@4255 --- lib/ExtUtils/typemap | 2 +- lib/ExtUtils/xsubpp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/ExtUtils') diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap index d84435e50f..a34cd4f9ea 100644 --- a/lib/ExtUtils/typemap +++ b/lib/ExtUtils/typemap @@ -251,7 +251,7 @@ T_REFOBJ T_OPAQUE sv_setpvn($arg, (char *)&$var, sizeof($var)); T_OPAQUEPTR - sv_setpvn($arg, (char *)$var, sizeof(*$var)), XFree((char *)$var); + sv_setpvn($arg, (char *)$var, sizeof(*$var)); T_PACKED XS_pack_$ntype($arg, $var); T_PACKEDARRAY diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index e5c7e0989e..a9004f6505 100755 --- a/lib/ExtUtils/xsubpp +++ b/lib/ExtUtils/xsubpp @@ -1405,7 +1405,7 @@ sub generate_output { $type = TidyType($type) ; if ($type =~ /^array\(([^,]*),(.*)\)/) { - print "\tsv_setpvn($arg, (char *)$var, $2 * sizeof($1)), XFree((char *)$var);\n"; + print "\tsv_setpvn($arg, (char *)$var, $2 * sizeof($1));\n"; print "\tSvSETMAGIC($arg);\n" if $do_setmagic; } else { blurt("Error: '$type' not in typemap"), return -- cgit v1.2.1