In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/7bb03b244ea39557983e72f3dba06036ffe96821?hp=78b3516b6c02d638c0127c4ce6ebe476158c5545>

- Log -----------------------------------------------------------------
commit 7bb03b244ea39557983e72f3dba06036ffe96821
Author: Marcus Holland-Moritz <[email protected]>
Date:   Sun Mar 15 16:51:21 2009 +0100

    Upgrade to Devel::PPPort 3.17
-----------------------------------------------------------------------

Summary of changes:
 ext/Devel-PPPort/Changes            |    9 +
 ext/Devel-PPPort/PPPort_pm.PL       |    2 +-
 ext/Devel-PPPort/parts/apidoc.fnc   |    4 +-
 ext/Devel-PPPort/parts/base/5004000 |    1 +
 ext/Devel-PPPort/parts/base/5004050 |    2 +-
 ext/Devel-PPPort/parts/base/5005000 |    1 +
 ext/Devel-PPPort/parts/base/5006000 |    6 +
 ext/Devel-PPPort/parts/base/5006001 |    3 +
 ext/Devel-PPPort/parts/base/5007002 |    1 +
 ext/Devel-PPPort/parts/base/5009003 |    2 +
 ext/Devel-PPPort/parts/base/5009004 |   11 +
 ext/Devel-PPPort/parts/base/5009005 |    2 +
 ext/Devel-PPPort/parts/base/5010000 |    2 +
 ext/Devel-PPPort/parts/base/5011000 |   16 ++
 ext/Devel-PPPort/parts/embed.fnc    |  367 +++++++++++++++++++++++++++--------
 ext/Devel-PPPort/parts/inc/misc     |   40 +++-
 ext/Devel-PPPort/parts/todo/5007002 |    1 +
 ext/Devel-PPPort/parts/todo/5011000 |    9 +
 ext/Devel-PPPort/soak               |    2 +-
 ext/Devel-PPPort/t/misc.t           |    6 +-
 20 files changed, 390 insertions(+), 97 deletions(-)

diff --git a/ext/Devel-PPPort/Changes b/ext/Devel-PPPort/Changes
index 86d85d1..c98306d 100644
--- a/ext/Devel-PPPort/Changes
+++ b/ext/Devel-PPPort/Changes
@@ -1,3 +1,12 @@
+3.17 - 2009-03-15
+
+    * rework PTR macros, fixing PTR2ul for 5.6.1
+      (fixes CPAN #39802, thanks to CHOCOLATE for
+       reporting and providing a patch)
+    * added support for the following API
+        PTR2nat
+      (second part of fix for CPAN #39802)
+
 3.16 - 2009-01-23
 
     * fix DEFSV_set() for threaded 5.005 perls
diff --git a/ext/Devel-PPPort/PPPort_pm.PL b/ext/Devel-PPPort/PPPort_pm.PL
index fb818ea..6fca8cf 100644
--- a/ext/Devel-PPPort/PPPort_pm.PL
+++ b/ext/Devel-PPPort/PPPort_pm.PL
@@ -535,7 +535,7 @@ package Devel::PPPort;
 use strict;
 use vars qw($VERSION $data);
 
-$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.16 $' =~ 
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
+$VERSION = do { my @r = '$Snapshot: /Devel-PPPort/3.17 $' =~ 
/(\d+\.\d+(?:_\d+)?)/; @r ? $r[0] : '9.99' };
 
 sub _init_data
 {
diff --git a/ext/Devel-PPPort/parts/apidoc.fnc 
b/ext/Devel-PPPort/parts/apidoc.fnc
index 63b9746..616a9b4 100644
--- a/ext/Devel-PPPort/parts/apidoc.fnc
+++ b/ext/Devel-PPPort/parts/apidoc.fnc
@@ -1,6 +1,6 @@
 
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 :
-:  !!!!! Do NOT edit this file directly! -- Edit PPPort_pm.PL instead. !!!!!
+:  !!!! Do NOT edit this file directly! -- Edit devel/mkapidoc.sh instead. !!!!
 :
 :  This file was automatically generated from the API documentation scattered
 :  all over the Perl source code. To learn more about how all this works,
@@ -300,9 +300,9 @@ m|HV *|PAD_COMPNAME_TYPE|PADOFFSET po
 mn|bool|PL_dowarn
 mn|GV *|PL_DBsub
 mn|GV*|PL_last_in_gv
+mn|GV*|PL_ofsgv
 mn|SV *|PL_DBsingle
 mn|SV *|PL_DBtrace
-mn|SV*|PL_ofs_sv
 mn|SV*|PL_rs
 ms||djSP
 m|STRLEN|PAD_COMPNAME_GEN|PADOFFSET po
diff --git a/ext/Devel-PPPort/parts/base/5004000 
b/ext/Devel-PPPort/parts/base/5004000
index a196371..5350285 100644
--- a/ext/Devel-PPPort/parts/base/5004000
+++ b/ext/Devel-PPPort/parts/base/5004000
@@ -84,5 +84,6 @@ PERL_USHORT_MAX                # added by devel/scanprov
 PERL_USHORT_MIN                # added by devel/scanprov
 SvUVXx                         # added by devel/scanprov
 boolSV                         # added by devel/scanprov
+isPRINT                        # added by devel/scanprov
 memEQ                          # added by devel/scanprov
 memNE                          # added by devel/scanprov
diff --git a/ext/Devel-PPPort/parts/base/5004050 
b/ext/Devel-PPPort/parts/base/5004050
index 992642b..f0e0456 100644
--- a/ext/Devel-PPPort/parts/base/5004050
+++ b/ext/Devel-PPPort/parts/base/5004050
@@ -8,7 +8,7 @@ do_binmode                     # E
 newCONSTSUB                    # E
 newSVpvn                       # E
 save_aelem                     # E
-save_helem                     # E
+save_helem                     # U
 sv_catpv_mg                    # E
 sv_catpvn_mg                   # U
 sv_catsv_mg                    # U
diff --git a/ext/Devel-PPPort/parts/base/5005000 
b/ext/Devel-PPPort/parts/base/5005000
index 3c96370..1f2bf06 100644
--- a/ext/Devel-PPPort/parts/base/5005000
+++ b/ext/Devel-PPPort/parts/base/5005000
@@ -24,6 +24,7 @@ sv_peek                        # U
 sv_pvn                         # E
 sv_true                        # E
 sv_uv                          # E
+CPERLscope                     # added by devel/scanprov
 END_EXTERN_C                   # added by devel/scanprov
 EXTERN_C                       # added by devel/scanprov
 NOOP                           # added by devel/scanprov
diff --git a/ext/Devel-PPPort/parts/base/5006000 
b/ext/Devel-PPPort/parts/base/5006000
index b2a93bf..47d788e 100644
--- a/ext/Devel-PPPort/parts/base/5006000
+++ b/ext/Devel-PPPort/parts/base/5006000
@@ -284,5 +284,11 @@ dTHX                           # added by devel/scanprov
 dTHXa                          # added by devel/scanprov
 dTHXoa                         # added by devel/scanprov
 dXSTARG                        # added by devel/scanprov
+isALNUMC                       # added by devel/scanprov
+isASCII                        # added by devel/scanprov
+isCNTRL                        # added by devel/scanprov
+isGRAPH                        # added by devel/scanprov
+isPUNCT                        # added by devel/scanprov
+isXDIGIT                       # added by devel/scanprov
 pTHX                           # added by devel/scanprov
 pTHX_                          # added by devel/scanprov
diff --git a/ext/Devel-PPPort/parts/base/5006001 
b/ext/Devel-PPPort/parts/base/5006001
index a6369d5..ed53af5 100644
--- a/ext/Devel-PPPort/parts/base/5006001
+++ b/ext/Devel-PPPort/parts/base/5006001
@@ -9,6 +9,9 @@ save_generic_pvref             # U
 utf16_to_utf8                  # E (Perl_utf16_to_utf8)
 utf16_to_utf8_reversed         # E (Perl_utf16_to_utf8_reversed)
 utf8_to_bytes                  # U
+G_METHOD                       # added by devel/scanprov
 NVef                           # added by devel/scanprov
 NVff                           # added by devel/scanprov
 NVgf                           # added by devel/scanprov
+isBLANK                        # added by devel/scanprov
+isPSXSPC                       # added by devel/scanprov
diff --git a/ext/Devel-PPPort/parts/base/5007002 
b/ext/Devel-PPPort/parts/base/5007002
index 9d31a24..148eef9 100644
--- a/ext/Devel-PPPort/parts/base/5007002
+++ b/ext/Devel-PPPort/parts/base/5007002
@@ -24,6 +24,7 @@ sv_pvn_force_flags             # U
 sv_setsv_flags                 # U
 sv_setsv_nomg                  # U
 sv_utf8_upgrade_flags          # U
+sv_utf8_upgrade_nomg           # U
 swash_fetch                    # E (Perl_swash_fetch)
 GROK_NUMERIC_RADIX             # added by devel/scanprov
 IN_LOCALE                      # added by devel/scanprov
diff --git a/ext/Devel-PPPort/parts/base/5009003 
b/ext/Devel-PPPort/parts/base/5009003
index bbf2a61..61ddf37 100644
--- a/ext/Devel-PPPort/parts/base/5009003
+++ b/ext/Devel-PPPort/parts/base/5009003
@@ -39,6 +39,7 @@ vverify                        # U
 PERLIO_FUNCS_CAST              # added by devel/scanprov
 PERLIO_FUNCS_DECL              # added by devel/scanprov
 PERL_UNUSED_ARG                # added by devel/scanprov
+PTR2nat                        # added by devel/scanprov
 STR_WITH_LEN                   # added by devel/scanprov
 SV_CONST_RETURN                # added by devel/scanprov
 SV_MUTABLE_RETURN              # added by devel/scanprov
@@ -58,5 +59,6 @@ SvPV_mutable                   # added by devel/scanprov
 SvPV_nolen_const               # added by devel/scanprov
 SvPV_nomg_const                # added by devel/scanprov
 SvPV_nomg_const_nolen          # added by devel/scanprov
+SvPV_renew                     # added by devel/scanprov
 SvSHARED_HASH                  # added by devel/scanprov
 dVAR                           # added by devel/scanprov
diff --git a/ext/Devel-PPPort/parts/base/5009004 
b/ext/Devel-PPPort/parts/base/5009004
index 65dbc85..eadb7e2 100644
--- a/ext/Devel-PPPort/parts/base/5009004
+++ b/ext/Devel-PPPort/parts/base/5009004
@@ -23,6 +23,17 @@ regclass_swash                 # E (Perl_regclass_swash)
 sv_does                        # U
 sv_setpvs                      # U
 sv_usepvn_flags                # U
+PERL_PV_ESCAPE_ALL             # added by devel/scanprov
+PERL_PV_ESCAPE_FIRSTCHAR       # added by devel/scanprov
+PERL_PV_ESCAPE_NOBACKSLASH     # added by devel/scanprov
+PERL_PV_ESCAPE_NOCLEAR         # added by devel/scanprov
+PERL_PV_ESCAPE_QUOTE           # added by devel/scanprov
+PERL_PV_ESCAPE_UNI             # added by devel/scanprov
+PERL_PV_ESCAPE_UNI_DETECT      # added by devel/scanprov
+PERL_PV_PRETTY_DUMP            # added by devel/scanprov
+PERL_PV_PRETTY_LTGT            # added by devel/scanprov
+PERL_PV_PRETTY_QUOTE           # added by devel/scanprov
+PERL_PV_PRETTY_REGPROP         # added by devel/scanprov
 PERL_UNUSED_CONTEXT            # added by devel/scanprov
 PERL_USE_GCC_BRACE_GROUPS      # added by devel/scanprov
 SV_HAS_TRAILING_NUL            # added by devel/scanprov
diff --git a/ext/Devel-PPPort/parts/base/5009005 
b/ext/Devel-PPPort/parts/base/5009005
index eb5da81..738c630 100644
--- a/ext/Devel-PPPort/parts/base/5009005
+++ b/ext/Devel-PPPort/parts/base/5009005
@@ -29,4 +29,6 @@ regfree_internal               # U
 savesharedpvn                  # U
 scan_vstring                   # E (Perl_scan_vstring)
 upg_version                    # E (Perl_upg_version)
+PERL_PV_ESCAPE_RE              # added by devel/scanprov
+PL_parser                      # added by devel/scanprov
 SV_COW_SHARED_HASH_KEYS        # added by devel/scanprov
diff --git a/ext/Devel-PPPort/parts/base/5010000 
b/ext/Devel-PPPort/parts/base/5010000
index 737f374..be08fd8 100644
--- a/ext/Devel-PPPort/parts/base/5010000
+++ b/ext/Devel-PPPort/parts/base/5010000
@@ -5,3 +5,5 @@ sv_destroyable                 # U
 sys_init                       # U
 sys_init3                      # U
 sys_term                       # U
+PERL_PV_PRETTY_ELLIPSES        # added by devel/scanprov
+PERL_PV_PRETTY_NOCLEAR         # added by devel/scanprov
diff --git a/ext/Devel-PPPort/parts/base/5011000 
b/ext/Devel-PPPort/parts/base/5011000
index c9ba122..ba064c5 100644
--- a/ext/Devel-PPPort/parts/base/5011000
+++ b/ext/Devel-PPPort/parts/base/5011000
@@ -11,21 +11,37 @@ gv_fetchmethod_flags           # U
 hv_assert                      # U
 mPUSHs                         # U
 mXPUSHs                        # U
+mro_get_from_name              # U
+mro_get_private_data           # U
+mro_register                   # U
+mro_set_mro                    # U
+mro_set_private_data           # U
 newSVpvn_flags                 # U
 newSVpvn_utf8                  # U
 newSVpvs_flags                 # U
 pad_sv                         # U
 pregfree2                      # U
 ref                            # U (Perl_ref)
+save_adelete                   # U
+save_helem_flags               # U
 save_padsv_and_mortalize       # U
+save_pushptr                   # U
 stashpv_hvname_match           # U
 sv_insert_flags                # U
 sv_magic_portable              # U
+sv_utf8_upgrade_flags_grow     # U
+DEFSV_set                      # added by devel/scanprov
 PERL_BCDVERSION                # added by devel/scanprov
 PERL_MAGIC_glob                # added by devel/scanprov
 PERL_MAGIC_mutex               # added by devel/scanprov
+PL_bufend                      # added by devel/scanprov
+PL_bufptr                      # added by devel/scanprov
 PL_copline                     # added by devel/scanprov
 PL_expect                      # added by devel/scanprov
+PL_lex_state                   # added by devel/scanprov
+PL_lex_stuff                   # added by devel/scanprov
+PL_linestr                     # added by devel/scanprov
+PL_tokenbuf                    # added by devel/scanprov
 WARN_ASSERTIONS                # added by devel/scanprov
 aTHXR                          # added by devel/scanprov
 aTHXR_                         # added by devel/scanprov
diff --git a/ext/Devel-PPPort/parts/embed.fnc b/ext/Devel-PPPort/parts/embed.fnc
index f08dfef..cae666c 100644
--- a/ext/Devel-PPPort/parts/embed.fnc
+++ b/ext/Devel-PPPort/parts/embed.fnc
@@ -101,22 +101,25 @@ START_EXTERN_C
 Ap     |SV*    |amagic_call    |NN SV* left|NN SV* right|int method|int dir
 Ap     |bool   |Gv_AMupdate    |NN HV* stash
 ApR    |CV*    |gv_handler     |NULLOK HV* stash|I32 id
+: Used in perly.y
 p      |OP*    |append_elem    |I32 optype|NULLOK OP* first|NULLOK OP* last
+: Used in perly.y
 p      |OP*    |append_list    |I32 optype|NULLOK LISTOP* first|NULLOK LISTOP* 
last
+: FIXME - this is only called by pp_chown. They should be merged.
 p      |I32    |apply          |I32 type|NN SV** mark|NN SV** sp
 ApM    |void   |apply_attrs_string|NN const char *stashpv|NN CV *cv|NN const 
char *attrstr|STRLEN len
 Apd    |void   |av_clear       |NN AV *av
 Apd    |SV*    |av_delete      |NN AV *av|I32 key|I32 flags
 ApdR   |bool   |av_exists      |NN AV *av|I32 key
 Apd    |void   |av_extend      |NN AV *av|I32 key
-pR     |AV*    |av_fake        |I32 size|NN SV **strp
 ApdR   |SV**   |av_fetch       |NN AV *av|I32 key|I32 lval
 Apd    |void   |av_fill        |NN AV *av|I32 fill
-ApdR   |I32    |av_len         |NN const AV *av
+ApdR   |I32    |av_len         |NN AV *av
 ApdR   |AV*    |av_make        |I32 size|NN SV **strp
 Apd    |SV*    |av_pop         |NN AV *av
 ApdoxM |void   |av_create_and_push|NN AV **const avp|NN SV *const val
 Apd    |void   |av_push        |NN AV *av|NN SV *val
+: Used in scope.c, and by Data::Alias
 EXp    |void   |av_reify       |NN AV *av
 ApdR   |SV*    |av_shift       |NN AV *av
 Apd    |SV**   |av_store       |NN AV *av|I32 key|NULLOK SV *val
@@ -128,13 +131,19 @@ Apo       |IV*    |av_iter_p      |NN AV *av
 #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
 s      |MAGIC* |get_aux_mg     |NN AV *av
 #endif
+: Used in perly.y
 pR     |OP*    |bind_match     |I32 type|NN OP *left|NN OP *right
+: Used in perly.y
 pR     |OP*    |block_end      |I32 floor|NULLOK OP* seq
 ApR    |I32    |block_gimme
+: Used in perly.y
 pR     |int    |block_start    |int full
+: Used in perl.c
 p      |void   |boot_core_UNIVERSAL
+: Used in perl.c
 p      |void   |boot_core_PerlIO
 Ap     |void   |call_list      |I32 oldscope|NN AV *paramList
+: Used in serveral source files
 pR     |bool   |cando          |Mode_t mode|bool effective|NN const Stat_t* 
statbufp
 ApR    |U32    |cast_ulong     |NV f
 ApR    |I32    |cast_i32       |NV f
@@ -143,7 +152,9 @@ ApR |UV     |cast_uv        |NV f
 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
 ApR    |I32    |my_chsize      |int fd|Off_t length
 #endif
+: Used in perly.y
 pR     |OP*    |convert        |I32 optype|I32 flags|NULLOK OP* o
+: Used in op.c and perl.c
 pM     |PERL_CONTEXT*  |create_eval_scope|U32 flags
 : croak()'s first parm can be NULL.  Otherwise, mod_perl breaks.
 Afprd  |void   |croak          |NULLOK const char* pat|...
@@ -168,13 +179,14 @@ Afnp      |void   |sv_setpvf_mg_nocontext|NN SV *const 
sv|NN const char *const pat|...
 Afnp   |int    |fprintf_nocontext|NN PerlIO *stream|NN const char *format|...
 Afnp   |int    |printf_nocontext|NN const char *format|...
 #endif
-bp     |void   |cv_ckproto     |NN const CV* cv|NULLOK const GV* gv\
-                               |NULLOK const char* p
+: Used in sv.c
 p      |void   |cv_ckproto_len |NN const CV* cv|NULLOK const GV* gv\
                                |NULLOK const char* p|const STRLEN len
+: Used in pp.c and pp_sys.c
 pd     |CV*    |cv_clone       |NN CV* proto
 ApdR   |SV*    |gv_const_sv    |NN GV* gv
-ApdR   |SV*    |cv_const_sv    |NULLOK CV* cv
+ApdR   |SV*    |cv_const_sv    |NULLOK const CV *const cv
+: Used in pad.c
 pR     |SV*    |op_const_sv    |NULLOK const OP* o|NULLOK CV* cv
 Apd    |void   |cv_undef       |NN CV* cv
 Ap     |void   |cx_dump        |NN PERL_CONTEXT* cx
@@ -183,9 +195,12 @@ Ap |void   |filter_del     |NN filter_t funcp
 ApR    |I32    |filter_read    |int idx|NN SV *buf_sv|int maxlen
 ApPR   |char** |get_op_descs
 ApPR   |char** |get_op_names
+: FIXME discussion on p5p
 pPR    |const char*    |get_no_modify
+: FIXME discussion on p5p
 pPR    |U32*   |get_opargs
 ApPR   |PPADDR_t*|get_ppaddr
+: Used by CXINC, which appears to be in widespread use
 EXpR   |I32    |cxinc
 Afp    |void   |deb            |NN const char* pat|...
 Ap     |void   |vdeb           |NN const char* pat|NULLOK va_list* args
@@ -195,18 +210,28 @@ Ap        |I32    |debstack
 Ap     |I32    |debstackptrs
 Ap     |char*  |delimcpy       |NN char* to|NN const char* toend|NN const 
char* from \
                                |NN const char* fromend|int delim|NN I32* retlen
+: Used in op.c, perl.c
 pM     |void   |delete_eval_scope
+: Used in various files
 p      |void   |deprecate      |NN const char *const s
+: Used in various files
 p      |void   |deprecate_old  |NN const char *const s
 Afp    |OP*    |die            |NULLOK const char* pat|...
-p      |OP*    |vdie           |NULLOK const char* pat|NULLOK va_list* args
+#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
+s      |OP*    |vdie           |NULLOK const char* pat|NULLOK va_list* args
+#endif
+: Used in util.c
 p      |OP*    |die_where      |NULLOK const char* message|STRLEN msglen
 Ap     |void   |dounwind       |I32 cxix
+: FIXME
 pmb    |bool   |do_aexec       |NULLOK SV* really|NN SV** mark|NN SV** sp
+: Used in pp_sys.c
 p      |bool   |do_aexec5      |NULLOK SV* really|NN SV** mark|NN SV** sp|int 
fd|int do_report
 Ap     |int    |do_binmode     |NN PerlIO *fp|int iotype|int mode
+: Used in pp.c
 p      |void   |do_chop        |NN SV *astr|NN SV *sv
 Ap     |bool   |do_close       |NULLOK GV* gv|bool not_implicit
+: Defined in doio.c, used only in pp_sys.c
 p      |bool   |do_eof         |NN GV* gv
 
 #ifdef PERL_DEFAULT_DO_EXEC3_IMPLEMENTATION
@@ -224,18 +249,25 @@ 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
-#ifdef PERL_IN_DOIO_C
+#if defined(PERL_IN_DOIO_C) || defined(PERL_DECL_PROT)
 s      |void   |exec_failed    |NN const char *cmd|int fd|int do_report
 #endif
 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
+: Defined in doio.c, used only in pp_sys.c
 p      |I32    |do_ipcctl      |I32 optype|NN SV** mark|NN SV** sp
+: Defined in doio.c, used only in pp_sys.c
 p      |I32    |do_ipcget      |I32 optype|NN SV** mark|NN SV** sp
+: Defined in doio.c, used only in pp_sys.c
 p      |I32    |do_msgrcv      |NN SV** mark|NN SV** sp
+: Defined in doio.c, used only in pp_sys.c
 p      |I32    |do_msgsnd      |NN SV** mark|NN SV** sp
+: Defined in doio.c, used only in pp_sys.c
 p      |I32    |do_semop       |NN SV** mark|NN SV** sp
+: Defined in doio.c, used only in pp_sys.c
 p      |I32    |do_shmio       |I32 optype|NN SV** mark|NN SV** sp
 #endif
 Ap     |void   |do_join        |NN SV *sv|NN SV *delim|NN SV **mark|NN SV **sp
+: Used in pp.c and pp_hot.c
 p      |OP*    |do_kv
 Apmb   |bool   |do_open        |NN GV* gv|NN const char* name|I32 len|int 
as_raw \
                                |int rawmode|int rawperm|NULLOK PerlIO* 
supplied_fp
@@ -246,17 +278,28 @@ Ap        |bool   |do_openn       |NN GV *gv|NN const 
char *oname|I32 len \
                                |int as_raw|int rawmode|int rawperm \
                                |NULLOK PerlIO *supplied_fp|NULLOK SV **svp \
                                |I32 num
+: Used in pp_hot.c and pp_sys.c
 p      |bool   |do_print       |NULLOK SV* sv|NN PerlIO* fp
+: Used in pp_sys.c
 pR     |OP*    |do_readline
+: Used in pp.c
 p      |I32    |do_chomp       |NN SV* sv
+: Defined in doio.c, used only in pp_sys.c
 p      |bool   |do_seek        |NULLOK GV* gv|Off_t pos|int whence
 Ap     |void   |do_sprintf     |NN SV* sv|I32 len|NN SV** sarg
+: Defined in doio.c, used only in pp_sys.c
 p      |Off_t  |do_sysseek     |NN GV* gv|Off_t pos|int whence
+: Defined in doio.c, used only in pp_sys.c
 pR     |Off_t  |do_tell        |NN GV* gv
+: Defined in doop.c, used only in pp.c
 p      |I32    |do_trans       |NN SV* sv
+: Used in my.c and pp.c
 p      |UV     |do_vecget      |NN SV* sv|I32 offset|I32 size
+: Defined in doop.c, used only in mg.c (with /* XXX slurp this routine */)
 p      |void   |do_vecset      |NN SV* sv
+: Defined in doop.c, used only in pp.c
 p      |void   |do_vop         |I32 optype|NN SV* sv|NN SV* left|NN SV* right
+: Used in perly.y
 p      |OP*    |dofile         |NN OP* term|I32 force_builtin
 ApR    |I32    |dowantarray
 Ap     |void   |dump_all
@@ -273,17 +316,25 @@ Ap        |void   |dump_sub       |NN const GV* gv
 Apd    |void   |fbm_compile    |NN SV* sv|U32 flags
 ApdR   |char*  |fbm_instr      |NN unsigned char* big|NN unsigned char* bigend 
\
                                |NN SV* littlestr|U32 flags
+: 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
-p      |OP*    |force_list     |NULLOK OP* arg
-p      |OP*    |fold_constants |NN OP *o
+#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+s      |OP*    |force_list     |NULLOK OP* arg
+: FIXME
+s      |OP*    |fold_constants |NN OP *o
+#endif
 Afpd   |char*  |form           |NN const char* pat|...
 Ap     |char*  |vform          |NN const char* pat|NULLOK va_list* args
 Ap     |void   |free_tmps
-p      |OP*    |gen_constant_list|NULLOK OP* o
+#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+s      |OP*    |gen_constant_list|NULLOK OP* o
+#endif
 #if !defined(HAS_GETENV_LEN)
+: Used in hv.c
 p      |char*  |getenv_len     |NN const char *env_elem|NN unsigned long *len
 #endif
+: Used in pp_ctl.c and pp_hot.c
 pox    |void   |get_db_sub     |NULLOK SV **svp|NN CV *cv
 Ap     |void   |gp_free        |NULLOK GV* gv
 Ap     |GP*    |gp_ref         |NULLOK GP* gp
@@ -309,6 +360,7 @@ Ap  |GV*    |gv_fetchpv     |NN const char *nambeg|I32 
add|const svtype sv_type
 Ap     |void   |gv_fullname    |NN SV* sv|NN const GV* gv
 Apmb   |void   |gv_fullname3   |NN SV* sv|NN const GV* gv|NULLOK const char* 
prefix
 Ap     |void   |gv_fullname4   |NN SV* sv|NN const GV* gv|NULLOK const char* 
prefix|bool keepmain
+: Used in scope.c
 pMox   |GP *   |newGP          |NN GV *const gv
 Ap     |void   |gv_init        |NN GV* gv|NULLOK HV* stash|NN const char* 
name|STRLEN len|int multi
 Ap     |void   |gv_name_set    |NN GV* gv|NN const char *name|U32 len|U32 flags
@@ -316,6 +368,7 @@ Apd |HV*    |gv_stashpv     |NN const char* name|I32 flags
 Apd    |HV*    |gv_stashpvn    |NN const char* name|U32 namelen|I32 flags
 Apd    |HV*    |gv_stashsv     |NN SV* sv|I32 flags
 Apd    |void   |hv_clear       |NULLOK HV *hv
+: used in SAVEHINTS() and op.c
 poM    |HV *   |hv_copy_hints_hv|NULLOK HV *const ohv
 Ap     |void   |hv_delayfree_ent|NN HV *hv|NULLOK HE *entry
 Abmd   |SV*    |hv_delete      |NULLOK HV *hv|NN const char *key|I32 klen \
@@ -342,11 +395,15 @@ ApMdR     |HE*    |hv_iternext_flags|NN HV *hv|I32 flags
 ApdR   |SV*    |hv_iterval     |NN HV *hv|NN HE *entry
 Ap     |void   |hv_ksplit      |NN HV *hv|IV newmax
 Apdbm  |void   |hv_magic       |NN HV *hv|NULLOK GV *gv|int how
+: Used in B.xs
 XEdpoM |HV *   |refcounted_he_chain_2hv|NULLOK const struct refcounted_he *c
+: Used in APItest.xs
 XEpoM  |SV *   |refcounted_he_fetch|NULLOK const struct refcounted_he *chain \
                                |NULLOK SV *keysv|NULLOK const char *key \
                                |STRLEN klen, int flags, U32 hash
+: Used in various files
 dpoM   |void   |refcounted_he_free|NULLOK struct refcounted_he *he
+: Used in various files
 XEdpoM |struct refcounted_he *|refcounted_he_new \
                                |NULLOK struct refcounted_he *const parent \
                                |NULLOK SV *const key|NULLOK SV *const value
@@ -370,16 +427,22 @@ ApP       |I32    |ibcmp_locale   |NN const char* a|NN 
const char* b|I32 len
 Apd    |I32    |ibcmp_utf8     |NN const char *s1|NULLOK char **pe1|UV l1 \
                                |bool u1|NN const char *s2|NULLOK char **pe2 \
                                |UV l2|bool u2
-pR     |bool   |ingroup        |Gid_t testgid|bool effective
+#if defined(PERL_IN_DOIO_C) || defined(PERL_DECL_PROT)
+sR     |bool   |ingroup        |Gid_t testgid|bool effective
+#endif
+: Used in toke.c
 p      |void   |init_argv_symbols|int argc|NN char **argv
+: Used in mg.c
 p      |void   |init_debugger
 Ap     |void   |init_stacks
 Ap     |void   |init_tm        |NN struct tm *ptm
+: Used in perly.y
 pd     |U32    |intro_my
 ApPR   |char*  |instr          |NN const char* big|NN const char* little
+: Used in sv.c
 p      |bool   |io_close       |NN IO* io|bool not_implicit
+: Used in perly.y
 pR     |OP*    |invert         |NULLOK OP* cmd
-dpR    |bool   |is_gv_magical  |NN const char *name|STRLEN len|U32 flags
 ApR    |I32    |is_lvalue_sub
 ApPR   |U32    |to_uni_upper_lc|U32 c
 ApPR   |U32    |to_uni_title_lc|U32 c
@@ -436,20 +499,29 @@ ApR       |bool   |is_utf8_print  |NN const U8 *p
 ApR    |bool   |is_utf8_punct  |NN const U8 *p
 ApR    |bool   |is_utf8_xdigit |NN const U8 *p
 ApR    |bool   |is_utf8_mark   |NN const U8 *p
+: Used in perly.y
 p      |OP*    |jmaybe         |NN OP *o
+: Used in pp.c 
 pP     |I32    |keyword        |NN const char *name|I32 len|bool all_keywords
 Ap     |void   |leave_scope    |I32 base
+: Used in pp_ctl.c, and by Data::Alias
 EXp    |void   |lex_end
+: Used in various files
 p      |void   |lex_start      |NULLOK SV* line|NULLOK PerlIO *rsfp|bool 
new_filter
 Ap     |void   |op_null        |NN OP* o
+: FIXME. Used by Data::Alias
 EXp    |void   |op_clear       |NN OP* o
 Ap     |void   |op_refcnt_lock
 Ap     |void   |op_refcnt_unlock
-p      |OP*    |linklist       |NN OP* o
+#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+s      |OP*    |linklist       |NN OP *o
+s      |OP*    |listkids       |NULLOK OP* o
+#endif
+: Used in S_doeval in pp_ctl.c
 p      |OP*    |list           |NULLOK OP* o
-p      |OP*    |listkids       |NULLOK OP* o
 Apd    |void   |load_module|U32 flags|NN SV* name|NULLOK SV* ver|...
 Ap     |void   |vload_module|U32 flags|NN SV* name|NULLOK SV* ver|NULLOK 
va_list* args
+: Used in perly.y
 p      |OP*    |localize       |NN OP *o|I32 lex
 ApdR   |I32    |looks_like_number|NN SV *const sv
 Apd    |UV     |grok_bin       |NN const char* start|NN STRLEN* len_p|NN I32* 
flags|NULLOK NV *result
@@ -457,6 +529,7 @@ Apd |UV     |grok_hex       |NN const char* start|NN 
STRLEN* len_p|NN I32* flags|NULLOK NV
 Apd    |int    |grok_number    |NN const char *pv|STRLEN len|NULLOK UV *valuep
 ApdR   |bool   |grok_numeric_radix|NN const char **sp|NN const char *send
 Apd    |UV     |grok_oct       |NN const char* start|NN STRLEN* len_p|NN I32* 
flags|NULLOK NV *result
+: These are all indirectly referenced by globals.c. This is somewhat annoying.
 p      |int    |magic_clearenv |NN SV* sv|NN MAGIC* mg
 p      |int    |magic_clear_all_env|NN SV* sv|NN MAGIC* mg
 dp     |int    |magic_clearhint|NN SV* sv|NN MAGIC* mg
@@ -504,21 +577,24 @@ p |int    |magic_setutf8  |NN SV* sv|NN MAGIC* mg
 p      |int    |magic_set_all_env|NN SV* sv|NN MAGIC* mg
 p      |U32    |magic_sizepack |NN SV* sv|NN MAGIC* mg
 p      |int    |magic_wipepack |NN SV* sv|NN MAGIC* mg
-p      |void   |magicname      |NN const char* sym|NULLOK const char* name|I32 
namlen
 Ap     |void   |markstack_grow
 #if defined(USE_LOCALE_COLLATE)
 p      |int    |magic_setcollxfrm|NN SV* sv|NN MAGIC* mg
+: Defined in locale.c, used only in sv.c
 p      |char*  |mem_collxfrm   |NN const char* s|STRLEN len|NN STRLEN* xlen
 #endif
 Afp    |SV*    |mess           |NN const char* pat|...
 Ap     |SV*    |vmess          |NN const char* pat|NULLOK va_list* args
+: FIXME - either make it public, or stop exporting it. (Data::Alias uses this)
+: Used in gv.c, op.c, toke.c
 EXp    |void   |qerror         |NN SV* err
 Apd    |void   |sortsv         |NULLOK SV** array|size_t num_elts|NN 
SVCOMPARE_t cmp
 Apd    |void   |sortsv_flags   |NULLOK SV** array|size_t num_elts|NN 
SVCOMPARE_t cmp|U32 flags
 Apd    |int    |mg_clear       |NN SV* sv
 Apd    |int    |mg_copy        |NN SV *sv|NN SV *nsv|NULLOK const char *key \
                                |I32 klen
-pd     |void   |mg_localize    |NN SV* sv|NN SV* nsv
+: Defined in mg.c, used only in scope.c
+pd     |void   |mg_localize    |NN SV* sv|NN SV* nsv|bool setmagic
 ApdR   |MAGIC* |mg_find        |NULLOK const SV* sv|int type
 Apd    |int    |mg_free        |NN SV* sv
 Apd    |int    |mg_get         |NN SV* sv
@@ -527,10 +603,11 @@ Apd       |void   |mg_magical     |NN SV* sv
 Apd    |int    |mg_set         |NN SV* sv
 Ap     |I32    |mg_size        |NN SV* sv
 Ap     |void   |mini_mktime    |NN struct tm *ptm
+: Used by MOD(), which Data::Alias uses
 EXp    |OP*    |mod            |NULLOK OP* o|I32 type
+: Used in op.c and pp_sys.c
 p      |int    |mode_from_discipline|NULLOK const char* s|STRLEN len
 Ap     |const char*    |moreswitches   |NN const char* s
-p      |OP*    |my             |NN OP* o
 Ap     |NV     |my_atof        |NN const char *s
 #if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && 
!defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
 Anp    |char*  |my_bcopy       |NN const char* from|NN char* to|I32 len
@@ -562,6 +639,7 @@ ApPa        |short  |my_swap        |short s
 ApPa   |long   |my_htonl       |long l
 ApPa   |long   |my_ntohl       |long l
 #endif
+: Used in pp_ctl.c
 p      |void   |my_unexec
 Apa    |OP*    |newANONLIST    |NULLOK OP* o
 Apa    |OP*    |newANONHASH    |NULLOK OP* o
@@ -643,28 +721,41 @@ Apd       |SV*    |vnumify        |NN SV *vs
 Apd    |SV*    |vnormal        |NN SV *vs
 Apd    |SV*    |vstringify     |NN SV *vs
 Apd    |int    |vcmp           |NN SV *lhv|NN SV *rhv
+: Used in pp_hot.c and pp_sys.c
 p      |PerlIO*|nextargv       |NN GV* gv
 ApP    |char*  |ninstr         |NN const char* big|NN const char* bigend \
                                |NN const char* little|NN const char* lend
-pr     |OP*    |oopsCV         |NN OP* o
 Ap     |void   |op_free        |NULLOK OP* arg
+: Used in perly.y
 #ifdef PERL_MAD
 p      |OP*    |package        |NN OP* o
 #else
 p      |void   |package        |NN OP* o
 #endif
+: Used in op.c
 pd     |PADOFFSET|pad_alloc    |I32 optype|U32 tmptype
+: Used in toke.c and perly.y
 p      |PADOFFSET|allocmy      |NN const char *const name
+: Used in op.c and toke.c
 pdR    |PADOFFSET|pad_findmy   |NN const char* name
 Ap     |PADOFFSET|find_rundefsvoffset  |
+: Used in perly.y
 pR     |OP*    |oopsAV         |NN OP* o
+: Used in perly.y
 pR     |OP*    |oopsHV         |NN OP* o
+: Defined in pad.c, used only in op.c
 pd     |void   |pad_leavemy
 Apd    |SV*    |pad_sv         |PADOFFSET po
+: Defined in pad.c, used only in op.c
 pd     |void   |pad_free       |PADOFFSET po
-pd     |void   |pad_reset
+#if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
+sd     |void   |pad_reset
+#endif
+: Used in op.c
 pd     |void   |pad_swipe      |PADOFFSET po|bool refadjust
+: FIXME
 p      |void   |peep           |NULLOK OP* o
+: Defined in doio.c, used only in pp_hot.c
 dopM   |PerlIO*|start_glob     |NN SV *tmpglob|NN IO *io
 #if defined(USE_REENTRANT_API)
 Ap     |void   |reentrant_size
@@ -681,9 +772,9 @@ Ap  |void   |despatch_signals
 Ap     |OP *   |doref          |NN OP *o|I32 type|bool set_op_ref
 Apd    |SV*    |eval_pv        |NN const char* p|I32 croak_on_error
 Apd    |I32    |eval_sv        |NN SV* sv|I32 flags
-Apd    |SV*    |get_sv         |NN const char* name|I32 create
-Apd    |AV*    |get_av         |NN const char* name|I32 create
-Apd    |HV*    |get_hv         |NN const char* name|I32 create
+Apd    |SV*    |get_sv         |NN const char *name|I32 flags
+Apd    |AV*    |get_av         |NN const char *name|I32 flags
+Apd    |HV*    |get_hv         |NN const char *name|I32 flags
 Apd    |CV*    |get_cv         |NN const char* name|I32 flags
 Apd    |CV*    |get_cvn_flags  |NN const char* name|STRLEN len|I32 flags
 Ap     |int    |init_i18nl10n  |int printwarn
@@ -698,17 +789,23 @@ Apd       |void   |require_pv     |NN const char* pv
 Apd    |void   |pack_cat       |NN SV *cat|NN const char *pat|NN const char 
*patend \
                                |NN SV **beglist|NN SV **endlist|NN SV 
***next_in_list|U32 flags
 Apd    |void   |packlist       |NN SV *cat|NN const char *pat|NN const char 
*patend|NN SV **beglist|NN SV **endlist
-#ifdef PERL_USES_PL_PIDSTATUS
-p      |void   |pidgone        |Pid_t pid|int status
+#if defined(PERL_USES_PL_PIDSTATUS) && defined(PERL_IN_UTIL_C)
+s      |void   |pidgone        |Pid_t pid|int status
 #endif
 Ap     |void   |pmflag         |NN U32* pmfl|int ch
+: Used in perly.y
 p      |OP*    |pmruntime      |NN OP *o|NN OP *expr|bool isreg
-p      |OP*    |pmtrans        |NN OP* o|NN OP* expr|NN OP* repl
+#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+s      |OP*    |pmtrans        |NN OP* o|NN OP* expr|NN OP* repl
+#endif
 Ap     |void   |pop_scope
+: Used in perly.y
 p      |OP*    |prepend_elem   |I32 optype|NULLOK OP* head|NULLOK OP* tail
 Ap     |void   |push_scope
 Amb    |OP*    |ref            |NULLOK OP* o|I32 type
-p      |OP*    |refkids        |NULLOK OP* o|I32 type
+#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+s      |OP*    |refkids        |NULLOK OP* o|I32 type
+#endif
 Ap     |void   |regdump        |NN const regexp* r
 Ap     |void   |regdump        |NN const regexp* r
 Ap     |SV*    |regclass_swash |NULLOK const regexp *prog \
@@ -719,13 +816,14 @@ Ap        |I32    |pregexec       |NN REGEXP * const 
prog|NN char* stringarg \
                                |NN SV* screamer|U32 nosave
 Ap     |void   |pregfree       |NULLOK REGEXP* r
 Ap     |void   |pregfree2      |NN REGEXP *rx
+: FIXME - is anything in re using this now?
 EXp    |REGEXP*|reg_temp_copy  |NN REGEXP* r
 Ap     |void   |regfree_internal|NN REGEXP *const rx
 #if defined(USE_ITHREADS)
 Ap     |void*  |regdupe_internal|NN REGEXP * const r|NN CLONE_PARAMS* param
 #endif
-Ap     |REGEXP*|pregcomp       |NN const SV * const pattern|const U32 flags
-Ap     |REGEXP*|re_compile     |NN const SV * const pattern|U32 flags
+Ap     |REGEXP*|pregcomp       |NN SV * const pattern|const U32 flags
+Ap     |REGEXP*|re_compile     |NN SV * const pattern|U32 flags
 Ap     |char*  |re_intuit_start|NN REGEXP * const rx|NULLOK SV* sv|NN char* 
strpos \
                                |NN char* strend|const U32 flags \
                                |NULLOK re_scream_pos_data *data
@@ -746,24 +844,35 @@ Ap |SV*|reg_named_buff_nextkey  |NN REGEXP * const 
rx|const U32 flags
 Ap |SV*|reg_named_buff_scalar   |NN REGEXP * const rx|const U32 flags
 Ap |SV*|reg_named_buff_all      |NN REGEXP * const rx|const U32 flags
 
+: FIXME - is anything in re using this now?
 EXp    |void|reg_numbered_buff_fetch|NN REGEXP * const rx|const I32 
paren|NULLOK SV * const sv
+: FIXME - is anything in re using this now?
 EXp    |void|reg_numbered_buff_store|NN REGEXP * const rx|const I32 
paren|NULLOK SV const * const value
+: FIXME - is anything in re using this now?
 EXp    |I32|reg_numbered_buff_length|NN REGEXP * const rx|NN const SV * const 
sv|const I32 paren
 
+: FIXME - is anything in re using this now?
 EXp    |SV*|reg_qr_package|NN REGEXP * const rx
 
+: FIXME - why the E?
 Ep     |void   |regprop        |NULLOK const regexp *prog|NN SV* sv|NN const 
regnode* o
 Ap     |void   |repeatcpy      |NN char* to|NN const char* from|I32 len|I32 
count
 ApP    |char*  |rninstr        |NN const char* big|NN const char* bigend \
                                |NN const char* little|NN const char* lend
 Ap     |Sighandler_t|rsignal   |int i|Sighandler_t t
+: Used in pp_sys.c
 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
-p      |void   |rxres_free     |NN void** rsp
-p      |void   |rxres_restore  |NN void **rsp|NN REGEXP *rx
+#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
+s      |void   |rxres_free     |NN void** rsp
+s      |void   |rxres_restore  |NN void **rsp|NN REGEXP *rx
+#endif
+: Used in pp_hot.c
 p      |void   |rxres_save     |NN void **rsp|NN REGEXP *rx
 #if !defined(HAS_RENAME)
+: Used in pp_sys.c
 p      |I32    |same_dirent    |NN const char* a|NN const char* b
 #endif
 Apda   |char*  |savepv         |NULLOK const char* pv
@@ -780,17 +889,21 @@ Ap        |AV*    |save_ary       |NN GV* gv
 Ap     |void   |save_bool      |NN bool* boolp
 Ap     |void   |save_clearsv   |NN SV** svp
 Ap     |void   |save_delete    |NN HV *hv|NN char *key|I32 klen
+Ap     |void   |save_adelete   |NN AV *av|I32 key
 Ap     |void   |save_destructor|DESTRUCTORFUNC_NOCONTEXT_t f|NN void* p
 Ap     |void   |save_destructor_x|DESTRUCTORFUNC_t f|NULLOK void* p
-Ap     |void   |save_freesv    |NULLOK SV* sv
-p      |void   |save_freeop    |NULLOK OP* o
-Ap     |void   |save_freepv    |NULLOK char* pv
+Apmb   |void   |save_freesv    |NULLOK SV* sv
+: Used in SAVEFREOP(), used in op.c, pp_ctl.c
+pmb    |void   |save_freeop    |NULLOK OP* o
+Apmb   |void   |save_freepv    |NULLOK char* pv
 Ap     |void   |save_generic_svref|NN SV** sptr
 Ap     |void   |save_generic_pvref|NN char** str
 Ap     |void   |save_shared_pvref|NN char** str
 Ap     |void   |save_gp        |NN GV* gv|I32 empty
 Ap     |HV*    |save_hash      |NN GV* gv
-Ap     |void   |save_helem     |NN HV *hv|NN SV *key|NN SV **sptr
+p      |void   |save_hints
+Amp    |void   |save_helem     |NN HV *hv|NN SV *key|NN SV **sptr
+Ap     |void   |save_helem_flags|NN HV *hv|NN SV *key|NN SV **sptr|const U32 
flags
 Ap     |void   |save_hptr      |NN HV** hptr
 Ap     |void   |save_I16       |NN I16* intp
 Ap     |void   |save_I32       |NN I32* intp
@@ -800,9 +913,10 @@ Ap |void   |save_item      |NN SV* item
 Ap     |void   |save_iv        |NN IV *ivp
 Ap     |void   |save_list      |NN SV** sarg|I32 maxsarg
 Ap     |void   |save_long      |NN long* longp
-Ap     |void   |save_mortalizesv|NN SV* sv
+Apmb   |void   |save_mortalizesv|NN SV* sv
 Ap     |void   |save_nogv      |NN GV* gv
-p      |void   |save_op
+: Used in SAVEFREOP(), used in gv.c, op.c, perl.c, pp_ctl.c, pp_sort.c
+pmb    |void   |save_op
 Ap     |SV*    |save_scalar    |NN GV* gv
 Ap     |void   |save_pptr      |NN char** pptr
 Ap     |void   |save_vptr      |NN void *ptr
@@ -810,24 +924,38 @@ Ap        |void   |save_re_context
 Ap     |void   |save_padsv_and_mortalize|PADOFFSET off
 Ap     |void   |save_sptr      |NN SV** sptr
 Ap     |SV*    |save_svref     |NN SV** sptr
+Ap     |void   |save_pushptr   |NULLOK void *const ptr|const int type
+: Used by SAVECOPARYBASE() in op.c
+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)
+s      |void   |save_pushptri32ptr|NULLOK void *const ptr1|const I32 i \
+                               |NULLOK void *const ptr2|const int type
+#endif
+: Used in perly.y
 p      |OP*    |sawparens      |NULLOK OP* o
+: Used in perly.y
 p      |OP*    |scalar         |NULLOK OP* o
-p      |OP*    |scalarkids     |NULLOK OP* o
-p      |OP*    |scalarseq      |NULLOK OP* o
+#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+s      |OP*    |scalarkids     |NULLOK OP* o
+s      |OP*    |scalarseq      |NULLOK OP* o
+#endif
+: Used in pp_ctl.c
 p      |OP*    |scalarvoid     |NN OP* o
 Apd    |NV     |scan_bin       |NN const char* start|STRLEN len|NN STRLEN* 
retlen
 Apd    |NV     |scan_hex       |NN const char* start|STRLEN len|NN STRLEN* 
retlen
 Ap     |char*  |scan_num       |NN const char* s|NN YYSTYPE *lvalp
 Apd    |NV     |scan_oct       |NN const char* start|STRLEN len|NN STRLEN* 
retlen
+: Used in perly.y
 p      |OP*    |scope          |NULLOK OP* o
 Ap     |char*  |screaminstr    |NN SV *bigstr|NN SV *littlestr|I32 start_shift 
\
                                |I32 end_shift|NN I32 *old_posp|I32 last
-#if !defined(VMS)
-p      |I32    |setenv_getix   |NN const char* nam
-#endif
-EXp    |void   |setdefout      |NULLOK GV* gv
+Apd    |void   |setdefout      |NULLOK GV* gv
 Ap     |HEK*   |share_hek      |NN const char* str|I32 len|U32 hash
 #if defined(HAS_SIGACTION) && defined(SA_SIGINFO)
+: Used in perl.c
 np     |Signal_t |sighandler   |int sig|NULLOK siginfo_t *info|NULLOK void *uap
 Anp    |Signal_t |csighandler  |int sig|NULLOK siginfo_t *info|NULLOK void *uap
 #else
@@ -836,12 +964,13 @@ Anp       |Signal_t |csighandler  |int sig
 #endif
 Ap     |SV**   |stack_grow     |NN SV** sp|NN SV** p|int n
 Ap     |I32    |start_subparse |I32 is_format|U32 flags
+: Used in pp_ctl.c
 p      |void   |sub_crush_depth|NN CV* cv
 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
-#ifdef PERL_IN_SV_C
+#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
 s      |bool   |glob_2number   |NN GV* const gv
 s      |char*  |glob_2pv       |NN GV* const gv|NULLOK STRLEN * const len
 #endif
@@ -849,6 +978,7 @@ Amb |IV     |sv_2iv         |NULLOK SV *sv
 Apd    |IV     |sv_2iv_flags   |NULLOK SV *const sv|const I32 flags
 Apd    |SV*    |sv_2mortal     |NULLOK SV *const sv
 Apd    |NV     |sv_2nv         |NULLOK SV *const sv
+: Used in pp.c, pp_hot.c, sv.c
 pMd    |SV*    |sv_2num        |NN SV *const sv
 Amb    |char*  |sv_2pv         |NULLOK SV *sv|NULLOK STRLEN *lp
 Apd    |char*  |sv_2pv_flags   |NULLOK SV *const sv|NULLOK STRLEN *const 
lp|const I32 flags
@@ -864,7 +994,10 @@ 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
-pd     |void   |sv_add_arena   |NN char *const ptr|const U32 size|const U32 
flags
+#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+sd     |void   |sv_add_arena   |NN char *const ptr|const U32 size \
+                               |const U32 flags
+#endif
 Apd    |int    |sv_backoff     |NN SV *const sv
 Apd    |SV*    |sv_bless       |NN SV *const sv|NN HV *const stash
 Afpd   |void   |sv_catpvf      |NN SV *const sv|NN const char *const pat|...
@@ -874,7 +1007,9 @@ Apd        |void   |sv_catpv       |NN SV *const sv|NULLOK 
const char* ptr
 Amdb   |void   |sv_catpvn      |NN SV *dsv|NN const char *sstr|STRLEN len
 Amdb   |void   |sv_catsv       |NN SV *dstr|NULLOK SV *sstr
 Apd    |void   |sv_chop        |NN SV *const sv|NULLOK const char *const ptr
+: Used only in perl.c
 pd     |I32    |sv_clean_all
+: Used only in perl.c
 pd     |void   |sv_clean_objs
 Apd    |void   |sv_clear       |NN SV *const sv
 Apd    |I32    |sv_cmp         |NULLOK SV *const sv1|NULLOK SV *const sv2
@@ -891,7 +1026,10 @@ ApdR      |bool   |sv_derived_from|NN SV* sv|NN const 
char *const name
 ApdR   |bool   |sv_does        |NN SV* sv|NN const char *const name
 Apd    |I32    |sv_eq          |NULLOK SV* sv1|NULLOK SV* sv2
 Apd    |void   |sv_free        |NULLOK SV *const sv
+: FIXME Used in SvREFCNT_dec() but only
+: if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
 poMX   |void   |sv_free2       |NN SV *const sv
+: Used only in perl.c
 pd     |void   |sv_free_arenas
 Apd    |char*  |sv_gets        |NN SV *const sv|NN PerlIO *const fp|I32 append
 Apd    |char*  |sv_grow        |NN SV *const sv|STRLEN newlen
@@ -978,7 +1116,9 @@ Apd        |I32    |unpack_str     |NN const char *pat|NN 
const char *patend|NN const char *s
 Apd    |I32    |unpackstring   |NN const char *pat|NN const char *patend|NN 
const char *s \
                                |NN const char *strend|U32 flags
 Ap     |void   |unsharepvn     |NULLOK const char* sv|I32 len|U32 hash
+: Used in gv.c, hv.c
 p      |void   |unshare_hek    |NULLOK HEK* hek
+: Used in perly.y
 #ifdef PERL_MAD
 p      |OP *   |utilize        |int aver|I32 floor|NULLOK OP* version \
                                |NN OP* idop|NULLOK OP* arg
@@ -1015,26 +1155,41 @@ Ap      |U8*    |uvchr_to_utf8_flags    |NN U8 *d|UV 
uv|UV flags
 Apd    |U8*    |uvuni_to_utf8_flags    |NN U8 *d|UV uv|UV flags
 Apd    |char*  |pv_uni_display |NN SV *dsv|NN const U8 *spv|STRLEN len|STRLEN 
pvlim|UV flags
 ApdR   |char*  |sv_uni_display |NN SV *dsv|NN SV *ssv|STRLEN pvlim|UV flags
+: Used by Data::Alias
 EXp    |void   |vivify_defelem |NN SV* sv
+: Used in pp.c
 p      |void   |vivify_ref     |NN SV* sv|U32 to_what
+: Used in pp_sys.c
 p      |I32    |wait4pid       |Pid_t pid|NN int* statusp|int flags
+: Used in locale.c and perl.c
 p      |U32    |parse_unicode_opts|NN const char **popt
 Ap     |U32    |seed
+: Only used in perl.c
 pR     |UV     |get_hash_seed
+: Used in doio.c, pp_hot.c, pp_sys.c
 p      |void   |report_evil_fh |NULLOK const GV *gv|NULLOK const IO *io|I32 op
-XEpd   |void   |report_uninit  |NULLOK SV* uninit_sv
+: Used in mg.c, pp.c, pp_hot.c, regcomp.c
+XEpd   |void   |report_uninit  |NULLOK const SV *uninit_sv
 Afpd   |void   |warn           |NN const char* pat|...
 Ap     |void   |vwarn          |NN const char* pat|NULLOK va_list* args
 Afp    |void   |warner         |U32 err|NN const char* pat|...
 Ap     |void   |vwarner        |U32 err|NN const char* pat|NULLOK va_list* args
+: FIXME
 p      |void   |watch          |NN char** addr
 Ap     |I32    |whichsig       |NN const char* sig
+: Used in pp_ctl.c
 p      |void   |write_to_stderr|NN const char* message|int msglen
+: Used in op.c
 p      |int    |yyerror        |NN const char *const s
+: Used in perly.y, and by Data::Alias
 EXp    |int    |yylex
+: Used in perl.c, pp_ctl.c
 p      |int    |yyparse
+: Only used in scope.c
 p      |void   |parser_free    |NN const yy_parser *parser
-p      |int    |yywarn         |NN const char *const s
+#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
+s      |int    |yywarn         |NN const char *const s
+#endif
 #if defined(MYMALLOC)
 Ap     |void   |dump_mstats    |NN const char* s
 Ap     |int    |get_mstats     |NN perl_mstats_t *buf|int buflen|int level
@@ -1103,6 +1258,7 @@ AmdbR     |char*  |sv_pv          |NN SV *sv
 AmdbR  |char*  |sv_pvutf8      |NN SV *sv
 AmdbR  |char*  |sv_pvbyte      |NN SV *sv
 Amdb   |STRLEN |sv_utf8_upgrade|NN SV *sv
+Amd    |STRLEN |sv_utf8_upgrade_nomg|NN SV *sv
 ApdM   |bool   |sv_utf8_downgrade|NN SV *const sv|const bool fail_ok
 Apd    |void   |sv_utf8_encode |NN SV *const sv
 ApdM   |bool   |sv_utf8_decode |NN SV *const sv
@@ -1110,6 +1266,7 @@ Apdmb     |void   |sv_force_normal|NN SV *sv
 Apd    |void   |sv_force_normal_flags|NN SV *const sv|const U32 flags
 Ap     |void   |tmps_grow      |I32 n
 Apd    |SV*    |sv_rvweaken    |NN SV *const sv
+: This is indirectly referenced by globals.c. This is somewhat annoying.
 p      |int    |magic_killbackrefs|NN SV *sv|NN MAGIC *mg
 Ap     |OP*    |newANONATTRSUB |I32 floor|NULLOK OP *proto|NULLOK OP 
*attrs|NULLOK OP *block
 Ap     |CV*    |newATTRSUB     |I32 floor|NULLOK OP *o|NULLOK OP *proto|NULLOK 
OP *attrs|NULLOK OP *block
@@ -1119,7 +1276,9 @@ Apr       |OP *   |newMYSUB       |I32 floor|NULLOK OP 
*o|NULLOK OP *proto \
 #else
 Apr    |void   |newMYSUB       |I32 floor|NULLOK OP *o|NULLOK OP *proto|NULLOK 
OP *attrs|NULLOK OP *block
 #endif
+: Used in perly.y
 p      |OP *   |my_attrs       |NN OP *o|NULLOK OP *attrs
+: Only used in perl.c
 p      |void   |boot_core_xsutils
 #if defined(USE_ITHREADS)
 ApR    |PERL_CONTEXT*|cx_dup   |NULLOK PERL_CONTEXT* cx|I32 ix|I32 max|NN 
CLONE_PARAMS* param
@@ -1187,6 +1346,7 @@ s |HV*    |require_tie_mod|NN GV *gv|NN const char 
*varpv|NN SV* namesv \
 #endif
 
 : #if defined(PERL_IN_HV_C) || defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+: Used in hv.c
 paRxo  |void*  |get_arena      |const size_t svtype|const U32 misc
 : #endif
 
@@ -1218,6 +1378,7 @@ s |void   |unwind_handler_stack|NN const void *p
 #endif
 
 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+: 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
@@ -1271,6 +1432,7 @@ s |void   |cop_free       |NN COP *cop
 s      |OP*    |modkids        |NULLOK OP *o|I32 type
 s      |OP*    |scalarboolean  |NN OP *o
 sR     |OP*    |newDEFSVOP
+sR     |OP*    |search_const   |NN OP *o
 sR     |OP*    |new_logop      |I32 type|I32 flags|NN OP **firstp|NN OP 
**otherp
 s      |void   |simplify_sort  |NN OP *o
 s      |const char*    |gv_ename       |NN GV *gv
@@ -1296,8 +1458,11 @@ s        |void   |process_special_blocks |NN const char 
*const fullname\
 Apa    |void*  |Slab_Alloc     |size_t sz
 Ap     |void   |Slab_Free      |NN void *op
 #  if defined(PERL_DEBUG_READONLY_OPS)
+: Used in perl.c
 poxM   |void   |pending_Slabs_to_ro
+: Used in OpREFCNT_inc() in sv.c
 poxM   |OP *   |op_refcnt_inc  |NULLOK OP *o
+: FIXME - can be static.
 poxM   |PADOFFSET      |op_refcnt_dec  |NN OP *o
 #    if defined(PERL_IN_OP_C)
 s      |void   |Slab_to_rw     |NN void *op
@@ -1308,7 +1473,9 @@ s |void   |Slab_to_rw     |NN void *op
 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
 s      |void   |find_beginning |NN SV* linestr_sv|NN PerlIO *rsfp
 s      |void   |forbid_setid   |const char flag|const bool suidscript
-s      |void   |incpush        |NULLOK const char *dir|bool addsubdirs|bool 
addoldvers|bool usesep|bool canrelocate
+s      |void   |incpush        |NN const char *const dir|STRLEN len \
+                               |U32 flags
+s      |void   |incpush_use_sep|NN const char *p|STRLEN len|U32 flags
 s      |void   |init_interp
 s      |void   |init_ids
 s      |void   |init_main_stash
@@ -1320,36 +1487,20 @@ s       |void   |nuke_stacks
 s      |int    |open_script    |NN const char *scriptname|bool dosearch \
                                |NN bool *suidscript|NN PerlIO **rsfpp
 s      |void   |usage          |NN const char *name
-#ifdef DOSUID
**** PATCH TRUNCATED AT 1000 LINES -- 435 NOT SHOWN ****

--
Perl5 Master Repository

Reply via email to