diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-27 15:08:06 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-27 15:08:06 +0000 |
| commit | ac6bedeafc71cb65cb2bb8b5b5b55f9049c21101 (patch) | |
| tree | 230d4c7a343f250b506658bf941a95a823dc6791 /makedef.pl | |
| parent | 1f6995f0a0a7af0be70f8cfe4c6900a6717c7a66 (diff) | |
| download | perl-ac6bedeafc71cb65cb2bb8b5b5b55f9049c21101.tar.gz | |
Avoid PL_OpPtr et al getting unnecessarily (when not used)
into perl.exp in AIX.
p4raw-id: //depot/perl@14894
Diffstat (limited to 'makedef.pl')
| -rw-r--r-- | makedef.pl | 24 |
1 files changed, 18 insertions, 6 deletions
diff --git a/makedef.pl b/makedef.pl index b75eff987e..8dc1f14522 100644 --- a/makedef.pl +++ b/makedef.pl @@ -116,14 +116,16 @@ close(CFG); # perl.h logic duplication begins +if ($define{PERL_IMPLICIT_SYS}) { + $define{PL_OP_SLAB_ALLOC} = 1; +} + if ($define{USE_ITHREADS}) { if (!$define{MULTIPLICITY}) { $define{MULTIPLICITY} = 1; } } -my $sym_ord = 0; - $define{PERL_IMPLICIT_CONTEXT} ||= $define{USE_ITHREADS} || $define{USE_5005THREADS} || @@ -131,6 +133,8 @@ $define{PERL_IMPLICIT_CONTEXT} ||= # perl.h logic duplication ends +my $sym_ord = 0; + if ($PLATFORM eq 'win32') { warn join(' ',keys %define)."\n"; print "LIBRARY Perl57\n"; @@ -139,7 +143,7 @@ if ($PLATFORM eq 'win32') { if ($define{PERL_IMPLICIT_SYS}) { output_symbol("perl_get_host_info"); output_symbol("perl_alloc_override"); - output_symbol("perl_clone_host"); + output_symbol("perl_clone_host"); } } elsif ($PLATFORM eq 'os2') { @@ -187,9 +191,9 @@ elsif ($PLATFORM eq 'netware') { print "EXPORTS\n"; } if ($define{PERL_IMPLICIT_SYS}) { - output_symbol("perl_get_host_info"); - output_symbol("perl_alloc_override"); - output_symbol("perl_clone_host"); + output_symbol("perl_get_host_info"); + output_symbol("perl_alloc_override"); + output_symbol("perl_clone_host"); } } @@ -613,6 +617,14 @@ unless ($define{'FAKE_THREADS'}) { skip_symbols [qw(PL_curthr)]; } +unless ($define{'PL_OP_SLAB_ALLOC'}) { + skip_symbols [qw( + PL_OpPtr + PL_OpSlab + PL_OpSpace + )]; +} + sub readvar { my $file = shift; my $proc = shift || sub { "PL_$_[2]" }; |