{
print "LIBRARY Perl\n";
print "DESCRIPTION 'Perl interpreter, export autogenerated'\n";
- print "CODE LOADONCALL\n";
- print "DATA LOADONCALL NONSHARED MULTIPLE\n";
}
else
{
Perl_realloc
Perl_calloc)];
}
+else
+ {
+ skip_symbols [qw(
+ Perl_malloced_size)];
+ }
unless ($define{'USE_THREADS'})
{
{
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
+win32_opendir
+win32_readdir
+win32_telldir
+win32_seekdir
+win32_rewinddir
+win32_closedir
Perl_win32_init
Perl_init_os_extras
Perl_getTHR