This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
remove prehistoric XFree() gunk
authorGurusamy Sarathy <gsar@cpan.org>
Thu, 30 Sep 1999 09:03:48 +0000 (09:03 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Thu, 30 Sep 1999 09:03:48 +0000 (09:03 +0000)
p4raw-id: //depot/perl@4255

lib/ExtUtils/typemap
lib/ExtUtils/xsubpp

index d84435e..a34cd4f 100644 (file)
@@ -251,7 +251,7 @@ T_REFOBJ
 T_OPAQUE
        sv_setpvn($arg, (char *)&$var, sizeof($var));
 T_OPAQUEPTR
 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
 T_PACKED
        XS_pack_$ntype($arg, $var);
 T_PACKEDARRAY
index e5c7e09..a9004f6 100755 (executable)
@@ -1405,7 +1405,7 @@ sub generate_output {
 
     $type = TidyType($type) ;
     if ($type =~ /^array\(([^,]*),(.*)\)/) {
 
     $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
            print "\tSvSETMAGIC($arg);\n" if $do_setmagic;
     } else {
            blurt("Error: '$type' not in typemap"), return