# 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};
Perl_debprofdump
Perl_debstack
Perl_debstackptrs
- Perl_runops_debug
Perl_sv_peek
PL_block_type
+ PL_debug_pad
PL_watchaddr
PL_watchok
)];
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
my @layer_syms = qw(
PerlIOBase_clearerr
PerlIOBase_close
+ PerlIOBase_dup
PerlIOBase_eof
PerlIOBase_error
PerlIOBase_fileno
- PerlIOBase_setlinebuf
PerlIOBase_pushed
PerlIOBase_read
+ PerlIOBase_setlinebuf
PerlIOBase_unread
PerlIOBuf_bufsiz
PerlIOBuf_fill
PerlIOBuf_tell
PerlIOBuf_unread
PerlIOBuf_write
- PerlIO_define_layer
+ PerlIO_allocate
PerlIO_arg_fetch
+ PerlIO_define_layer
PerlIO_pending
- PerlIO_allocate
PerlIO_push
+ PerlIO_sv_dup
PerlIO_unread
+ PL_def_layerlist
+ PL_known_layers
+ PL_perlio
);
if ($define{'USE_PERLIO'}) {
# 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;
win32_getpid
win32_crypt
win32_dynaload
-
+ win32_get_childenv
+ win32_free_childenv
+ win32_clearenv
+ win32_get_childdir
+ win32_free_childdir
win32_stdin
win32_stdout
win32_stderr
nw_setnetent
nw_setprotoent
nw_setservent
+ nw_setsockopt
nw_shutdown
nw_crypt
nw_execvp
1;
__DATA__
# extra globals not included above.
+Perl_cxinc
perl_alloc
perl_alloc_using
perl_clone
perl_free
perl_parse
perl_run
-PerlIO_define_layer
-PerlIOBuf_set_ptrcnt
-PerlIOBuf_get_cnt
-PerlIOBuf_get_ptr
-PerlIOBuf_bufsiz
PerlIOBase_clearerr
-PerlIOBase_setlinebuf
+PerlIOBase_close
+PerlIOBase_dup
+PerlIOBase_eof
+PerlIOBase_error
+PerlIOBase_fileno
PerlIOBase_pushed
PerlIOBase_read
+PerlIOBase_setlinebuf
PerlIOBase_unread
-PerlIOBase_error
-PerlIOBase_eof
-PerlIOBuf_tell
-PerlIOBuf_seek
-PerlIOBuf_write
-PerlIOBuf_unread
-PerlIOBuf_read
-PerlIOBuf_open
-PerlIOBase_fileno
-PerlIOBuf_pushed
+PerlIOBuf_bufsiz
PerlIOBuf_fill
PerlIOBuf_flush
-PerlIOBase_close
-PerlIO_define_layer
-PerlIO_pending
-PerlIO_unread
-PerlIO_push
+PerlIOBuf_get_cnt
+PerlIOBuf_get_ptr
+PerlIOBuf_open
+PerlIOBuf_pushed
+PerlIOBuf_read
+PerlIOBuf_seek
+PerlIOBuf_set_ptrcnt
+PerlIOBuf_tell
+PerlIOBuf_unread
+PerlIOBuf_write
PerlIO_allocate
-PerlIO_arg_fetch
PerlIO_apply_layers
-perlsio_binmode
+PerlIO_arg_fetch
PerlIO_binmode
+PerlIO_define_layer
+PerlIO_define_layer
+PerlIO_getpos
PerlIO_init
-PerlIO_tmpfile
+PerlIO_pending
+PerlIO_push
PerlIO_setpos
-PerlIO_getpos
-PerlIO_vsprintf
PerlIO_sprintf
+PerlIO_sv_dup
+PerlIO_tmpfile
+PerlIO_unread
+PerlIO_vsprintf
+perlsio_binmode