# perl.h logic duplication begins
if ($define{USE_ITHREADS}) {
- if (!$define{MULTIPLICITY} && !$define{PERL_OBJECT}) {
+ if (!$define{MULTIPLICITY}) {
$define{MULTIPLICITY} = 1;
}
}
$define{USE_5005THREADS} ||
$define{MULTIPLICITY} ;
-if ($define{PERL_CAPI}) {
- delete $define{PERL_OBJECT};
- $define{MULTIPLICITY} = 1;
- $define{PERL_IMPLICIT_CONTEXT} = 1;
- $define{PERL_IMPLICIT_SYS} = 1;
-}
-
-if ($define{PERL_OBJECT}) {
- $define{PERL_IMPLICIT_CONTEXT} = 1;
- $define{PERL_IMPLICIT_SYS} = 1;
-}
-
# perl.h logic duplication ends
if ($PLATFORM eq 'win32') {
foreach my $symbol (@$list) {
my $skipsym = $symbol;
# XXX hack
- if ($define{PERL_OBJECT} || $define{MULTIPLICITY}) {
+ if ($define{MULTIPLICITY}) {
$skipsym =~ s/^Perl_[GIT](\w+)_ptr$/PL_$1/;
}
emit_symbol($symbol) unless exists $skip{$skipsym};
}
}
-skip_symbols [qw(Perl_custom_op_name Perl_custom_op_desc PL_custom_op_descs PL_custom_op_names)] unless $define{'PERL_CUSTOM_OPS'};
if ($PLATFORM eq 'win32') {
skip_symbols [qw(
Perl_my_chsize
Perl_same_dirent
Perl_setenv_getix
+ Perl_sortsv
Perl_unlnk
Perl_watch
Perl_safexcalloc
PL_op_mutex
PL_regex_pad
PL_regex_padav
+ PL_sharedsv_space
+ PL_sharedsv_space_mutex
Perl_dirp_dup
Perl_cx_dup
Perl_si_dup
# variables
-if ($define{'PERL_OBJECT'} || $define{'MULTIPLICITY'}) {
+if ($define{'MULTIPLICITY'}) {
for my $f ($perlvars_h, $intrpvar_h, $thrdvar_h) {
my $glob = readvar($f, sub { "Perl_" . $_[1] . $_[2] . "_ptr" });
emit_symbols $glob;
nw_setnetent
nw_setprotoent
nw_setservent
+ nw_setsockopt
nw_shutdown
nw_crypt
nw_execvp
perl_free
perl_parse
perl_run
+Perl_cxinc
PerlIO_define_layer
PerlIOBuf_set_ptrcnt
PerlIOBuf_get_cnt