From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 15 Jul 2002 18:59:23 +0000 (+0000)
Subject: Retract #17486: OS/2 didn't like it.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2dfaf5d7c0ee501e219e1e29a78023eaad716e1b;p=p5sagit%2Fp5-mst-13.2.git

Retract #17486: OS/2 didn't like it.

p4raw-id: //depot/perl@17559
---

diff --git a/makedef.pl b/makedef.pl
index 4e211d6..9b1f977 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -29,16 +29,6 @@ my %PLATFORM;
 defined $PLATFORM || die "PLATFORM undefined, must be one of: @PLATFORM\n";
 exists $PLATFORM{$PLATFORM} || die "PLATFORM must be one of: @PLATFORM\n";
 
-my %exportperlmalloc =
-    (
-       Perl_malloc		=>	"malloc",
-       Perl_mfree		=>	"free",
-       Perl_realloc		=>	"realloc",
-       Perl_calloc		=>	"calloc",
-    );
-
-my $exportperlmalloc = $PLATFORM eq 'os2';
-
 my $config_sh   = "config.sh";
 my $config_h    = "config.h";
 my $thrdvar_h   = "thrdvar.h";
@@ -1141,7 +1131,6 @@ elsif ($PLATFORM eq 'os2') {
 
     @missing = grep { !exists $mapped{$_} }
 		    keys %export;
-    @missing = grep { !exists $exportperlmalloc{$_} } @missing;
     delete $export{$_} foreach @missing;
 }
 elsif ($PLATFORM eq 'MacOS') {
@@ -1315,8 +1304,6 @@ sub emit_symbol {
 
 sub output_symbol {
     my $symbol = shift;
-    $symbol = $exportperlmalloc{$symbol}
-        if $exportperlmalloc and exists $exportperlmalloc{$symbol};
     if ($PLATFORM =~ /^win(?:32|ce)$/) {
 	$symbol = "_$symbol" if $CCTYPE eq 'BORLAND';
 	print "\t$symbol\n";