diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-15 18:59:23 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-15 18:59:23 +0000 |
| commit | 2dfaf5d7c0ee501e219e1e29a78023eaad716e1b (patch) | |
| tree | dcdb4a2a52666675f8f1cc45744381c74941fb1c /makedef.pl | |
| parent | 88cb3de1190a9c7cb0c9eac7e530563ff68bf2a4 (diff) | |
| download | perl-2dfaf5d7c0ee501e219e1e29a78023eaad716e1b.tar.gz | |
Retract #17486: OS/2 didn't like it.
p4raw-id: //depot/perl@17559
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"; |