# and by AIX for creating libperl.a when -Dusershrplib is in effect,
# and by MacOS Classic.
#
-# reads global.sym, pp.sym, perlvars.h, intrpvar.h, thrdvar.h, config.h
+# reads global.sym, pp.sym, perlvars.h, intrpvar.h, config.h
# On OS/2 reads miniperl.map and the previous version of perl5.def as well
BEGIN { unshift @INC, "lib" }
my $config_sh = "config.sh";
my $config_h = "config.h";
-my $thrdvar_h = "thrdvar.h";
my $intrpvar_h = "intrpvar.h";
my $perlvars_h = "perlvars.h";
my $global_sym = "global.sym";
}
elsif ($PLATFORM =~ /^win(?:32|ce)$/ || $PLATFORM eq 'netware') {
$CCTYPE = "MSVC" unless defined $CCTYPE;
- foreach ($thrdvar_h, $intrpvar_h, $perlvars_h, $global_sym,
+ foreach ($intrpvar_h, $perlvars_h, $global_sym,
$pp_sym, $globvar_sym, $perlio_sym) {
s!^!..\\!;
}
}
elsif ($PLATFORM eq 'MacOS') {
- foreach ($thrdvar_h, $intrpvar_h, $perlvars_h, $global_sym,
+ foreach ($intrpvar_h, $perlvars_h, $global_sym,
$pp_sym, $globvar_sym, $perlio_sym) {
s!^!::!;
}
print STDERR "Defines: (" . join(' ', sort keys %define) . ")\n";
if ($PLATFORM =~ /^win(?:32|ce)$/) {
- (my $dll = ($define{PERL_DLL} || "perl59")) =~ s/\.dll$//i;
+ (my $dll = ($define{PERL_DLL} || "perl511")) =~ s/\.dll$//i;
print "LIBRARY $dll\n";
- print "DESCRIPTION 'Perl interpreter'\n";
+ # The DESCRIPTION module definition file statement is not supported
+ # by VC7 onwards.
+ if ($CCTYPE !~ /^MSVC7/ && $CCTYPE !~ /^MSVC8/ && $CCTYPE !~ /^MSVC9/) {
+ print "DESCRIPTION 'Perl interpreter'\n";
+ }
print "EXPORTS\n";
if ($define{PERL_IMPLICIT_SYS}) {
output_symbol("perl_get_host_info");
}
elsif ($PLATFORM eq 'netware') {
if ($FILETYPE eq 'def') {
- print "LIBRARY perl59\n";
+ print "LIBRARY perl511\n";
print "DESCRIPTION 'Perl interpreter for NetWare'\n";
print "EXPORTS\n";
}
unless ($define{'PERL_OLD_COPY_ON_WRITE'}) {
skip_symbols [qw(
Perl_sv_setsv_cow
- Perl_sv_release_IVX
)];
}
Perl_gp_dup
Perl_he_dup
Perl_mg_dup
+ Perl_mro_meta_dup
Perl_re_dup
Perl_sv_dup
Perl_rvpv_dup
Perl_sharedsv_unlock
Perl_stashpv_hvname_match
Perl_regdupe_internal
+ Perl_newPADOP
)];
}
)];
}
+unless ($define{'PERL_DEBUG_READONLY_OPS'}) {
+ skip_symbols [qw(
+ PL_slab_count
+ PL_slabs
+ )];
+}
+
unless ($define{'THREADS_HAVE_PIDS'}) {
skip_symbols [qw(PL_ppid)];
}
)];
}
+unless ($define{'MULTIPLICITY'}) {
+ skip_symbols [qw(
+ PL_interp_size
+ PL_interp_size_5_10_0
+ )];
+}
+
+unless ($define{'PERL_GLOBAL_STRUCT'}) {
+ skip_symbols [qw(
+ PL_global_struct_size
+ )];
+}
+
unless ($define{'PERL_GLOBAL_STRUCT_PRIVATE'}) {
skip_symbols [qw(
PL_my_cxt_keys
# variables
if ($define{'MULTIPLICITY'}) {
- for my $f ($perlvars_h, $intrpvar_h, $thrdvar_h) {
+ for my $f ($perlvars_h, $intrpvar_h) {
my $glob = readvar($f, sub { "Perl_" . $_[1] . $_[2] . "_ptr" });
emit_symbols $glob;
}
my $glob = readvar($intrpvar_h);
emit_symbols $glob;
}
- unless ($define{'MULTIPLICITY'}) {
- my $glob = readvar($thrdvar_h);
- emit_symbols $glob;
- }
}
sub try_symbol {
try_symbol($symbol);
}
+try_symbol("init_Win32CORE") if $static_ext =~ /\bWin32CORE\b/;
+
# Now all symbols should be defined because
# next we are going to output them.