diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-09-27 17:25:24 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-09-27 17:29:06 +0100 |
commit | a4e744802906bbf8435494e7f5ab1823213b2448 (patch) | |
tree | d89130f4c2dc060155148af1c385d311e09cd4a1 | |
parent | 77d8c8d52bcb3950617cc1491f1f2713db7ea126 (diff) | |
download | perl-a4e744802906bbf8435494e7f5ab1823213b2448.tar.gz |
Move OP prototypes from pp_proto.h to proto.h
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.
-rw-r--r-- | Cross/Makefile-cross-SH | 6 | ||||
-rw-r--r-- | MANIFEST | 2 | ||||
-rwxr-xr-x | Makefile.SH | 6 | ||||
-rw-r--r-- | Makefile.micro | 2 | ||||
-rw-r--r-- | embed.fnc | 43 | ||||
-rw-r--r-- | embed.h | 43 | ||||
-rwxr-xr-x | embed.pl | 62 | ||||
-rw-r--r-- | op.c | 2 | ||||
-rwxr-xr-x | opcode.pl | 22 | ||||
-rw-r--r-- | pp_proto.h | 416 | ||||
-rw-r--r-- | proto.h | 866 | ||||
-rw-r--r-- | vms/descrip_mms.template | 1 |
12 files changed, 663 insertions, 808 deletions
diff --git a/Cross/Makefile-cross-SH b/Cross/Makefile-cross-SH index 79bd165924..a3cd014ef2 100644 --- a/Cross/Makefile-cross-SH +++ b/Cross/Makefile-cross-SH @@ -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. @@ -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 diff --git a/Makefile.SH b/Makefile.SH index fe7326a0fc..0a8a0aebe8 100755 --- a/Makefile.SH +++ b/Makefile.SH @@ -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. diff --git a/Makefile.micro b/Makefile.micro index 86113322d7..3528b93296 100644 --- a/Makefile.micro +++ b/Makefile.micro @@ -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 @@ -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 @@ -1324,47 +1324,6 @@ #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 @@ -2155,6 +2114,7 @@ #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) @@ -2559,6 +2519,7 @@ #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 */ @@ -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 */ @@ -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; @@ -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"; } } diff --git a/pp_proto.h b/pp_proto.h index d7da453871..f0126bd578 100644 --- a/pp_proto.h +++ b/pp_proto.h @@ -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 */ @@ -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: */ diff --git a/vms/descrip_mms.template b/vms/descrip_mms.template index e7bd955236..43a9fe239e 100644 --- a/vms/descrip_mms.template +++ b/vms/descrip_mms.template @@ -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! *] |