if ($define{PERL_IMPLICIT_SYS}) {
output_symbol("perl_get_host_info");
output_symbol("perl_alloc_override");
+ output_symbol("perl_clone_host");
}
}
elsif ($PLATFORM eq 'os2') {
if ($define{PERL_IMPLICIT_SYS}) {
output_symbol("perl_get_host_info");
output_symbol("perl_alloc_override");
+ output_symbol("perl_clone_host");
}
}
my_flock
my_rmdir
my_mkdir
+ my_getpwuid
+ my_getpwnam
+ my_getpwent
+ my_setpwent
+ my_endpwent
+ setgrent
+ endgrent
+ getgrent
malloc_mutex
threads_mutex
nthreads
init_PMWIN_entries
PMWIN_entries
Perl_hab_GET
+ loadByOrdinal
+ pExtFCN
)]);
}
elsif ($PLATFORM eq 'MacOS') {
)];
}
+unless ($define{'USE_REENTRANT_API'}) {
+ skip_symbols [qw(
+ PL_reentrant_buffer
+ )];
+}
+
if ($define{'MYMALLOC'}) {
emit_symbols [qw(
Perl_dump_mstats
Perl_get_mstats
- Perl_malloc
- Perl_mfree
- Perl_realloc
- Perl_calloc
Perl_strdup
Perl_putenv
)];
PL_malloc_mutex
Perl_dump_mstats
Perl_get_mstats
- Perl_malloc
- Perl_mfree
- Perl_realloc
- Perl_calloc
Perl_malloced_size
)];
}
skip_symbols [qw(
PL_ptr_table
PL_op_mutex
+ PL_regex_pad
+ PL_regex_padav
Perl_dirp_dup
Perl_cx_dup
Perl_si_dup
sub try_symbol {
my $symbol = shift;
- return if $symbol !~ /^[A-Za-z]/;
+ return if $symbol !~ /^[A-Za-z_]/;
return if $symbol =~ /^\#/;
$symbol =~s/\r//g;
chomp($symbol);
$export{$symbol} = 1;
}
+my $sym_ord = 0;
+
sub output_symbol {
my $symbol = shift;
$symbol = $bincompat5005{$symbol}
# }
}
elsif ($PLATFORM eq 'os2') {
- print qq( "$symbol"\n);
+ printf qq( %-31s \@%s\n), qq("$symbol"), ++$sym_ord;
}
elsif ($PLATFORM eq 'aix' || $PLATFORM eq 'MacOS') {
print "$symbol\n";