diff options
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/makedef.pl b/makedef.pl index 4e211d617f..9b1f9773c0 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"; |