elsif ($PLATFORM =~ /^win(?:32|ce)$/ || $PLATFORM eq 'netware') {
$CCTYPE = "MSVC" unless defined $CCTYPE;
foreach ($thrdvar_h, $intrpvar_h, $perlvars_h, $global_sym,
- $pp_sym, $globvar_sym, $perlio_sym) {
+ $pp_sym, $globvar_sym, $perlio_sym) {
s!^!..\\!;
}
}
elsif ($PLATFORM eq 'MacOS') {
foreach ($thrdvar_h, $intrpvar_h, $perlvars_h, $global_sym,
- $pp_sym, $globvar_sym, $perlio_sym) {
+ $pp_sym, $globvar_sym, $perlio_sym) {
s!^!::!;
}
}
$_ = $1;
$define{$1} = 1 while /-D(\w+)/g;
}
+ if (/^(d_(?:mmap|sigaction))='(.+)'$/) {
+ $define{$1} = $2;
+ }
if ($PLATFORM eq 'os2') {
$CONFIG_ARGS = $1 if /^config_args='(.+)'$/;
$ARCHNAME = $1 if /^archname='(.+)'$/;
PL_block_type
PL_watchaddr
PL_watchok
+ PL_watch_pvx
+ )];
+}
+
+if ($define{'PERL_IMPLICIT_CONTEXT'}) {
+ skip_symbols [qw(
+ PL_sig_sv
)];
}
)];
}
-if ($define{'PERL_MALLOC_WRAP'}) {
- emit_symbols [qw(
+unless ($define{'PERL_MALLOC_WRAP'}) {
+ skip_symbols [qw(
PL_memory_wrap
)];
}
unless ($define{'USE_ITHREADS'}) {
skip_symbols [qw(
PL_ptr_table
+ PL_pte_root
+ PL_pte_arenaroot
PL_op_mutex
PL_regex_pad
PL_regex_padav
+ PL_shared_hek_table
PL_sharedsv_space
PL_sharedsv_space_mutex
PL_dollarzero_mutex
Perl_re_dup
Perl_sv_dup
Perl_rvpv_dup
+ Perl_hek_dup
Perl_sys_intern_dup
Perl_ptr_table_clear
Perl_ptr_table_fetch
skip_symbols [qw(PL_ppid)];
}
+unless ($define{'PERL_NEED_APPCTX'}) {
+ skip_symbols [qw(
+ PL_appctx
+ )];
+}
+
+unless ($define{'PERL_NEED_TIMESBASE'}) {
+ skip_symbols [qw(
+ PL_timesbase
+ )];
+}
+
+unless ($define{'d_mmap'}) {
+ skip_symbols [qw(
+ PL_mmap_page_size
+ )];
+}
+
+if ($define{'d_sigaction'}) {
+ skip_symbols [qw(
+ PL_sig_trapped
+ )];
+}
+
+if ($^O ne 'vms') {
+ # VMS does its own thing for these symbols.
+ skip_symbols [qw(PL_sig_handlers_initted
+ PL_sig_ignoring
+ PL_sig_defaulting)];
+}
+
sub readvar {
my $file = shift;
my $proc = shift || sub { "PL_$_[2]" };
my @syms;
while (<VARS>) {
# All symbols have a Perl_ prefix because that's what embed.h
- # sticks in front of them.
- push(@syms, &$proc($1,$2,$3)) if (/\bPERLVAR(A?I?C?)\(([IGT])(\w+)/);
+ # sticks in front of them. The A?I?S?C? is strictly speaking
+ # wrong.
+ push(@syms, &$proc($1,$2,$3)) if (/\bPERLVAR(A?I?S?C?)\(([IGT])(\w+)/);
}
close(VARS);
return \@syms;
skip_symbols $global;
emit_symbol('Perl_GetVars');
emit_symbols [qw(PL_Vars PL_VarsPtr)] unless $CCTYPE eq 'GCC';
+} else {
+ skip_symbols [qw(Perl_init_global_struct Perl_free_global_struct)];
}
# functions from *.sym files
if ($define{'USE_SFIO'}) {
# Old legacy non-stdio "PerlIO"
skip_symbols \@layer_syms;
+ skip_symbols [qw(perlsio_binmode)];
# SFIO defines most of the PerlIO routines as macros
# So undo most of what $perlio_sym has just done - d'oh !
# Perhaps it would be better to list the ones which do exist
else {
# PerlIO with layers - export implementation
emit_symbols \@layer_syms;
+ emit_symbols [qw(perlsio_binmode)];
}
} else {
# -Uuseperlio
# Skip the PerlIO layer symbols - although
- # nothing should have exported them any way
+ # nothing should have exported them anyway.
skip_symbols \@layer_syms;
+ skip_symbols [qw(perlsio_binmode)];
skip_symbols [qw(PL_def_layerlist PL_known_layers PL_perlio)];
# Also do NOT add abstraction symbols from $perlio_sym
PerlIO_sv_dup
PerlIO_tmpfile
PerlIO_vsprintf
-perlsio_binmode