open(CFG,$config_h) || die "Cannot open $config_h: $!\n";
while (<CFG>) {
$define{$1} = 1 if /^\s*#\s*define\s+(MYMALLOC)\b/;
- $define{$1} = 1 if /^\s*#\s*define\s+(USE_THREADS)\b/;
+ $define{$1} = 1 if /^\s*#\s*define\s+(USE_5005THREADS)\b/;
+ $define{$1} = 1 if /^\s*#\s*define\s+(USE_ITHREADS)\b/;
$define{$1} = 1 if /^\s*#\s*define\s+(USE_PERLIO)\b/;
$define{$1} = 1 if /^\s*#\s*define\s+(MULTIPLICITY)\b/;
$define{$1} = 1 if /^\s*#\s*define\s+(PERL_BINCOMPAT_5005)\b/;
# exit(0);
}
else {
- if ($CCTYPE ne 'GCC') {
- print "LIBRARY Perl\n";
- print "DESCRIPTION 'Perl interpreter, export autogenerated'\n";
- }
- else {
- $define{'PERL_GLOBAL_STRUCT'} = 1;
- $define{'MULTIPLICITY'} = 1;
- }
+ print "LIBRARY Perl\n";
+ print "DESCRIPTION 'Perl interpreter, export autogenerated'\n";
print "EXPORTS\n";
}
}
Perl_realloc
Perl_calloc
)];
+ if ($define{'USE_5005THREADS'} || $define{'USE_ITHREADS'}) {
+ emit_symbols [qw(
+ PL_malloc_mutex
+ )];
+ }
}
else {
skip_symbols [qw(
)];
}
-unless ($define{'USE_THREADS'}) {
+unless ($define{'USE_5005THREADS'}) {
skip_symbols [qw(
PL_thr_key
PL_sv_mutex
PL_strtab_mutex
PL_svref_mutex
- PL_malloc_mutex
PL_cred_mutex
PL_eval_mutex
PL_eval_cond
unless ($define{'PERL_IMPLICIT_SYS'}) {
skip_symbols [qw(
perl_alloc_using
+ perl_clone_using
)];
}
return \@syms;
}
-if ($define{'USE_THREADS'} || $define{'MULTIPLICITY'}) {
+if ($define{'USE_5005THREADS'} || $define{'MULTIPLICITY'}) {
my $thrd = readvar($thrdvar_h);
skip_symbols $thrd;
}
my $glob = readvar($intrpvar_h);
emit_symbols $glob;
}
- unless ($define{'MULTIPLICITY'} || $define{'USE_THREADS'}) {
+ unless ($define{'MULTIPLICITY'} || $define{'USE_5005THREADS'}) {
my $glob = readvar($thrdvar_h);
emit_symbols $glob;
}
# extra globals not included above.
perl_alloc
perl_alloc_using
+perl_clone
+perl_clone_using
perl_construct
perl_destruct
perl_free