{
print "LIBRARY Perl\n";
print "DESCRIPTION 'Perl interpreter, export autogenerated'\n";
- print "CODE LOADONCALL\n";
- print "DATA LOADONCALL NONSHARED MULTIPLE\n";
}
else
{
Perl_dump_pm
Perl_dump_sub
Perl_expectterm
-Perl_error_no
Perl_extralen
Perl_fetch_gv
Perl_fetch_io
Perl_regnarrate
Perl_regnaughty
Perl_regnpar
-Perl_regparse
+Perl_regcomp_parse
Perl_regprecomp
Perl_regprev
Perl_regprogram
Perl_regstartp
Perl_regtill
Perl_regxend
-Perl_rx
+Perl_regcomp_rx
Perl_same_dirent
Perl_saw_return
Perl_scan_const
{
my $global = readvar("../perlvars.h");
skip_symbols $global;
+ emit_symbols [qw(Perl_GetVars)];
+ emit_symbols [qw(Perl_Vars Perl_VarsPtr)] unless $CCTYPE eq 'GCC';
}
unless ($define{'DEBUGGING'})
# doesn't hurt to include them anyway.
# these don't have Perl prefix
-if ($define{'PERL_GLOBAL_STRUCT'})
- {
- emit_symbol( ($CCTYPE eq 'GCC') ? 'Perl_GetVars' : 'Perl_VarsPtr')
- }
-else
+unless ($define{'PERL_GLOBAL_STRUCT'})
{
my $glob = readvar("../perlvars.h");
emit_symbols $glob;
win32_rmdir
win32_chdir
win32_flock
+win32_execv
win32_execvp
win32_htons
win32_ntohs
win32_ioctl
win32_utime
win32_wait
+win32_waitpid
+win32_kill
win32_str_os_error
Perl_win32_init
Perl_init_os_extras