summaryrefslogtreecommitdiff
path: root/embed.fnc
diff options
context:
space:
mode:
authorJan Dubois <jand@activestate.com>2010-07-07 15:22:44 -0700
committerJan Dubois <jand@activestate.com>2010-07-07 15:22:44 -0700
commit43869a0ca3e2a7cb663dabb00f472e45294f7601 (patch)
tree5ffb572bd43ffec8dde76b969ef6d9c6189698ac /embed.fnc
parentc68ea3c992c73e9433a1d9354c4c1559d0ffffde (diff)
downloadperl-43869a0ca3e2a7cb663dabb00f472e45294f7601.tar.gz
Get rid of PERL_DECL_PROT
It was added for PERL_OBJECT support in commit 0cb9638, which has been removed again with commit acfe0ab.
Diffstat (limited to 'embed.fnc')
-rw-r--r--embed.fnc112
1 files changed, 56 insertions, 56 deletions
diff --git a/embed.fnc b/embed.fnc
index 09922164cb..1ba90415ff 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -204,7 +204,7 @@ ApdoxM |SV** |av_create_and_unshift_one|NN AV **const avp|NN SV *const val
Apd |void |av_unshift |NN AV *av|I32 num
Apo |SV** |av_arylen_p |NN AV *av
Apo |IV* |av_iter_p |NN AV *av
-#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_AV_C)
s |MAGIC* |get_aux_mg |NN AV *av
#endif
: Used in perly.y
@@ -321,7 +321,7 @@ Ap |int |do_spawn_nowait|NN char* cmd
p |bool |do_exec3 |NN const char *incmd|int fd|int do_report
#endif
p |void |do_execfree
-#if defined(PERL_IN_DOIO_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_DOIO_C)
s |void |exec_failed |NN const char *cmd|int fd|int do_report
#endif
#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
@@ -394,7 +394,7 @@ ApdR |char* |fbm_instr |NN unsigned char* big|NN unsigned char* bigend \
: Defined in util.c, used only in perl.c
p |char* |find_script |NN const char *scriptname|bool dosearch \
|NULLOK const char *const *const search_ext|I32 flags
-#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_OP_C)
s |OP* |force_list |NULLOK OP* arg
: FIXME
s |OP* |fold_constants |NN OP *o
@@ -402,7 +402,7 @@ s |OP* |fold_constants |NN OP *o
Afpd |char* |form |NN const char* pat|...
Ap |char* |vform |NN const char* pat|NULLOK va_list* args
Ap |void |free_tmps
-#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_OP_C)
s |OP* |gen_constant_list|NULLOK OP* o
#endif
#if !defined(HAS_GETENV_LEN)
@@ -485,7 +485,7 @@ dpoM |void |refcounted_he_free|NULLOK struct refcounted_he *he
XEdpoM |struct refcounted_he *|refcounted_he_new \
|NULLOK struct refcounted_he *const parent \
|NULLOK SV *const key|NULLOK SV *const value
-#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_HV_C)
s |struct refcounted_he * |refcounted_he_new_common \
|NULLOK struct refcounted_he *const parent \
|NN const char *const key_p \
@@ -510,7 +510,7 @@ Am |I32 |ibcmp_utf8 |NN const char *s1|NULLOK char **pe1|UV l1 \
Apd |I32 |foldEQ_utf8 |NN const char *s1|NULLOK char **pe1|UV l1 \
|bool u1|NN const char *s2|NULLOK char **pe2 \
|UV l2|bool u2
-#if defined(PERL_IN_DOIO_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_DOIO_C)
sR |bool |ingroup |Gid_t testgid|bool effective
#endif
: Used in toke.c
@@ -597,7 +597,7 @@ EXpR |bool |is_utf8_X_V |NN const U8 *p
p |OP* |jmaybe |NN OP *o
: Used in pp.c
pP |I32 |keyword |NN const char *name|I32 len|bool all_keywords
-#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_OP_C)
s |OP* |opt_scalarhv |NN OP* rep_op
s |OP* |is_inplace_av |NN OP* o|NULLOK OP* oright
#endif
@@ -624,7 +624,7 @@ Ap |void |op_null |NN OP* o
EXp |void |op_clear |NN OP* o
Ap |void |op_refcnt_lock
Ap |void |op_refcnt_unlock
-#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_OP_C)
s |OP* |linklist |NN OP *o
s |OP* |listkids |NULLOK OP* o
#endif
@@ -877,7 +877,7 @@ Apd |SV* |pad_sv |PADOFFSET po
#endif
: Defined in pad.c, used only in op.c
pd |void |pad_free |PADOFFSET po
-#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_PAD_C)
sd |void |pad_reset
#endif
: Used in op.c
@@ -923,7 +923,7 @@ s |void |pidgone |Pid_t pid|int status
#endif
: Used in perly.y
p |OP* |pmruntime |NN OP *o|NN OP *expr|bool isreg
-#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_OP_C)
s |OP* |pmtrans |NN OP* o|NN OP* expr|NN OP* repl
#endif
Ap |void |pop_scope
@@ -931,7 +931,7 @@ Ap |void |pop_scope
p |OP* |prepend_elem |I32 optype|NULLOK OP* head|NULLOK OP* tail
Ap |void |push_scope
Amb |OP* |ref |NULLOK OP* o|I32 type
-#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_OP_C)
s |OP* |refkids |NULLOK OP* o|I32 type
#endif
Ap |void |regdump |NN const regexp* r
@@ -993,7 +993,7 @@ p |int |rsignal_restore|int i|NULLOK Sigsave_t* t
: Used in pp_sys.c
p |int |rsignal_save |int i|Sighandler_t t1|NN Sigsave_t* save
Ap |Sighandler_t|rsignal_state|int i
-#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_PP_CTL_C)
s |void |rxres_free |NN void** rsp
s |void |rxres_restore |NN void **rsp|NN REGEXP *rx
#endif
@@ -1060,7 +1060,7 @@ p |void |save_pushi32ptr|const I32 i|NULLOK void *const ptr|const int type
: Used by SAVESWITCHSTACK() in pp.c
p |void |save_pushptrptr|NULLOK void *const ptr1 \
|NULLOK void *const ptr2|const int type
-#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_SCOPE_C)
s |void |save_pushptri32ptr|NULLOK void *const ptr1|const I32 i \
|NULLOK void *const ptr2|const int type
#endif
@@ -1068,7 +1068,7 @@ s |void |save_pushptri32ptr|NULLOK void *const ptr1|const I32 i \
p |OP* |sawparens |NULLOK OP* o
: Used in perly.y
p |OP* |scalar |NULLOK OP* o
-#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_OP_C)
s |OP* |scalarkids |NULLOK OP* o
s |OP* |scalarseq |NULLOK OP* o
#endif
@@ -1100,7 +1100,7 @@ Apd |bool |sv_2bool |NN SV *const sv
Apd |CV* |sv_2cv |NULLOK SV* sv|NN HV **const st|NN GV **const gvp \
|const I32 lref
Apd |IO* |sv_2io |NN SV *const sv
-#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_SV_C)
s |bool |glob_2number |NN GV* const gv
#endif
Amb |IV |sv_2iv |NULLOK SV *sv
@@ -1123,7 +1123,7 @@ Apd |char* |sv_pvn |NN SV *sv|NN STRLEN *lp
Apd |char* |sv_pvutf8n |NN SV *sv|NN STRLEN *lp
Apd |char* |sv_pvbyten |NN SV *sv|NN STRLEN *lp
Apd |I32 |sv_true |NULLOK SV *const sv
-#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_SV_C)
sd |void |sv_add_arena |NN char *const ptr|const U32 size \
|const U32 flags
#endif
@@ -1323,7 +1323,7 @@ EXp |int |yylex
p |int |yyparse
: Only used in scope.c
p |void |parser_free |NN const yy_parser *parser
-#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_TOKE_C)
s |int |yywarn |NN const char *const s
#endif
#if defined(MYMALLOC)
@@ -1427,11 +1427,11 @@ Ap |PerlIO*|fp_dup |NULLOK PerlIO *const fp|const char type|NN CLONE_PARAMS *co
ApR |DIR* |dirp_dup |NULLOK DIR *const dp
ApR |GP* |gp_dup |NULLOK GP *const gp|NN CLONE_PARAMS *const param
ApR |MAGIC* |mg_dup |NULLOK MAGIC *mg|NN CLONE_PARAMS *const param
-#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_SV_C)
s |SV ** |sv_dup_inc_multiple|NN SV *const *source|NN SV **dest \
|SSize_t items|NN CLONE_PARAMS *const param
#endif
-#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_SV_C)
sR |SV* |sv_dup_common |NN const SV *const sstr \
|NN CLONE_PARAMS *const param
#endif
@@ -1473,7 +1473,7 @@ Adp |int |nothreadhook
END_EXTERN_C
-#if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_DOOP_C)
sR |I32 |do_trans_simple |NN SV * const sv
sR |I32 |do_trans_count |NN SV * const sv
sR |I32 |do_trans_complex |NN SV * const sv
@@ -1482,19 +1482,19 @@ sR |I32 |do_trans_count_utf8 |NN SV * const sv
sR |I32 |do_trans_complex_utf8 |NN SV * const sv
#endif
-#if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_GV_C)
s |void |gv_init_sv |NN GV *gv|const svtype sv_type
s |HV* |gv_get_super_pkg|NN const char* name|I32 namelen
s |HV* |require_tie_mod|NN GV *gv|NN const char *varpv|NN SV* namesv \
|NN const char *methpv|const U32 flags
#endif
-: #if defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+: #if defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C)
: Used in hv.c
paRxoM |void* |get_arena |const size_t arenasize |const svtype bodytype
: #endif
-#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_HV_C)
s |void |hsplit |NN HV *hv
s |void |hfreeentries |NN HV *hv
s |I32 |anonymise_cv |NULLOK HEK *stash|NN SV *val
@@ -1512,7 +1512,7 @@ sM |void |clear_placeholders |NN HV *hv|U32 items
sM |SV * |refcounted_he_value |NN const struct refcounted_he *he
#endif
-#if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_MG_C)
s |void |save_magic |I32 mgs_ix|NN SV *sv
-s |int |magic_methpack |NN SV *sv|NN const MAGIC *mg|NN const char *meth
s |SV* |magic_methcall1|NN SV *sv|NN const MAGIC *mg \
@@ -1523,7 +1523,7 @@ s |void |unwind_handler_stack|NN const void *p
#endif
-#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+#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
@@ -1616,7 +1616,7 @@ s |void |Slab_to_rw |NN void *op
# endif
#endif
-#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_PERL_C)
s |void |find_beginning |NN SV* linestr_sv|NN PerlIO *rsfp
s |void |forbid_setid |const char flag|const bool suidscript
s |void |incpush |NN const char *const dir|STRLEN len \
@@ -1642,17 +1642,17 @@ rs |void |run_body |I32 oldscope
s |SV * |incpush_if_exists|NN AV *const av|NN SV *dir|NN SV *const stem
#endif
-#if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_PP_C)
s |OP* |do_delete_local
sR |SV* |refto |NN SV* sv
#endif
-#if defined(PERL_IN_PP_C) || defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_PP_C) || defined(PERL_IN_PP_HOT_C)
: Used in pp_hot.c
pRxo |GV* |softref2xv |NN SV *const sv|NN const char *const what \
|const svtype type|NN SV ***spp
#endif
-#if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_PP_PACK_C)
s |I32 |unpack_rec |NN struct tempsym* symptr|NN const char *s \
|NN const char *strbeg|NN const char *strend|NULLOK const char **new_s
s |SV ** |pack_rec |NN SV *cat|NN struct tempsym* symptr|NN SV **beglist|NN SV **endlist
@@ -1670,7 +1670,7 @@ sR |char * |sv_exp_grow |NN SV *sv|STRLEN needed
snR |char * |bytes_to_uni |NN const U8 *start|STRLEN len|NN char *dest
#endif
-#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_PP_CTL_C)
sR |OP* |docatch |NULLOK OP *o
sR |OP* |dofindlabel |NN OP *o|NN const char *label|NN OP **opstack|NN OP **oplimit
sR |OP* |doparseform |NN SV *sv
@@ -1695,12 +1695,12 @@ s |void |destroy_matcher|NN PMOP* matcher
s |OP* |do_smartmatch |NULLOK HV* seen_this|NULLOK HV* seen_other
#endif
-#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_PP_HOT_C)
s |void |do_oddball |NN HV *hash|NN SV **relem|NN SV **firstrelem
sR |SV* |method_common |NN SV* meth|NULLOK U32* hashp
#endif
-#if defined(PERL_IN_PP_SORT_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_PP_SORT_C)
s |I32 |sv_ncmp |NN SV *const a|NN SV *const b
s |I32 |sv_i_ncmp |NN SV *const a|NN SV *const b
s |I32 |amagic_ncmp |NN SV *const a|NN SV *const b
@@ -1713,7 +1713,7 @@ s |I32 |sortcv_stacked |NN SV *const a|NN SV *const b
s |void |qsortsvu |NULLOK SV** array|size_t num_elts|NN SVCOMPARE_t compare
#endif
-#if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_PP_SYS_C)
s |OP* |doform |NN CV *cv|NN GV *gv|NN OP *retop
# if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
sR |int |dooneliner |NN const char *cmd|NN const char *filename
@@ -1724,7 +1724,7 @@ so |OP * |tied_handle_method|NN const char *const methname|NN SV **sp \
|const U32 flags|...
#endif
-#if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_REGCOMP_C)
Es |regnode*|reg |NN struct RExC_state_t *pRExC_state \
|I32 paren|NN I32 *flagp|U32 depth
Es |regnode*|reganode |NN struct RExC_state_t *pRExC_state|U8 op \
@@ -1810,7 +1810,7 @@ Es |U8 |regtail_study |NN struct RExC_state_t *pRExC_state \
# endif
#endif
-#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_REGEXEC_C)
ERs |I32 |regmatch |NN regmatch_info *reginfo|NN regnode *prog
ERs |I32 |regrepeat |NN const regexp *prog|NN const regnode *p|I32 max|int depth
ERs |I32 |regtry |NN regmatch_info *reginfo|NN char **startpos
@@ -1838,7 +1838,7 @@ Es |void |debug_start_match|NN const REGEXP *prog|const bool do_utf8\
# endif
#endif
-#if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_DUMP_C)
s |CV* |deb_curcv |const I32 ix
s |void |debprof |NN const OP *o
s |void |sequence |NULLOK const OP *o
@@ -1847,21 +1847,21 @@ s |UV |sequence_num |NULLOK const OP *o
s |SV* |pm_description |NN const PMOP *pm
#endif
-#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_SCOPE_C)
s |SV* |save_scalar_at |NN SV **sptr|const U32 flags
#endif
-#if defined(PERL_IN_GV_C) || defined(PERL_IN_SV_C) || defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_GV_C) || defined(PERL_IN_SV_C) || defined(PERL_IN_PAD_C)
: Used in gv.c
po |void |sv_add_backref |NN SV *const tsv|NN SV *const sv
#endif
-#if defined(PERL_IN_HV_C) || defined(PERL_IN_MG_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_HV_C) || defined(PERL_IN_MG_C) || defined(PERL_IN_SV_C)
: Used in hv.c and mg.c
poM |int |sv_kill_backrefs |NN SV *const sv|NN AV *const av
#endif
-#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_SV_C)
nsR |char * |uiv_2buf |NN char *const buf|const IV iv|UV uv|const int is_uv|NN char **const peob
s |void |sv_unglob |NN SV *const sv
s |void |not_a_number |NN SV *const sv
@@ -1906,7 +1906,7 @@ s |void |glob_assign_ref|NN SV *const dstr|NN SV *const sstr
sRn |PTR_TBL_ENT_t *|ptr_table_find|NN PTR_TBL_t *const tbl|NULLOK const void *const sv
#endif
-#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_TOKE_C)
s |void |check_uni
s |void |force_next |I32 type
s |char* |force_version |NN char *s|int guessing
@@ -1967,18 +1967,18 @@ s |void |printbuf |NN const char *const fmt|NN const char *const s
# endif
#endif
-#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_UNIVERSAL_C)
s |bool|isa_lookup |NN HV *stash|NN const char * const name
so |HV * |get_isa_hash |NN HV *const stash
#endif
-#if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_LOCALE_C)
#if defined(USE_LOCALE_NUMERIC) || defined(USE_LOCALE_COLLATE)
s |char* |stdize_locale |NN char* locs
#endif
#endif
-#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_UTIL_C)
s |const COP*|closest_cop |NN const COP *cop|NULLOK const OP *o
s |SV* |mess_alloc
s |SV *|with_queued_errors|NN SV *ex
@@ -1993,11 +1993,11 @@ sn |void |mem_log_common |enum mem_log_type mlt|const UV n|const UV typesize \
#endif
#endif
-#if defined(PERL_IN_NUMERIC_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_NUMERIC_C)
sn |NV|mulexp10 |NV value|I32 exponent
#endif
-#if defined(PERL_IN_UTF8_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_UTF8_C)
sRn |STRLEN |is_utf8_char_slow|NN const U8 *s|const STRLEN len
sR |bool |is_utf8_common |NN const U8 *const p|NN SV **swash|NN const char * const swashname
sR |SV* |swash_get |NN SV* swash|UV start|UV span
@@ -2056,7 +2056,7 @@ ApR |PerlIO *|PerlIO_stderr
: Only used in dump.c
p |void |deb_stack_all
-#if defined(PERL_IN_DEB_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_DEB_C)
s |void |deb_stack_n |NN SV** stack_base|I32 stack_min \
|I32 stack_max|I32 mark_min|I32 mark_max
#endif
@@ -2071,7 +2071,7 @@ Mpd |PADOFFSET|pad_add_name |NN const char *name|const STRLEN len\
|NULLOK HV *ourstash
: Only used in op.c
pd |PADOFFSET|pad_add_anon |NN SV* sv|OPCODE op_type
-#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_PAD_C)
sd |void |pad_check_dup |NN SV *name|const U32 flags \
|NULLOK const HV *ourstash
#endif
@@ -2098,7 +2098,7 @@ pR |AV* |padlist_dup |NULLOK AV *const srcpad \
|NN CLONE_PARAMS *const param
#endif
-#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_PAD_C)
sd |PADOFFSET|pad_findlex |NN const char *name|NN const CV* cv|U32 seq|int warn \
|NULLOK SV** out_capture|NN SV** out_name_sv \
|NN int *out_flags
@@ -2128,7 +2128,7 @@ Apo |void |hv_eiter_set |NN HV *hv|NULLOK HE *eiter
Ap |void |hv_name_set |NN HV *hv|NULLOK const char *name|U32 len|U32 flags
: Used in dump.c and hv.c
poM |AV** |hv_backreferences_p |NN HV *hv
-#if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_DUMP_C) || defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C)
: Only used in sv.c
poM |void |hv_kill_backrefs |NN HV *hv
#endif
@@ -2140,7 +2140,7 @@ Apo |void |hv_placeholders_set |NN HV *hv|I32 ph
: This is indirectly referenced by globals.c. This is somewhat annoying.
p |SV* |magic_scalarpack|NN HV *hv|NN MAGIC *mg
-#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_SV_C)
s |SV * |find_hash_subscript|NULLOK const HV *const hv \
|NN const SV *const val
s |I32 |find_array_subscript|NULLOK const AV *const av \
@@ -2242,7 +2242,7 @@ p |void |dump_sv_child |NN SV *sv
#ifdef PERL_DONT_CREATE_GVSV
Apbm |GV* |gv_SVadd |NULLOK GV *gv
#endif
-#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_UTIL_C)
s |bool |ckwarn_common |U32 w
#endif
Apo |bool |ckwarn |U32 w
@@ -2283,7 +2283,7 @@ Apno |Size_t |my_strlcpy |NULLOK char *dst|NULLOK const char *src|Size_t
#ifdef PERL_MAD
Mnp |void |pad_peg |NN const char* s
-#if defined(PERL_IN_DUMP_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_DUMP_C)
sf |void |xmldump_attr |I32 level|NN PerlIO *file|NN const char* pat \
|...
#endif
@@ -2323,7 +2323,7 @@ Mp |MADPROP*|newMADPROP |char key|char type|NULLOK void* val \
|I32 vlen
Mp |void |mad_free |NULLOK MADPROP* mp
-# if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
+# if defined(PERL_IN_TOKE_C)
s |char* |skipspace0 |NN char *s
s |char* |skipspace1 |NN char *s
s |char* |skipspace2 |NN char *s|NULLOK SV **sv
@@ -2358,7 +2358,7 @@ Xpo |struct mro_meta* |mro_meta_init |NN HV* stash
p |struct mro_meta* |mro_meta_dup |NN struct mro_meta* smeta|NN CLONE_PARAMS* param
#endif
Apd |AV* |mro_get_linear_isa|NN HV* stash
-#if defined(PERL_IN_MRO_C) || defined(PERL_DECL_PROT)
+#if defined(PERL_IN_MRO_C)
sd |AV* |mro_get_linear_isa_dfs|NN HV* stash|U32 level
#endif
: Used in hv.c, mg.c, pp.c, sv.c
@@ -2378,7 +2378,7 @@ xpoM |struct refcounted_he *|store_cop_label \
xpo |int |keyword_plugin_standard|NN char* keyword_ptr|STRLEN keyword_len|NN OP** op_ptr
#if defined(USE_ITHREADS)
-# if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+# if defined(PERL_IN_SV_C)
s |void |unreferenced_to_tmp_stack|NN AV *const unreferenced
# endif
Aanop |CLONE_PARAMS *|clone_params_new|NN PerlInterpreter *const from \