diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-17 21:10:16 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-07-17 21:10:16 +0000 |
| commit | d0e9614297270e80c731655f8aaa25c3c6570478 (patch) | |
| tree | 80f204b4ac5a4cb821c3dc969afd0f553619526d | |
| parent | 6f01c2088dfea58269cdd2488e9195f82cc55a32 (diff) | |
| download | perl-d0e9614297270e80c731655f8aaa25c3c6570478.tar.gz | |
Reintroduce #17486, but this time with Sebastian Wittmeier's
<Sebastian.Wittmeier@ginko.de> tweak, now OS/2 is happier
(affects only OS/2)
p4raw-id: //depot/perl@17613
| -rw-r--r-- | makedef.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/makedef.pl b/makedef.pl index f22b34dc1d..82000ae8bd 100644 --- a/makedef.pl +++ b/makedef.pl @@ -29,6 +29,16 @@ 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"; @@ -1138,6 +1148,7 @@ elsif ($PLATFORM eq 'os2') { @missing = grep { !exists $mapped{$_} } keys %export; + @missing = grep { !exists $exportperlmalloc{$_} } @missing; delete $export{$_} foreach @missing; } elsif ($PLATFORM eq 'MacOS') { @@ -1339,6 +1350,10 @@ sub output_symbol { elsif ($PLATFORM eq 'os2') { printf qq( %-31s \@%s\n), qq("$symbol"), $ordinal{$symbol} || ++$sym_ord; + if (exists $exportperlmalloc{$symbol}) { + printf qq( %-31s \@%s\n), + qq("$exportperlmalloc{$symbol}" = "$symbol"), ++$sym_ord; + } } elsif ($PLATFORM eq 'aix' || $PLATFORM eq 'MacOS') { print "$symbol\n"; |