defined $PLATFORM || die "PLATFORM undefined, must be one of: @PLATFORM\n";
exists $PLATFORM{$PLATFORM} || die "PLATFORM must be one of: @PLATFORM\n";
-if ($PLATFORM eq 'win32' or $PLATFORM eq "aix") {
+if ($PLATFORM eq 'win32' or $PLATFORM eq 'wince' or $PLATFORM eq "aix") {
# Add the compile-time options that miniperl was built with to %define.
# On Win32 these are not the same options as perl itself will be built
# with since miniperl is built with a canned config (one of the win32/
# source files and header files and don't include any BUILDOPT's that
# the user might have chosen to disable because the canned configs are
# minimal configs that don't include any of those options.
- my $config = `$^X -Ilib -V`;
+ my $opts = ($PLATFORM eq 'wince' ? '-MCross' : ''); # for wince need Cross.pm to get Config.pm
+ my $config = `$^X $opts -Ilib -V`;
my($options) = $config =~ /^ Compile-time options: (.*?)\n^ \S/ms;
$options =~ s/\s+/ /g;
print STDERR "Options: ($options)\n";
PL_linestart
PL_modcount
PL_pending_ident
- PL_sortcxix
PL_sublex_info
PL_timesbuf
main
Perl_getenv_len
Perl_my_pclose
Perl_my_popen
+ Perl_my_sprintf
)];
}
else {
PL_linestart
PL_modcount
PL_pending_ident
- PL_sortcxix
PL_sublex_info
PL_timesbuf
PL_collation_ix
Perl_getenv_len
Perl_my_pclose
Perl_my_popen
+ Perl_my_sprintf
)];
}
elsif ($PLATFORM eq 'aix') {
PL_linestart
PL_modcount
PL_pending_ident
- PL_sortcxix
PL_sublex_info
PL_timesbuf
main
Perl_debprofdump
Perl_debstack
Perl_debstackptrs
+ Perl_pad_sv
Perl_sv_peek
PL_block_type
PL_watchaddr
)];
}
-unless ($define{'PERL_MALLOC_WRAP'}) {
- skip_symbols [qw(
- PL_memory_wrap
- )];
-}
-
if ($define{'PERL_USE_SAFE_PUTENV'}) {
skip_symbols [qw(
PL_use_safe_putenv
unless ($define{'PERL_IMPLICIT_CONTEXT'}) {
skip_symbols [qw(
+ PL_my_ctx_mutex
+ PL_my_cxt_index
+ PL_my_cxt_list
+ PL_my_cxt_size
Perl_croak_nocontext
Perl_die_nocontext
Perl_deb_nocontext
Perl_sv_setpvf_nocontext
Perl_sv_catpvf_mg_nocontext
Perl_sv_setpvf_mg_nocontext
+ Perl_my_cxt_init
)];
}
Perl_gv_SVadd
)];
}
+if ($define{'SPRINTF_RETURNS_STRLEN'}) {
+ skip_symbols [qw(
+ Perl_my_sprintf
+ )];
+}
+unless ($define{'PERL_USES_PL_PIDSTATUS'}) {
+ skip_symbols [qw(
+ Perl_pidgone
+ PL_pidstatus
+ )];
+}
+
+unless ($define{'PERL_TRACK_MEMPOOL'}) {
+ skip_symbols [qw(
+ PL_memory_debug_header
+ )];
+}
unless ($define{'d_mmap'}) {
skip_symbols [qw(