Move OP prototypes from pp_proto.h to proto.h
authorNicholas Clark <nick@ccl4.org>
Mon, 27 Sep 2010 16:25:24 +0000 (17:25 +0100)
committerNicholas Clark <nick@ccl4.org>
Mon, 27 Sep 2010 16:29:06 +0000 (17:29 +0100)
Make embed.pl fully responsible for generating prototypes and embedding macros
for pp_* and ck_* functions, placing them in embed.h and proto.h
opcode.pl no longer generates pp_proto.h
Remove the (effectively) duplicate explicit entries for (all but 2) ck_*
functions from embed.fnc

We can't actually remove pp_proto.h from the distribution *yet*, as
ExtUtils::MM_Unix and ExtUtils::MM_VMS have hardcoded lists of the installed
headers. Once this is resolved, we can.

12 files changed:
Cross/Makefile-cross-SH
MANIFEST
Makefile.SH
Makefile.micro
embed.fnc
embed.h
embed.pl
op.c
opcode.pl
pp_proto.h
proto.h
vms/descrip_mms.template

index 79bd165..a3cd014 100644 (file)
@@ -864,7 +864,7 @@ CHMOD_W = chmod +w
 #                      perlapi.h perlapi.c 
 # [* embed.pl needs pp.sym generated by opcode.pl! *]
 #      keywords.pl:    keywords.h
-#      opcode.pl:      opcode.h opnames.h pp_proto.h pp.sym
+#      opcode.pl:      opcode.h opnames.h pp.sym
 #      regcomp.pl:     regnodes.h
 #      warnings.pl:    warnings.h lib/warnings.pm
 # The correct versions should be already supplied with the perl kit,
@@ -874,7 +874,7 @@ CHMOD_W = chmod +w
 # with your existing copy of perl
 # (make regen_headers is kept for backwards compatibility)
 
-AUTOGEN_FILES = keywords.h opcode.h opnames.h pp_proto.h pp.sym proto.h \
+AUTOGEN_FILES = keywords.h opcode.h opnames.h pp.sym proto.h \
                embed.h embedvar.h global.sym \
                perlapi.h perlapi.c regnodes.h \
                warnings.h lib/warnings.pm
@@ -980,7 +980,7 @@ _mopup:
        -rm -f perl.Addrs perl.Counts t/perl.Addrs t/perl.Counts *perl.xok
        -rm -f cygwin.c libperl*.def libperl*.dll cygperl*.dll *.exe.stackdump
        -rm -f perl$(EXE_EXT) miniperl$(EXE_EXT) $(LIBPERL) libperl.* microperl
-       -rm -f opcode.h-old opnames.h-old pp.sym-old pp_proto.h-old
+       -rm -f opcode.h-old opnames.h-old pp.sym-old
        -rm -f config.over
 
 # Do not 'make _tidy' directly.
index 65ceec5..172b7c3 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -4206,7 +4206,7 @@ pp_ctl.c                  Push/Pop code for control flow
 pp.h                           Push/Pop code defs
 pp_hot.c                       Push/Pop code for heavily used opcodes
 pp_pack.c                      Push/Pop code for pack/unpack
-pp_proto.h                     C++ definitions for Push/Pop code
+pp_proto.h                     Not needed, but EU::MM currently references it
 pp_sort.c                      Push/Pop code for sort
 pp.sym                         Push/Pop code symbols
 pp_sys.c                       Push/Pop code for system interaction
index fe7326a..0a8a0ae 100755 (executable)
@@ -1124,7 +1124,7 @@ CHMOD_W = chmod +w
 #                      perlapi.h perlapi.c 
 # [* embed.pl needs pp.sym generated by opcode.pl! *]
 #      keywords.pl:    keywords.h
-#      opcode.pl:      opcode.h opnames.h pp_proto.h pp.sym
+#      opcode.pl:      opcode.h opnames.h pp.sym
 #      regcomp.pl:     regnodes.h
 #      warnings.pl:    warnings.h lib/warnings.pm
 # The correct versions should be already supplied with the perl kit,
@@ -1134,7 +1134,7 @@ CHMOD_W = chmod +w
 # with your existing copy of perl
 # (make regen_headers is kept for backwards compatibility)
 
-AUTOGEN_FILES = keywords.h opcode.h opnames.h pp_proto.h pp.sym proto.h \
+AUTOGEN_FILES = keywords.h opcode.h opnames.h pp.sym proto.h \
                embed.h embedvar.h global.sym \
                perlapi.h perlapi.c regnodes.h \
                warnings.h lib/warnings.pm
@@ -1233,7 +1233,7 @@ _mopup:
        -rm -f perl.Addrs perl.Counts t/perl.Addrs t/perl.Counts *perl.xok
        -rm -f cygwin.c libperl*.def libperl*.dll cygperl*.dll *.exe.stackdump
        -rm -f $(PERL_EXE) $(MINIPERL_EXE) $(LIBPERL) libperl.* microperl
-       -rm -f opcode.h-old opnames.h-old pp.sym-old pp_proto.h-old
+       -rm -f opcode.h-old opnames.h-old pp.sym-old
        -rm -f config.arch config.over $(DTRACE_H) runtests
 
 # Do not 'make _tidy' directly.
index 8611332..3528b93 100644 (file)
@@ -29,7 +29,7 @@ microperl:    $(O)
 H = av.h uconfig.h cop.h cv.h embed.h embedvar.h form.h gv.h handy.h \
        hv.h intrpvar.h iperlsys.h mg.h op.h opcode.h opnames.h pad.h \
        patchlevel.h perl.h perlsdio.h perlvars.h perly.h pp.h \
-       pp_proto.h proto.h reentr.h regexp.h scope.h sv.h \
+       proto.h reentr.h regexp.h scope.h sv.h \
        thread.h unixish.h utf8.h util.h uudmap.h warnings.h
 
 HE = $(H) EXTERN.h
index 3b51536..070d68b 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -172,7 +172,6 @@ END_EXTERN_C
 
 /* functions with flag 'n' should come before here */
 START_EXTERN_C
-#  include "pp_proto.h"
 XEop   |bool   |try_amagic_bin |int method|int flags
 XEop   |bool   |try_amagic_un  |int method|int flags
 Ap     |SV*    |amagic_call    |NN SV* left|NN SV* right|int method|int dir
@@ -1544,48 +1543,6 @@ s        |void   |unwind_handler_stack|NN const void *p
 #endif
 
 #if defined(PERL_IN_OP_C)
-: These are all indirectly referenced by globals.c. This is somewhat annoying.
-pR     |OP*    |ck_anoncode    |NN OP *o
-pR     |OP*    |ck_bitop       |NN OP *o
-pR     |OP*    |ck_concat      |NN OP *o
-pR     |OP*    |ck_defined     |NN OP *o
-pR     |OP*    |ck_delete      |NN OP *o
-pR     |OP*    |ck_die         |NN OP *o
-pR     |OP*    |ck_eof         |NN OP *o
-pR     |OP*    |ck_eval        |NN OP *o
-pR     |OP*    |ck_exec        |NN OP *o
-pR     |OP*    |ck_exists      |NN OP *o
-pR     |OP*    |ck_exit        |NN OP *o
-pR     |OP*    |ck_ftst        |NN OP *o
-pR     |OP*    |ck_fun         |NN OP *o
-pR     |OP*    |ck_glob        |NN OP *o
-pR     |OP*    |ck_grep        |NN OP *o
-pR     |OP*    |ck_index       |NN OP *o
-pR     |OP*    |ck_join        |NN OP *o
-pR     |OP*    |ck_lfun        |NN OP *o
-pR     |OP*    |ck_listiob     |NN OP *o
-pR     |OP*    |ck_match       |NN OP *o
-pR     |OP*    |ck_method      |NN OP *o
-pR     |OP*    |ck_null        |NN OP *o
-pR     |OP*    |ck_open        |NN OP *o
-pR     |OP*    |ck_readline    |NN OP *o
-pR     |OP*    |ck_repeat      |NN OP *o
-pR     |OP*    |ck_require     |NN OP *o
-pR     |OP*    |ck_return      |NN OP *o
-pR     |OP*    |ck_rfun        |NN OP *o
-pR     |OP*    |ck_rvconst     |NN OP *o
-pR     |OP*    |ck_sassign     |NN OP *o
-pR     |OP*    |ck_select      |NN OP *o
-pR     |OP*    |ck_shift       |NN OP *o
-pR     |OP*    |ck_sort        |NN OP *o
-pR     |OP*    |ck_spair       |NN OP *o
-pR     |OP*    |ck_split       |NN OP *o
-pR     |OP*    |ck_subr        |NN OP *o
-pR     |OP*    |ck_substr      |NN OP *o
-pR     |OP*    |ck_svconst     |NN OP *o
-pR     |OP*    |ck_trunc       |NN OP *o
-pR     |OP*    |ck_unpack      |NN OP *o
-pR     |OP*    |ck_each        |NN OP *o
 sRn    |bool   |is_handle_constructor|NN const OP *o|I32 numargs
 sR     |I32    |is_list_assignment|NULLOK const OP *o
 #  ifdef USE_ITHREADS
diff --git a/embed.h b/embed.h
index 11ca1cf..4ec5bc3 100644 (file)
--- a/embed.h
+++ b/embed.h
 #endif
 #if defined(PERL_IN_OP_C)
 #ifdef PERL_CORE
-#define ck_anoncode(a)         Perl_ck_anoncode(aTHX_ a)
-#define ck_bitop(a)            Perl_ck_bitop(aTHX_ a)
-#define ck_concat(a)           Perl_ck_concat(aTHX_ a)
-#define ck_defined(a)          Perl_ck_defined(aTHX_ a)
-#define ck_delete(a)           Perl_ck_delete(aTHX_ a)
-#define ck_die(a)              Perl_ck_die(aTHX_ a)
-#define ck_eof(a)              Perl_ck_eof(aTHX_ a)
-#define ck_eval(a)             Perl_ck_eval(aTHX_ a)
-#define ck_exec(a)             Perl_ck_exec(aTHX_ a)
-#define ck_exists(a)           Perl_ck_exists(aTHX_ a)
-#define ck_exit(a)             Perl_ck_exit(aTHX_ a)
-#define ck_ftst(a)             Perl_ck_ftst(aTHX_ a)
-#define ck_fun(a)              Perl_ck_fun(aTHX_ a)
-#define ck_glob(a)             Perl_ck_glob(aTHX_ a)
-#define ck_grep(a)             Perl_ck_grep(aTHX_ a)
-#define ck_index(a)            Perl_ck_index(aTHX_ a)
-#define ck_join(a)             Perl_ck_join(aTHX_ a)
-#define ck_lfun(a)             Perl_ck_lfun(aTHX_ a)
-#define ck_listiob(a)          Perl_ck_listiob(aTHX_ a)
-#define ck_match(a)            Perl_ck_match(aTHX_ a)
-#define ck_method(a)           Perl_ck_method(aTHX_ a)
-#define ck_null(a)             Perl_ck_null(aTHX_ a)
-#define ck_open(a)             Perl_ck_open(aTHX_ a)
-#define ck_readline(a)         Perl_ck_readline(aTHX_ a)
-#define ck_repeat(a)           Perl_ck_repeat(aTHX_ a)
-#define ck_require(a)          Perl_ck_require(aTHX_ a)
-#define ck_return(a)           Perl_ck_return(aTHX_ a)
-#define ck_rfun(a)             Perl_ck_rfun(aTHX_ a)
-#define ck_rvconst(a)          Perl_ck_rvconst(aTHX_ a)
-#define ck_sassign(a)          Perl_ck_sassign(aTHX_ a)
-#define ck_select(a)           Perl_ck_select(aTHX_ a)
-#define ck_shift(a)            Perl_ck_shift(aTHX_ a)
-#define ck_sort(a)             Perl_ck_sort(aTHX_ a)
-#define ck_spair(a)            Perl_ck_spair(aTHX_ a)
-#define ck_split(a)            Perl_ck_split(aTHX_ a)
-#define ck_subr(a)             Perl_ck_subr(aTHX_ a)
-#define ck_substr(a)           Perl_ck_substr(aTHX_ a)
-#define ck_svconst(a)          Perl_ck_svconst(aTHX_ a)
-#define ck_trunc(a)            Perl_ck_trunc(aTHX_ a)
-#define ck_unpack(a)           Perl_ck_unpack(aTHX_ a)
-#define ck_each(a)             Perl_ck_each(aTHX_ a)
 #define is_handle_constructor  S_is_handle_constructor
 #define is_list_assignment(a)  S_is_list_assignment(aTHX_ a)
 #endif
 #endif
 #  endif
 #endif
+#ifdef PERL_CORE
 #define ck_anoncode(a)         Perl_ck_anoncode(aTHX_ a)
 #define ck_bitop(a)            Perl_ck_bitop(aTHX_ a)
 #define ck_chdir(a)            Perl_ck_chdir(aTHX_ a)
 #define pp_wantarray()         Perl_pp_wantarray(aTHX)
 #define pp_warn()              Perl_pp_warn(aTHX)
 #define pp_xor()               Perl_pp_xor(aTHX)
+#endif
 
 #endif /* #ifndef PERL_NO_SHORT_NAMES */
 
index 2f2fde6..ab58493 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -119,6 +119,35 @@ while (<IN>) {
     push @embed, \@args;
 }
 
+open IN, 'pp.sym' or die $!;
+{
+    my %syms;
+
+    while (<IN>) {
+       s/[ \t]*#.*//;          # Delete comments.
+       if (/^\s*(\S+)\s*$/) {
+           my $sym = $1;
+           warn "duplicate symbol $sym while processing 'pp.sym' line $.\n"
+               if $syms{$sym}++;
+       }
+    }
+
+    foreach (sort keys %syms) {
+       s/^Perl_//;
+       if (/^ck_/) {
+           # These are all indirectly referenced by globals.c.
+           # This is somewhat annoying.
+           push @embed, ['pR', 'OP *', $_, 'NN OP *o'];
+       }
+       elsif (/^pp_/) {
+           push @embed, ['p', 'OP *', $_];
+       }
+       else {
+           warn "Illegal symbol '$_' in pp.sym";
+       }
+    }
+}
+
 # walk table providing an array of components in each line to
 # subroutine, printing the result
 sub walk_table (&@) {
@@ -303,26 +332,6 @@ sub write_protos {
 warn "$unflagged_pointers pointer arguments to clean up\n" if $unflagged_pointers;
 walk_table(\&write_global_sym, "global.sym", "# ex: set ro:\n");
 
-sub readsyms (\%$) {
-    my ($syms, $file) = @_;
-    local (*FILE, $_);
-    open(FILE, "< $file")
-       or die "embed.pl: Can't open $file: $!\n";
-    while (<FILE>) {
-       s/[ \t]*#.*//;          # Delete comments.
-       if (/^\s*(\S+)\s*$/) {
-           my $sym = $1;
-           warn "duplicate symbol $sym while processing $file line $.\n"
-               if exists $$syms{$sym};
-           $$syms{$sym} = 1;
-       }
-    }
-    close(FILE);
-}
-
-# Perl_pp_* and Perl_ck_* are in pp.sym
-readsyms my %ppsym, 'pp.sym';
-
 sub readvars(\%$$@) {
     my ($syms, $file,$pre,$keep_pre) = @_;
     local (*FILE, $_);
@@ -474,19 +483,6 @@ if ($ifdef_state) {
     print $em "#endif\n";
 }
 
-for $sym (sort keys %ppsym) {
-    $sym =~ s/^Perl_//;
-    if ($sym =~ /^ck_/) {
-       print $em hide("$sym(a)", "Perl_$sym(aTHX_ a)");
-    }
-    elsif ($sym =~ /^pp_/) {
-       print $em hide("$sym()", "Perl_$sym(aTHX)");
-    }
-    else {
-       warn "Illegal symbol '$sym' in pp.sym";
-    }
-}
-
 print $em <<'END';
 
 #endif /* #ifndef PERL_NO_SHORT_NAMES */
diff --git a/op.c b/op.c
index 983bf3d..c8c67f7 100644 (file)
--- a/op.c
+++ b/op.c
@@ -7779,6 +7779,7 @@ OP *
 Perl_ck_smartmatch(pTHX_ OP *o)
 {
     dVAR;
+    PERL_ARGS_ASSERT_CK_SMARTMATCH;
     if (0 == (o->op_flags & OPf_SPECIAL)) {
        OP *first  = cBINOPo->op_first;
        OP *second = first->op_sibling;
@@ -8684,6 +8685,7 @@ Perl_ck_svconst(pTHX_ OP *o)
 OP *
 Perl_ck_chdir(pTHX_ OP *o)
 {
+    PERL_ARGS_ASSERT_CK_CHDIR;
     if (o->op_flags & OPf_KIDS) {
        SVOP * const kid = (SVOP*)cUNOPo->op_first;
 
index 8879dd2..dca34cc 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -4,7 +4,6 @@
 #
 #    opcode.h
 #    opnames.h
-#    pp_proto.h
 #    pp.sym
 #
 # from information stored in the DATA section of this file, plus the
@@ -461,21 +460,9 @@ safer_close($on);
 rename_if_different $opcode_new, 'opcode.h';
 rename_if_different $opname_new, 'opnames.h';
 
-my $pp_proto_new = 'pp_proto.h-new';
 my $pp_sym_new  = 'pp.sym-new';
-
-my $pp = safer_open($pp_proto_new);
 my $ppsym = safer_open($pp_sym_new);
 
-print $pp <<"END";
-/* -*- buffer-read-only: t -*-
-   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
-   This file is built by opcode.pl from its data.  Any changes made here
-   will be lost!
-*/
-
-END
-
 print $ppsym <<"END";
 # -*- buffer-read-only: t -*-
 #
@@ -488,30 +475,23 @@ END
 
 
 for (sort keys %ckname) {
-    print $pp "PERL_CKDEF(Perl_$_)\n";
     print $ppsym "Perl_$_\n";
 #OP *\t", &tab(3,$_),"(OP* o);\n";
 }
 
-print $pp "\n\n";
-
 for (@ops) {
     next if /^i_(pre|post)(inc|dec)$/;
     next if /^custom$/;
-    print $pp "PERL_PPDEF(Perl_pp_$_)\n";
     print $ppsym "Perl_pp_$_\n";
 }
-print $pp "\n/* ex: set ro: */\n";
 print $ppsym "\n# ex: set ro:\n";
 
-safer_close($pp);
 safer_close($ppsym);
 
-rename_if_different $pp_proto_new, 'pp_proto.h';
 rename_if_different $pp_sym_new, 'pp.sym';
 
 END {
-  foreach ('opcode.h', 'opnames.h', 'pp_proto.h', 'pp.sym') {
+  foreach ('opcode.h', 'opnames.h', 'pp.sym') {
     1 while unlink "$_-old";
   }
 }
index d7da453..f0126bd 100644 (file)
@@ -1,414 +1,2 @@
-/* -*- buffer-read-only: t -*-
-   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
-   This file is built by opcode.pl from its data.  Any changes made here
-   will be lost!
-*/
-
-PERL_CKDEF(Perl_ck_anoncode)
-PERL_CKDEF(Perl_ck_bitop)
-PERL_CKDEF(Perl_ck_chdir)
-PERL_CKDEF(Perl_ck_concat)
-PERL_CKDEF(Perl_ck_defined)
-PERL_CKDEF(Perl_ck_delete)
-PERL_CKDEF(Perl_ck_die)
-PERL_CKDEF(Perl_ck_each)
-PERL_CKDEF(Perl_ck_eof)
-PERL_CKDEF(Perl_ck_eval)
-PERL_CKDEF(Perl_ck_exec)
-PERL_CKDEF(Perl_ck_exists)
-PERL_CKDEF(Perl_ck_exit)
-PERL_CKDEF(Perl_ck_ftst)
-PERL_CKDEF(Perl_ck_fun)
-PERL_CKDEF(Perl_ck_glob)
-PERL_CKDEF(Perl_ck_grep)
-PERL_CKDEF(Perl_ck_index)
-PERL_CKDEF(Perl_ck_join)
-PERL_CKDEF(Perl_ck_lfun)
-PERL_CKDEF(Perl_ck_listiob)
-PERL_CKDEF(Perl_ck_match)
-PERL_CKDEF(Perl_ck_method)
-PERL_CKDEF(Perl_ck_null)
-PERL_CKDEF(Perl_ck_open)
-PERL_CKDEF(Perl_ck_readline)
-PERL_CKDEF(Perl_ck_repeat)
-PERL_CKDEF(Perl_ck_require)
-PERL_CKDEF(Perl_ck_return)
-PERL_CKDEF(Perl_ck_rfun)
-PERL_CKDEF(Perl_ck_rvconst)
-PERL_CKDEF(Perl_ck_sassign)
-PERL_CKDEF(Perl_ck_select)
-PERL_CKDEF(Perl_ck_shift)
-PERL_CKDEF(Perl_ck_smartmatch)
-PERL_CKDEF(Perl_ck_sort)
-PERL_CKDEF(Perl_ck_spair)
-PERL_CKDEF(Perl_ck_split)
-PERL_CKDEF(Perl_ck_subr)
-PERL_CKDEF(Perl_ck_substr)
-PERL_CKDEF(Perl_ck_svconst)
-PERL_CKDEF(Perl_ck_trunc)
-PERL_CKDEF(Perl_ck_unpack)
-
-
-PERL_PPDEF(Perl_pp_null)
-PERL_PPDEF(Perl_pp_stub)
-PERL_PPDEF(Perl_pp_scalar)
-PERL_PPDEF(Perl_pp_pushmark)
-PERL_PPDEF(Perl_pp_wantarray)
-PERL_PPDEF(Perl_pp_const)
-PERL_PPDEF(Perl_pp_gvsv)
-PERL_PPDEF(Perl_pp_gv)
-PERL_PPDEF(Perl_pp_gelem)
-PERL_PPDEF(Perl_pp_padsv)
-PERL_PPDEF(Perl_pp_padav)
-PERL_PPDEF(Perl_pp_padhv)
-PERL_PPDEF(Perl_pp_padany)
-PERL_PPDEF(Perl_pp_pushre)
-PERL_PPDEF(Perl_pp_rv2gv)
-PERL_PPDEF(Perl_pp_rv2sv)
-PERL_PPDEF(Perl_pp_av2arylen)
-PERL_PPDEF(Perl_pp_rv2cv)
-PERL_PPDEF(Perl_pp_anoncode)
-PERL_PPDEF(Perl_pp_prototype)
-PERL_PPDEF(Perl_pp_refgen)
-PERL_PPDEF(Perl_pp_srefgen)
-PERL_PPDEF(Perl_pp_ref)
-PERL_PPDEF(Perl_pp_bless)
-PERL_PPDEF(Perl_pp_backtick)
-PERL_PPDEF(Perl_pp_glob)
-PERL_PPDEF(Perl_pp_readline)
-PERL_PPDEF(Perl_pp_rcatline)
-PERL_PPDEF(Perl_pp_regcmaybe)
-PERL_PPDEF(Perl_pp_regcreset)
-PERL_PPDEF(Perl_pp_regcomp)
-PERL_PPDEF(Perl_pp_match)
-PERL_PPDEF(Perl_pp_qr)
-PERL_PPDEF(Perl_pp_subst)
-PERL_PPDEF(Perl_pp_substcont)
-PERL_PPDEF(Perl_pp_trans)
-PERL_PPDEF(Perl_pp_sassign)
-PERL_PPDEF(Perl_pp_aassign)
-PERL_PPDEF(Perl_pp_chop)
-PERL_PPDEF(Perl_pp_schop)
-PERL_PPDEF(Perl_pp_chomp)
-PERL_PPDEF(Perl_pp_schomp)
-PERL_PPDEF(Perl_pp_defined)
-PERL_PPDEF(Perl_pp_undef)
-PERL_PPDEF(Perl_pp_study)
-PERL_PPDEF(Perl_pp_pos)
-PERL_PPDEF(Perl_pp_preinc)
-PERL_PPDEF(Perl_pp_predec)
-PERL_PPDEF(Perl_pp_postinc)
-PERL_PPDEF(Perl_pp_postdec)
-PERL_PPDEF(Perl_pp_pow)
-PERL_PPDEF(Perl_pp_multiply)
-PERL_PPDEF(Perl_pp_i_multiply)
-PERL_PPDEF(Perl_pp_divide)
-PERL_PPDEF(Perl_pp_i_divide)
-PERL_PPDEF(Perl_pp_modulo)
-PERL_PPDEF(Perl_pp_i_modulo)
-PERL_PPDEF(Perl_pp_repeat)
-PERL_PPDEF(Perl_pp_add)
-PERL_PPDEF(Perl_pp_i_add)
-PERL_PPDEF(Perl_pp_subtract)
-PERL_PPDEF(Perl_pp_i_subtract)
-PERL_PPDEF(Perl_pp_concat)
-PERL_PPDEF(Perl_pp_stringify)
-PERL_PPDEF(Perl_pp_left_shift)
-PERL_PPDEF(Perl_pp_right_shift)
-PERL_PPDEF(Perl_pp_lt)
-PERL_PPDEF(Perl_pp_i_lt)
-PERL_PPDEF(Perl_pp_gt)
-PERL_PPDEF(Perl_pp_i_gt)
-PERL_PPDEF(Perl_pp_le)
-PERL_PPDEF(Perl_pp_i_le)
-PERL_PPDEF(Perl_pp_ge)
-PERL_PPDEF(Perl_pp_i_ge)
-PERL_PPDEF(Perl_pp_eq)
-PERL_PPDEF(Perl_pp_i_eq)
-PERL_PPDEF(Perl_pp_ne)
-PERL_PPDEF(Perl_pp_i_ne)
-PERL_PPDEF(Perl_pp_ncmp)
-PERL_PPDEF(Perl_pp_i_ncmp)
-PERL_PPDEF(Perl_pp_slt)
-PERL_PPDEF(Perl_pp_sgt)
-PERL_PPDEF(Perl_pp_sle)
-PERL_PPDEF(Perl_pp_sge)
-PERL_PPDEF(Perl_pp_seq)
-PERL_PPDEF(Perl_pp_sne)
-PERL_PPDEF(Perl_pp_scmp)
-PERL_PPDEF(Perl_pp_bit_and)
-PERL_PPDEF(Perl_pp_bit_xor)
-PERL_PPDEF(Perl_pp_bit_or)
-PERL_PPDEF(Perl_pp_negate)
-PERL_PPDEF(Perl_pp_i_negate)
-PERL_PPDEF(Perl_pp_not)
-PERL_PPDEF(Perl_pp_complement)
-PERL_PPDEF(Perl_pp_smartmatch)
-PERL_PPDEF(Perl_pp_atan2)
-PERL_PPDEF(Perl_pp_sin)
-PERL_PPDEF(Perl_pp_cos)
-PERL_PPDEF(Perl_pp_rand)
-PERL_PPDEF(Perl_pp_srand)
-PERL_PPDEF(Perl_pp_exp)
-PERL_PPDEF(Perl_pp_log)
-PERL_PPDEF(Perl_pp_sqrt)
-PERL_PPDEF(Perl_pp_int)
-PERL_PPDEF(Perl_pp_hex)
-PERL_PPDEF(Perl_pp_oct)
-PERL_PPDEF(Perl_pp_abs)
-PERL_PPDEF(Perl_pp_length)
-PERL_PPDEF(Perl_pp_substr)
-PERL_PPDEF(Perl_pp_vec)
-PERL_PPDEF(Perl_pp_index)
-PERL_PPDEF(Perl_pp_rindex)
-PERL_PPDEF(Perl_pp_sprintf)
-PERL_PPDEF(Perl_pp_formline)
-PERL_PPDEF(Perl_pp_ord)
-PERL_PPDEF(Perl_pp_chr)
-PERL_PPDEF(Perl_pp_crypt)
-PERL_PPDEF(Perl_pp_ucfirst)
-PERL_PPDEF(Perl_pp_lcfirst)
-PERL_PPDEF(Perl_pp_uc)
-PERL_PPDEF(Perl_pp_lc)
-PERL_PPDEF(Perl_pp_quotemeta)
-PERL_PPDEF(Perl_pp_rv2av)
-PERL_PPDEF(Perl_pp_aelemfast)
-PERL_PPDEF(Perl_pp_aelem)
-PERL_PPDEF(Perl_pp_aslice)
-PERL_PPDEF(Perl_pp_aeach)
-PERL_PPDEF(Perl_pp_akeys)
-PERL_PPDEF(Perl_pp_avalues)
-PERL_PPDEF(Perl_pp_each)
-PERL_PPDEF(Perl_pp_values)
-PERL_PPDEF(Perl_pp_keys)
-PERL_PPDEF(Perl_pp_delete)
-PERL_PPDEF(Perl_pp_exists)
-PERL_PPDEF(Perl_pp_rv2hv)
-PERL_PPDEF(Perl_pp_helem)
-PERL_PPDEF(Perl_pp_hslice)
-PERL_PPDEF(Perl_pp_boolkeys)
-PERL_PPDEF(Perl_pp_unpack)
-PERL_PPDEF(Perl_pp_pack)
-PERL_PPDEF(Perl_pp_split)
-PERL_PPDEF(Perl_pp_join)
-PERL_PPDEF(Perl_pp_list)
-PERL_PPDEF(Perl_pp_lslice)
-PERL_PPDEF(Perl_pp_anonlist)
-PERL_PPDEF(Perl_pp_anonhash)
-PERL_PPDEF(Perl_pp_splice)
-PERL_PPDEF(Perl_pp_push)
-PERL_PPDEF(Perl_pp_pop)
-PERL_PPDEF(Perl_pp_shift)
-PERL_PPDEF(Perl_pp_unshift)
-PERL_PPDEF(Perl_pp_sort)
-PERL_PPDEF(Perl_pp_reverse)
-PERL_PPDEF(Perl_pp_grepstart)
-PERL_PPDEF(Perl_pp_grepwhile)
-PERL_PPDEF(Perl_pp_mapstart)
-PERL_PPDEF(Perl_pp_mapwhile)
-PERL_PPDEF(Perl_pp_range)
-PERL_PPDEF(Perl_pp_flip)
-PERL_PPDEF(Perl_pp_flop)
-PERL_PPDEF(Perl_pp_and)
-PERL_PPDEF(Perl_pp_or)
-PERL_PPDEF(Perl_pp_xor)
-PERL_PPDEF(Perl_pp_dor)
-PERL_PPDEF(Perl_pp_cond_expr)
-PERL_PPDEF(Perl_pp_andassign)
-PERL_PPDEF(Perl_pp_orassign)
-PERL_PPDEF(Perl_pp_dorassign)
-PERL_PPDEF(Perl_pp_method)
-PERL_PPDEF(Perl_pp_entersub)
-PERL_PPDEF(Perl_pp_leavesub)
-PERL_PPDEF(Perl_pp_leavesublv)
-PERL_PPDEF(Perl_pp_caller)
-PERL_PPDEF(Perl_pp_warn)
-PERL_PPDEF(Perl_pp_die)
-PERL_PPDEF(Perl_pp_reset)
-PERL_PPDEF(Perl_pp_lineseq)
-PERL_PPDEF(Perl_pp_nextstate)
-PERL_PPDEF(Perl_pp_dbstate)
-PERL_PPDEF(Perl_pp_unstack)
-PERL_PPDEF(Perl_pp_enter)
-PERL_PPDEF(Perl_pp_leave)
-PERL_PPDEF(Perl_pp_scope)
-PERL_PPDEF(Perl_pp_enteriter)
-PERL_PPDEF(Perl_pp_iter)
-PERL_PPDEF(Perl_pp_enterloop)
-PERL_PPDEF(Perl_pp_leaveloop)
-PERL_PPDEF(Perl_pp_return)
-PERL_PPDEF(Perl_pp_last)
-PERL_PPDEF(Perl_pp_next)
-PERL_PPDEF(Perl_pp_redo)
-PERL_PPDEF(Perl_pp_dump)
-PERL_PPDEF(Perl_pp_goto)
-PERL_PPDEF(Perl_pp_exit)
-PERL_PPDEF(Perl_pp_method_named)
-PERL_PPDEF(Perl_pp_entergiven)
-PERL_PPDEF(Perl_pp_leavegiven)
-PERL_PPDEF(Perl_pp_enterwhen)
-PERL_PPDEF(Perl_pp_leavewhen)
-PERL_PPDEF(Perl_pp_break)
-PERL_PPDEF(Perl_pp_continue)
-PERL_PPDEF(Perl_pp_open)
-PERL_PPDEF(Perl_pp_close)
-PERL_PPDEF(Perl_pp_pipe_op)
-PERL_PPDEF(Perl_pp_fileno)
-PERL_PPDEF(Perl_pp_umask)
-PERL_PPDEF(Perl_pp_binmode)
-PERL_PPDEF(Perl_pp_tie)
-PERL_PPDEF(Perl_pp_untie)
-PERL_PPDEF(Perl_pp_tied)
-PERL_PPDEF(Perl_pp_dbmopen)
-PERL_PPDEF(Perl_pp_dbmclose)
-PERL_PPDEF(Perl_pp_sselect)
-PERL_PPDEF(Perl_pp_select)
-PERL_PPDEF(Perl_pp_getc)
-PERL_PPDEF(Perl_pp_read)
-PERL_PPDEF(Perl_pp_enterwrite)
-PERL_PPDEF(Perl_pp_leavewrite)
-PERL_PPDEF(Perl_pp_prtf)
-PERL_PPDEF(Perl_pp_print)
-PERL_PPDEF(Perl_pp_say)
-PERL_PPDEF(Perl_pp_sysopen)
-PERL_PPDEF(Perl_pp_sysseek)
-PERL_PPDEF(Perl_pp_sysread)
-PERL_PPDEF(Perl_pp_syswrite)
-PERL_PPDEF(Perl_pp_eof)
-PERL_PPDEF(Perl_pp_tell)
-PERL_PPDEF(Perl_pp_seek)
-PERL_PPDEF(Perl_pp_truncate)
-PERL_PPDEF(Perl_pp_fcntl)
-PERL_PPDEF(Perl_pp_ioctl)
-PERL_PPDEF(Perl_pp_flock)
-PERL_PPDEF(Perl_pp_send)
-PERL_PPDEF(Perl_pp_recv)
-PERL_PPDEF(Perl_pp_socket)
-PERL_PPDEF(Perl_pp_sockpair)
-PERL_PPDEF(Perl_pp_bind)
-PERL_PPDEF(Perl_pp_connect)
-PERL_PPDEF(Perl_pp_listen)
-PERL_PPDEF(Perl_pp_accept)
-PERL_PPDEF(Perl_pp_shutdown)
-PERL_PPDEF(Perl_pp_gsockopt)
-PERL_PPDEF(Perl_pp_ssockopt)
-PERL_PPDEF(Perl_pp_getsockname)
-PERL_PPDEF(Perl_pp_getpeername)
-PERL_PPDEF(Perl_pp_lstat)
-PERL_PPDEF(Perl_pp_stat)
-PERL_PPDEF(Perl_pp_ftrread)
-PERL_PPDEF(Perl_pp_ftrwrite)
-PERL_PPDEF(Perl_pp_ftrexec)
-PERL_PPDEF(Perl_pp_fteread)
-PERL_PPDEF(Perl_pp_ftewrite)
-PERL_PPDEF(Perl_pp_fteexec)
-PERL_PPDEF(Perl_pp_ftis)
-PERL_PPDEF(Perl_pp_ftsize)
-PERL_PPDEF(Perl_pp_ftmtime)
-PERL_PPDEF(Perl_pp_ftatime)
-PERL_PPDEF(Perl_pp_ftctime)
-PERL_PPDEF(Perl_pp_ftrowned)
-PERL_PPDEF(Perl_pp_fteowned)
-PERL_PPDEF(Perl_pp_ftzero)
-PERL_PPDEF(Perl_pp_ftsock)
-PERL_PPDEF(Perl_pp_ftchr)
-PERL_PPDEF(Perl_pp_ftblk)
-PERL_PPDEF(Perl_pp_ftfile)
-PERL_PPDEF(Perl_pp_ftdir)
-PERL_PPDEF(Perl_pp_ftpipe)
-PERL_PPDEF(Perl_pp_ftsuid)
-PERL_PPDEF(Perl_pp_ftsgid)
-PERL_PPDEF(Perl_pp_ftsvtx)
-PERL_PPDEF(Perl_pp_ftlink)
-PERL_PPDEF(Perl_pp_fttty)
-PERL_PPDEF(Perl_pp_fttext)
-PERL_PPDEF(Perl_pp_ftbinary)
-PERL_PPDEF(Perl_pp_chdir)
-PERL_PPDEF(Perl_pp_chown)
-PERL_PPDEF(Perl_pp_chroot)
-PERL_PPDEF(Perl_pp_unlink)
-PERL_PPDEF(Perl_pp_chmod)
-PERL_PPDEF(Perl_pp_utime)
-PERL_PPDEF(Perl_pp_rename)
-PERL_PPDEF(Perl_pp_link)
-PERL_PPDEF(Perl_pp_symlink)
-PERL_PPDEF(Perl_pp_readlink)
-PERL_PPDEF(Perl_pp_mkdir)
-PERL_PPDEF(Perl_pp_rmdir)
-PERL_PPDEF(Perl_pp_open_dir)
-PERL_PPDEF(Perl_pp_readdir)
-PERL_PPDEF(Perl_pp_telldir)
-PERL_PPDEF(Perl_pp_seekdir)
-PERL_PPDEF(Perl_pp_rewinddir)
-PERL_PPDEF(Perl_pp_closedir)
-PERL_PPDEF(Perl_pp_fork)
-PERL_PPDEF(Perl_pp_wait)
-PERL_PPDEF(Perl_pp_waitpid)
-PERL_PPDEF(Perl_pp_system)
-PERL_PPDEF(Perl_pp_exec)
-PERL_PPDEF(Perl_pp_kill)
-PERL_PPDEF(Perl_pp_getppid)
-PERL_PPDEF(Perl_pp_getpgrp)
-PERL_PPDEF(Perl_pp_setpgrp)
-PERL_PPDEF(Perl_pp_getpriority)
-PERL_PPDEF(Perl_pp_setpriority)
-PERL_PPDEF(Perl_pp_time)
-PERL_PPDEF(Perl_pp_tms)
-PERL_PPDEF(Perl_pp_localtime)
-PERL_PPDEF(Perl_pp_gmtime)
-PERL_PPDEF(Perl_pp_alarm)
-PERL_PPDEF(Perl_pp_sleep)
-PERL_PPDEF(Perl_pp_shmget)
-PERL_PPDEF(Perl_pp_shmctl)
-PERL_PPDEF(Perl_pp_shmread)
-PERL_PPDEF(Perl_pp_shmwrite)
-PERL_PPDEF(Perl_pp_msgget)
-PERL_PPDEF(Perl_pp_msgctl)
-PERL_PPDEF(Perl_pp_msgsnd)
-PERL_PPDEF(Perl_pp_msgrcv)
-PERL_PPDEF(Perl_pp_semop)
-PERL_PPDEF(Perl_pp_semget)
-PERL_PPDEF(Perl_pp_semctl)
-PERL_PPDEF(Perl_pp_require)
-PERL_PPDEF(Perl_pp_dofile)
-PERL_PPDEF(Perl_pp_hintseval)
-PERL_PPDEF(Perl_pp_entereval)
-PERL_PPDEF(Perl_pp_leaveeval)
-PERL_PPDEF(Perl_pp_entertry)
-PERL_PPDEF(Perl_pp_leavetry)
-PERL_PPDEF(Perl_pp_ghbyname)
-PERL_PPDEF(Perl_pp_ghbyaddr)
-PERL_PPDEF(Perl_pp_ghostent)
-PERL_PPDEF(Perl_pp_gnbyname)
-PERL_PPDEF(Perl_pp_gnbyaddr)
-PERL_PPDEF(Perl_pp_gnetent)
-PERL_PPDEF(Perl_pp_gpbyname)
-PERL_PPDEF(Perl_pp_gpbynumber)
-PERL_PPDEF(Perl_pp_gprotoent)
-PERL_PPDEF(Perl_pp_gsbyname)
-PERL_PPDEF(Perl_pp_gsbyport)
-PERL_PPDEF(Perl_pp_gservent)
-PERL_PPDEF(Perl_pp_shostent)
-PERL_PPDEF(Perl_pp_snetent)
-PERL_PPDEF(Perl_pp_sprotoent)
-PERL_PPDEF(Perl_pp_sservent)
-PERL_PPDEF(Perl_pp_ehostent)
-PERL_PPDEF(Perl_pp_enetent)
-PERL_PPDEF(Perl_pp_eprotoent)
-PERL_PPDEF(Perl_pp_eservent)
-PERL_PPDEF(Perl_pp_gpwnam)
-PERL_PPDEF(Perl_pp_gpwuid)
-PERL_PPDEF(Perl_pp_gpwent)
-PERL_PPDEF(Perl_pp_spwent)
-PERL_PPDEF(Perl_pp_epwent)
-PERL_PPDEF(Perl_pp_ggrnam)
-PERL_PPDEF(Perl_pp_ggrgid)
-PERL_PPDEF(Perl_pp_ggrent)
-PERL_PPDEF(Perl_pp_sgrent)
-PERL_PPDEF(Perl_pp_egrent)
-PERL_PPDEF(Perl_pp_getlogin)
-PERL_PPDEF(Perl_pp_syscall)
-PERL_PPDEF(Perl_pp_lock)
-PERL_PPDEF(Perl_pp_once)
-
-/* ex: set ro: */
+/* We can't remove this file until we remove the references to it in
+   ExtUtils::MM_Unix.pm and ExtUtils::MM_VMS.pm  */
diff --git a/proto.h b/proto.h
index 5b207dc..f729b23 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -124,7 +124,6 @@ END_EXTERN_C
 
 /* functions with flag 'n' should come before here */
 START_EXTERN_C
-#  include "pp_proto.h"
 PERL_CALLCONV bool     Perl_try_amagic_bin(pTHX_ int method, int flags);
 PERL_CALLCONV bool     Perl_try_amagic_un(pTHX_ int method, int flags);
 PERL_CALLCONV SV*      Perl_amagic_call(pTHX_ SV* left, SV* right, int method, int dir)
@@ -4618,252 +4617,6 @@ STATIC void     S_unwind_handler_stack(pTHX_ const void *p)
 #endif
 
 #if defined(PERL_IN_OP_C)
-PERL_CALLCONV OP*      Perl_ck_anoncode(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_ANONCODE   \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_bitop(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_BITOP      \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_concat(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_CONCAT     \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_defined(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_DEFINED    \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_delete(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_DELETE     \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_die(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_DIE        \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_eof(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_EOF        \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_eval(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_EVAL       \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_exec(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_EXEC       \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_exists(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_EXISTS     \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_exit(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_EXIT       \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_ftst(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_FTST       \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_fun(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_FUN        \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_glob(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_GLOB       \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_grep(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_GREP       \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_index(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_INDEX      \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_join(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_JOIN       \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_lfun(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_LFUN       \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_listiob(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_LISTIOB    \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_match(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_MATCH      \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_method(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_METHOD     \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_null(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_NULL       \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_open(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_OPEN       \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_readline(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_READLINE   \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_repeat(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_REPEAT     \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_require(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_REQUIRE    \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_return(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_RETURN     \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_rfun(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_RFUN       \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_rvconst(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_RVCONST    \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_sassign(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_SASSIGN    \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_select(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_SELECT     \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_shift(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_SHIFT      \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_sort(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_SORT       \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_spair(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_SPAIR      \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_split(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_SPLIT      \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_subr(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_SUBR       \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_substr(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_SUBSTR     \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_svconst(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_SVCONST    \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_trunc(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_TRUNC      \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_unpack(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_UNPACK     \
-       assert(o)
-
-PERL_CALLCONV OP*      Perl_ck_each(pTHX_ OP *o)
-                       __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
-#define PERL_ARGS_ASSERT_CK_EACH       \
-       assert(o)
-
 STATIC bool    S_is_handle_constructor(const OP *o, I32 numargs)
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(1);
@@ -7021,5 +6774,624 @@ PERL_CALLCONV void      Perl_clone_params_del(CLONE_PARAMS *param)
 /*
  * ex: set ts=8 sts=4 sw=4 noet:
  */
+PERL_CALLCONV OP *     Perl_ck_anoncode(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_ANONCODE   \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_bitop(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_BITOP      \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_chdir(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_CHDIR      \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_concat(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_CONCAT     \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_defined(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_DEFINED    \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_delete(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_DELETE     \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_die(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_DIE        \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_each(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_EACH       \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_eof(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_EOF        \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_eval(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_EVAL       \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_exec(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_EXEC       \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_exists(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_EXISTS     \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_exit(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_EXIT       \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_ftst(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_FTST       \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_fun(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_FUN        \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_glob(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_GLOB       \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_grep(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_GREP       \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_index(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_INDEX      \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_join(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_JOIN       \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_lfun(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_LFUN       \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_listiob(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_LISTIOB    \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_match(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_MATCH      \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_method(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_METHOD     \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_null(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_NULL       \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_open(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_OPEN       \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_readline(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_READLINE   \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_repeat(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_REPEAT     \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_require(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_REQUIRE    \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_return(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_RETURN     \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_rfun(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_RFUN       \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_rvconst(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_RVCONST    \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_sassign(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_SASSIGN    \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_select(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_SELECT     \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_shift(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_SHIFT      \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_smartmatch(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_SMARTMATCH \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_sort(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_SORT       \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_spair(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_SPAIR      \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_split(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_SPLIT      \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_subr(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_SUBR       \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_substr(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_SUBSTR     \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_svconst(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_SVCONST    \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_trunc(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_TRUNC      \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_ck_unpack(pTHX_ OP *o)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+#define PERL_ARGS_ASSERT_CK_UNPACK     \
+       assert(o)
+
+PERL_CALLCONV OP *     Perl_pp_aassign(pTHX);
+PERL_CALLCONV OP *     Perl_pp_abs(pTHX);
+PERL_CALLCONV OP *     Perl_pp_accept(pTHX);
+PERL_CALLCONV OP *     Perl_pp_add(pTHX);
+PERL_CALLCONV OP *     Perl_pp_aeach(pTHX);
+PERL_CALLCONV OP *     Perl_pp_aelem(pTHX);
+PERL_CALLCONV OP *     Perl_pp_aelemfast(pTHX);
+PERL_CALLCONV OP *     Perl_pp_akeys(pTHX);
+PERL_CALLCONV OP *     Perl_pp_alarm(pTHX);
+PERL_CALLCONV OP *     Perl_pp_and(pTHX);
+PERL_CALLCONV OP *     Perl_pp_andassign(pTHX);
+PERL_CALLCONV OP *     Perl_pp_anoncode(pTHX);
+PERL_CALLCONV OP *     Perl_pp_anonhash(pTHX);
+PERL_CALLCONV OP *     Perl_pp_anonlist(pTHX);
+PERL_CALLCONV OP *     Perl_pp_aslice(pTHX);
+PERL_CALLCONV OP *     Perl_pp_atan2(pTHX);
+PERL_CALLCONV OP *     Perl_pp_av2arylen(pTHX);
+PERL_CALLCONV OP *     Perl_pp_avalues(pTHX);
+PERL_CALLCONV OP *     Perl_pp_backtick(pTHX);
+PERL_CALLCONV OP *     Perl_pp_bind(pTHX);
+PERL_CALLCONV OP *     Perl_pp_binmode(pTHX);
+PERL_CALLCONV OP *     Perl_pp_bit_and(pTHX);
+PERL_CALLCONV OP *     Perl_pp_bit_or(pTHX);
+PERL_CALLCONV OP *     Perl_pp_bit_xor(pTHX);
+PERL_CALLCONV OP *     Perl_pp_bless(pTHX);
+PERL_CALLCONV OP *     Perl_pp_boolkeys(pTHX);
+PERL_CALLCONV OP *     Perl_pp_break(pTHX);
+PERL_CALLCONV OP *     Perl_pp_caller(pTHX);
+PERL_CALLCONV OP *     Perl_pp_chdir(pTHX);
+PERL_CALLCONV OP *     Perl_pp_chmod(pTHX);
+PERL_CALLCONV OP *     Perl_pp_chomp(pTHX);
+PERL_CALLCONV OP *     Perl_pp_chop(pTHX);
+PERL_CALLCONV OP *     Perl_pp_chown(pTHX);
+PERL_CALLCONV OP *     Perl_pp_chr(pTHX);
+PERL_CALLCONV OP *     Perl_pp_chroot(pTHX);
+PERL_CALLCONV OP *     Perl_pp_close(pTHX);
+PERL_CALLCONV OP *     Perl_pp_closedir(pTHX);
+PERL_CALLCONV OP *     Perl_pp_complement(pTHX);
+PERL_CALLCONV OP *     Perl_pp_concat(pTHX);
+PERL_CALLCONV OP *     Perl_pp_cond_expr(pTHX);
+PERL_CALLCONV OP *     Perl_pp_connect(pTHX);
+PERL_CALLCONV OP *     Perl_pp_const(pTHX);
+PERL_CALLCONV OP *     Perl_pp_continue(pTHX);
+PERL_CALLCONV OP *     Perl_pp_cos(pTHX);
+PERL_CALLCONV OP *     Perl_pp_crypt(pTHX);
+PERL_CALLCONV OP *     Perl_pp_dbmclose(pTHX);
+PERL_CALLCONV OP *     Perl_pp_dbmopen(pTHX);
+PERL_CALLCONV OP *     Perl_pp_dbstate(pTHX);
+PERL_CALLCONV OP *     Perl_pp_defined(pTHX);
+PERL_CALLCONV OP *     Perl_pp_delete(pTHX);
+PERL_CALLCONV OP *     Perl_pp_die(pTHX);
+PERL_CALLCONV OP *     Perl_pp_divide(pTHX);
+PERL_CALLCONV OP *     Perl_pp_dofile(pTHX);
+PERL_CALLCONV OP *     Perl_pp_dor(pTHX);
+PERL_CALLCONV OP *     Perl_pp_dorassign(pTHX);
+PERL_CALLCONV OP *     Perl_pp_dump(pTHX);
+PERL_CALLCONV OP *     Perl_pp_each(pTHX);
+PERL_CALLCONV OP *     Perl_pp_egrent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ehostent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_enetent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_enter(pTHX);
+PERL_CALLCONV OP *     Perl_pp_entereval(pTHX);
+PERL_CALLCONV OP *     Perl_pp_entergiven(pTHX);
+PERL_CALLCONV OP *     Perl_pp_enteriter(pTHX);
+PERL_CALLCONV OP *     Perl_pp_enterloop(pTHX);
+PERL_CALLCONV OP *     Perl_pp_entersub(pTHX);
+PERL_CALLCONV OP *     Perl_pp_entertry(pTHX);
+PERL_CALLCONV OP *     Perl_pp_enterwhen(pTHX);
+PERL_CALLCONV OP *     Perl_pp_enterwrite(pTHX);
+PERL_CALLCONV OP *     Perl_pp_eof(pTHX);
+PERL_CALLCONV OP *     Perl_pp_eprotoent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_epwent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_eq(pTHX);
+PERL_CALLCONV OP *     Perl_pp_eservent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_exec(pTHX);
+PERL_CALLCONV OP *     Perl_pp_exists(pTHX);
+PERL_CALLCONV OP *     Perl_pp_exit(pTHX);
+PERL_CALLCONV OP *     Perl_pp_exp(pTHX);
+PERL_CALLCONV OP *     Perl_pp_fcntl(pTHX);
+PERL_CALLCONV OP *     Perl_pp_fileno(pTHX);
+PERL_CALLCONV OP *     Perl_pp_flip(pTHX);
+PERL_CALLCONV OP *     Perl_pp_flock(pTHX);
+PERL_CALLCONV OP *     Perl_pp_flop(pTHX);
+PERL_CALLCONV OP *     Perl_pp_fork(pTHX);
+PERL_CALLCONV OP *     Perl_pp_formline(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftatime(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftbinary(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftblk(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftchr(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftctime(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftdir(pTHX);
+PERL_CALLCONV OP *     Perl_pp_fteexec(pTHX);
+PERL_CALLCONV OP *     Perl_pp_fteowned(pTHX);
+PERL_CALLCONV OP *     Perl_pp_fteread(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftewrite(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftfile(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftis(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftlink(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftmtime(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftpipe(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftrexec(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftrowned(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftrread(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftrwrite(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftsgid(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftsize(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftsock(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftsuid(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftsvtx(pTHX);
+PERL_CALLCONV OP *     Perl_pp_fttext(pTHX);
+PERL_CALLCONV OP *     Perl_pp_fttty(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ftzero(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ge(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gelem(pTHX);
+PERL_CALLCONV OP *     Perl_pp_getc(pTHX);
+PERL_CALLCONV OP *     Perl_pp_getlogin(pTHX);
+PERL_CALLCONV OP *     Perl_pp_getpeername(pTHX);
+PERL_CALLCONV OP *     Perl_pp_getpgrp(pTHX);
+PERL_CALLCONV OP *     Perl_pp_getppid(pTHX);
+PERL_CALLCONV OP *     Perl_pp_getpriority(pTHX);
+PERL_CALLCONV OP *     Perl_pp_getsockname(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ggrent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ggrgid(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ggrnam(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ghbyaddr(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ghbyname(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ghostent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_glob(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gmtime(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gnbyaddr(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gnbyname(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gnetent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_goto(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gpbyname(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gpbynumber(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gprotoent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gpwent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gpwnam(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gpwuid(pTHX);
+PERL_CALLCONV OP *     Perl_pp_grepstart(pTHX);
+PERL_CALLCONV OP *     Perl_pp_grepwhile(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gsbyname(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gsbyport(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gservent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gsockopt(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gt(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gv(pTHX);
+PERL_CALLCONV OP *     Perl_pp_gvsv(pTHX);
+PERL_CALLCONV OP *     Perl_pp_helem(pTHX);
+PERL_CALLCONV OP *     Perl_pp_hex(pTHX);
+PERL_CALLCONV OP *     Perl_pp_hintseval(pTHX);
+PERL_CALLCONV OP *     Perl_pp_hslice(pTHX);
+PERL_CALLCONV OP *     Perl_pp_i_add(pTHX);
+PERL_CALLCONV OP *     Perl_pp_i_divide(pTHX);
+PERL_CALLCONV OP *     Perl_pp_i_eq(pTHX);
+PERL_CALLCONV OP *     Perl_pp_i_ge(pTHX);
+PERL_CALLCONV OP *     Perl_pp_i_gt(pTHX);
+PERL_CALLCONV OP *     Perl_pp_i_le(pTHX);
+PERL_CALLCONV OP *     Perl_pp_i_lt(pTHX);
+PERL_CALLCONV OP *     Perl_pp_i_modulo(pTHX);
+PERL_CALLCONV OP *     Perl_pp_i_multiply(pTHX);
+PERL_CALLCONV OP *     Perl_pp_i_ncmp(pTHX);
+PERL_CALLCONV OP *     Perl_pp_i_ne(pTHX);
+PERL_CALLCONV OP *     Perl_pp_i_negate(pTHX);
+PERL_CALLCONV OP *     Perl_pp_i_subtract(pTHX);
+PERL_CALLCONV OP *     Perl_pp_index(pTHX);
+PERL_CALLCONV OP *     Perl_pp_int(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ioctl(pTHX);
+PERL_CALLCONV OP *     Perl_pp_iter(pTHX);
+PERL_CALLCONV OP *     Perl_pp_join(pTHX);
+PERL_CALLCONV OP *     Perl_pp_keys(pTHX);
+PERL_CALLCONV OP *     Perl_pp_kill(pTHX);
+PERL_CALLCONV OP *     Perl_pp_last(pTHX);
+PERL_CALLCONV OP *     Perl_pp_lc(pTHX);
+PERL_CALLCONV OP *     Perl_pp_lcfirst(pTHX);
+PERL_CALLCONV OP *     Perl_pp_le(pTHX);
+PERL_CALLCONV OP *     Perl_pp_leave(pTHX);
+PERL_CALLCONV OP *     Perl_pp_leaveeval(pTHX);
+PERL_CALLCONV OP *     Perl_pp_leavegiven(pTHX);
+PERL_CALLCONV OP *     Perl_pp_leaveloop(pTHX);
+PERL_CALLCONV OP *     Perl_pp_leavesub(pTHX);
+PERL_CALLCONV OP *     Perl_pp_leavesublv(pTHX);
+PERL_CALLCONV OP *     Perl_pp_leavetry(pTHX);
+PERL_CALLCONV OP *     Perl_pp_leavewhen(pTHX);
+PERL_CALLCONV OP *     Perl_pp_leavewrite(pTHX);
+PERL_CALLCONV OP *     Perl_pp_left_shift(pTHX);
+PERL_CALLCONV OP *     Perl_pp_length(pTHX);
+PERL_CALLCONV OP *     Perl_pp_lineseq(pTHX);
+PERL_CALLCONV OP *     Perl_pp_link(pTHX);
+PERL_CALLCONV OP *     Perl_pp_list(pTHX);
+PERL_CALLCONV OP *     Perl_pp_listen(pTHX);
+PERL_CALLCONV OP *     Perl_pp_localtime(pTHX);
+PERL_CALLCONV OP *     Perl_pp_lock(pTHX);
+PERL_CALLCONV OP *     Perl_pp_log(pTHX);
+PERL_CALLCONV OP *     Perl_pp_lslice(pTHX);
+PERL_CALLCONV OP *     Perl_pp_lstat(pTHX);
+PERL_CALLCONV OP *     Perl_pp_lt(pTHX);
+PERL_CALLCONV OP *     Perl_pp_mapstart(pTHX);
+PERL_CALLCONV OP *     Perl_pp_mapwhile(pTHX);
+PERL_CALLCONV OP *     Perl_pp_match(pTHX);
+PERL_CALLCONV OP *     Perl_pp_method(pTHX);
+PERL_CALLCONV OP *     Perl_pp_method_named(pTHX);
+PERL_CALLCONV OP *     Perl_pp_mkdir(pTHX);
+PERL_CALLCONV OP *     Perl_pp_modulo(pTHX);
+PERL_CALLCONV OP *     Perl_pp_msgctl(pTHX);
+PERL_CALLCONV OP *     Perl_pp_msgget(pTHX);
+PERL_CALLCONV OP *     Perl_pp_msgrcv(pTHX);
+PERL_CALLCONV OP *     Perl_pp_msgsnd(pTHX);
+PERL_CALLCONV OP *     Perl_pp_multiply(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ncmp(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ne(pTHX);
+PERL_CALLCONV OP *     Perl_pp_negate(pTHX);
+PERL_CALLCONV OP *     Perl_pp_next(pTHX);
+PERL_CALLCONV OP *     Perl_pp_nextstate(pTHX);
+PERL_CALLCONV OP *     Perl_pp_not(pTHX);
+PERL_CALLCONV OP *     Perl_pp_null(pTHX);
+PERL_CALLCONV OP *     Perl_pp_oct(pTHX);
+PERL_CALLCONV OP *     Perl_pp_once(pTHX);
+PERL_CALLCONV OP *     Perl_pp_open(pTHX);
+PERL_CALLCONV OP *     Perl_pp_open_dir(pTHX);
+PERL_CALLCONV OP *     Perl_pp_or(pTHX);
+PERL_CALLCONV OP *     Perl_pp_orassign(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ord(pTHX);
+PERL_CALLCONV OP *     Perl_pp_pack(pTHX);
+PERL_CALLCONV OP *     Perl_pp_padany(pTHX);
+PERL_CALLCONV OP *     Perl_pp_padav(pTHX);
+PERL_CALLCONV OP *     Perl_pp_padhv(pTHX);
+PERL_CALLCONV OP *     Perl_pp_padsv(pTHX);
+PERL_CALLCONV OP *     Perl_pp_pipe_op(pTHX);
+PERL_CALLCONV OP *     Perl_pp_pop(pTHX);
+PERL_CALLCONV OP *     Perl_pp_pos(pTHX);
+PERL_CALLCONV OP *     Perl_pp_postdec(pTHX);
+PERL_CALLCONV OP *     Perl_pp_postinc(pTHX);
+PERL_CALLCONV OP *     Perl_pp_pow(pTHX);
+PERL_CALLCONV OP *     Perl_pp_predec(pTHX);
+PERL_CALLCONV OP *     Perl_pp_preinc(pTHX);
+PERL_CALLCONV OP *     Perl_pp_print(pTHX);
+PERL_CALLCONV OP *     Perl_pp_prototype(pTHX);
+PERL_CALLCONV OP *     Perl_pp_prtf(pTHX);
+PERL_CALLCONV OP *     Perl_pp_push(pTHX);
+PERL_CALLCONV OP *     Perl_pp_pushmark(pTHX);
+PERL_CALLCONV OP *     Perl_pp_pushre(pTHX);
+PERL_CALLCONV OP *     Perl_pp_qr(pTHX);
+PERL_CALLCONV OP *     Perl_pp_quotemeta(pTHX);
+PERL_CALLCONV OP *     Perl_pp_rand(pTHX);
+PERL_CALLCONV OP *     Perl_pp_range(pTHX);
+PERL_CALLCONV OP *     Perl_pp_rcatline(pTHX);
+PERL_CALLCONV OP *     Perl_pp_read(pTHX);
+PERL_CALLCONV OP *     Perl_pp_readdir(pTHX);
+PERL_CALLCONV OP *     Perl_pp_readline(pTHX);
+PERL_CALLCONV OP *     Perl_pp_readlink(pTHX);
+PERL_CALLCONV OP *     Perl_pp_recv(pTHX);
+PERL_CALLCONV OP *     Perl_pp_redo(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ref(pTHX);
+PERL_CALLCONV OP *     Perl_pp_refgen(pTHX);
+PERL_CALLCONV OP *     Perl_pp_regcmaybe(pTHX);
+PERL_CALLCONV OP *     Perl_pp_regcomp(pTHX);
+PERL_CALLCONV OP *     Perl_pp_regcreset(pTHX);
+PERL_CALLCONV OP *     Perl_pp_rename(pTHX);
+PERL_CALLCONV OP *     Perl_pp_repeat(pTHX);
+PERL_CALLCONV OP *     Perl_pp_require(pTHX);
+PERL_CALLCONV OP *     Perl_pp_reset(pTHX);
+PERL_CALLCONV OP *     Perl_pp_return(pTHX);
+PERL_CALLCONV OP *     Perl_pp_reverse(pTHX);
+PERL_CALLCONV OP *     Perl_pp_rewinddir(pTHX);
+PERL_CALLCONV OP *     Perl_pp_right_shift(pTHX);
+PERL_CALLCONV OP *     Perl_pp_rindex(pTHX);
+PERL_CALLCONV OP *     Perl_pp_rmdir(pTHX);
+PERL_CALLCONV OP *     Perl_pp_rv2av(pTHX);
+PERL_CALLCONV OP *     Perl_pp_rv2cv(pTHX);
+PERL_CALLCONV OP *     Perl_pp_rv2gv(pTHX);
+PERL_CALLCONV OP *     Perl_pp_rv2hv(pTHX);
+PERL_CALLCONV OP *     Perl_pp_rv2sv(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sassign(pTHX);
+PERL_CALLCONV OP *     Perl_pp_say(pTHX);
+PERL_CALLCONV OP *     Perl_pp_scalar(pTHX);
+PERL_CALLCONV OP *     Perl_pp_schomp(pTHX);
+PERL_CALLCONV OP *     Perl_pp_schop(pTHX);
+PERL_CALLCONV OP *     Perl_pp_scmp(pTHX);
+PERL_CALLCONV OP *     Perl_pp_scope(pTHX);
+PERL_CALLCONV OP *     Perl_pp_seek(pTHX);
+PERL_CALLCONV OP *     Perl_pp_seekdir(pTHX);
+PERL_CALLCONV OP *     Perl_pp_select(pTHX);
+PERL_CALLCONV OP *     Perl_pp_semctl(pTHX);
+PERL_CALLCONV OP *     Perl_pp_semget(pTHX);
+PERL_CALLCONV OP *     Perl_pp_semop(pTHX);
+PERL_CALLCONV OP *     Perl_pp_send(pTHX);
+PERL_CALLCONV OP *     Perl_pp_seq(pTHX);
+PERL_CALLCONV OP *     Perl_pp_setpgrp(pTHX);
+PERL_CALLCONV OP *     Perl_pp_setpriority(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sge(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sgrent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sgt(pTHX);
+PERL_CALLCONV OP *     Perl_pp_shift(pTHX);
+PERL_CALLCONV OP *     Perl_pp_shmctl(pTHX);
+PERL_CALLCONV OP *     Perl_pp_shmget(pTHX);
+PERL_CALLCONV OP *     Perl_pp_shmread(pTHX);
+PERL_CALLCONV OP *     Perl_pp_shmwrite(pTHX);
+PERL_CALLCONV OP *     Perl_pp_shostent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_shutdown(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sin(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sle(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sleep(pTHX);
+PERL_CALLCONV OP *     Perl_pp_slt(pTHX);
+PERL_CALLCONV OP *     Perl_pp_smartmatch(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sne(pTHX);
+PERL_CALLCONV OP *     Perl_pp_snetent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_socket(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sockpair(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sort(pTHX);
+PERL_CALLCONV OP *     Perl_pp_splice(pTHX);
+PERL_CALLCONV OP *     Perl_pp_split(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sprintf(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sprotoent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_spwent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sqrt(pTHX);
+PERL_CALLCONV OP *     Perl_pp_srand(pTHX);
+PERL_CALLCONV OP *     Perl_pp_srefgen(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sselect(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sservent(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ssockopt(pTHX);
+PERL_CALLCONV OP *     Perl_pp_stat(pTHX);
+PERL_CALLCONV OP *     Perl_pp_stringify(pTHX);
+PERL_CALLCONV OP *     Perl_pp_stub(pTHX);
+PERL_CALLCONV OP *     Perl_pp_study(pTHX);
+PERL_CALLCONV OP *     Perl_pp_subst(pTHX);
+PERL_CALLCONV OP *     Perl_pp_substcont(pTHX);
+PERL_CALLCONV OP *     Perl_pp_substr(pTHX);
+PERL_CALLCONV OP *     Perl_pp_subtract(pTHX);
+PERL_CALLCONV OP *     Perl_pp_symlink(pTHX);
+PERL_CALLCONV OP *     Perl_pp_syscall(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sysopen(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sysread(pTHX);
+PERL_CALLCONV OP *     Perl_pp_sysseek(pTHX);
+PERL_CALLCONV OP *     Perl_pp_system(pTHX);
+PERL_CALLCONV OP *     Perl_pp_syswrite(pTHX);
+PERL_CALLCONV OP *     Perl_pp_tell(pTHX);
+PERL_CALLCONV OP *     Perl_pp_telldir(pTHX);
+PERL_CALLCONV OP *     Perl_pp_tie(pTHX);
+PERL_CALLCONV OP *     Perl_pp_tied(pTHX);
+PERL_CALLCONV OP *     Perl_pp_time(pTHX);
+PERL_CALLCONV OP *     Perl_pp_tms(pTHX);
+PERL_CALLCONV OP *     Perl_pp_trans(pTHX);
+PERL_CALLCONV OP *     Perl_pp_truncate(pTHX);
+PERL_CALLCONV OP *     Perl_pp_uc(pTHX);
+PERL_CALLCONV OP *     Perl_pp_ucfirst(pTHX);
+PERL_CALLCONV OP *     Perl_pp_umask(pTHX);
+PERL_CALLCONV OP *     Perl_pp_undef(pTHX);
+PERL_CALLCONV OP *     Perl_pp_unlink(pTHX);
+PERL_CALLCONV OP *     Perl_pp_unpack(pTHX);
+PERL_CALLCONV OP *     Perl_pp_unshift(pTHX);
+PERL_CALLCONV OP *     Perl_pp_unstack(pTHX);
+PERL_CALLCONV OP *     Perl_pp_untie(pTHX);
+PERL_CALLCONV OP *     Perl_pp_utime(pTHX);
+PERL_CALLCONV OP *     Perl_pp_values(pTHX);
+PERL_CALLCONV OP *     Perl_pp_vec(pTHX);
+PERL_CALLCONV OP *     Perl_pp_wait(pTHX);
+PERL_CALLCONV OP *     Perl_pp_waitpid(pTHX);
+PERL_CALLCONV OP *     Perl_pp_wantarray(pTHX);
+PERL_CALLCONV OP *     Perl_pp_warn(pTHX);
+PERL_CALLCONV OP *     Perl_pp_xor(pTHX);
 END_EXTERN_C
 /* ex: set ro: */
index e7bd955..43a9fe2 100644 (file)
@@ -1474,7 +1474,6 @@ $(SOCKH) : [.vms]$(SOCKH)
 #      opcode.h:       opcode.pl
 #      opnames.h:      opcode.pl
 #      overload.h:     overload.pl
-#      pp_proto.h:     opcode.pl
 #      pp.sym:         opcode.pl
 #      embed.h:        embed.pl  [* needs pp.sym generated by opcode.pl! *]
 #      embedvar.h:     embed.pl  [* needs pp.sym generated by opcode.pl! *]