my $CCTYPE;
my %bincompat5005 =
- (Perl_call_argv => "perl_call_argv",
+ (
+ Perl_call_atexit => "perl_atexit",
+ Perl_eval_sv => "perl_eval_sv",
+ Perl_eval_pv => "perl_eval_pv",
+ Perl_call_argv => "perl_call_argv",
Perl_call_method => "perl_call_method",
Perl_call_pv => "perl_call_pv",
Perl_call_sv => "perl_call_sv",
Perl_malloc => "malloc",
Perl_mfree => "free",
Perl_realloc => "realloc",
- Perl_calloc => "calloc",);
+ Perl_calloc => "calloc",
+ );
my $bincompat5005 = join("|", keys %bincompat5005);
# print STDERR "'$dll' <= '$define{PERL_DLL}'\n";
print <<"---EOP---";
LIBRARY '$dll' INITINSTANCE TERMINSTANCE
-DESCRIPTION '\@#perl5-porters\@perl.org:$v#\@ Perl interpreter, configured as $CONFIG_ARGS'
+DESCRIPTION '\@#perl5-porters\@perl.org:$v#\@ Perl interpreter'
STACKSIZE 32768
CODE LOADONCALL
DATA LOADONCALL NONSHARED MULTIPLE
Perl_safexrealloc
Perl_same_dirent
Perl_unlnk
+ Perl_sys_intern_clear
Perl_sys_intern_dup
+ Perl_sys_intern_init
PL_cryptseen
PL_opsave
PL_statusvalue_vms
)];
}
-unless ($define{'USE_5005THREADS'}) {
+unless ($define{'USE_5005THREADS'} || $define{'USE_ITHREADS'}) {
skip_symbols [qw(
PL_thr_key
+ )];
+}
+
+unless ($define{'USE_5005THREADS'}) {
+ skip_symbols [qw(
PL_sv_mutex
PL_strtab_mutex
PL_svref_mutex
PL_cred_mutex
PL_eval_mutex
+ PL_fdpid_mutex
+ PL_sv_lock_mutex
PL_eval_cond
PL_eval_owner
PL_threads_mutex
Perl_find_threadsv
Perl_unlock_condpair
Perl_magic_mutexfree
+ Perl_sv_lock
)];
}