This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
more embed cleanup
authorAndy Lester <andy@petdance.com>
Fri, 15 Jul 2005 10:51:15 +0000 (05:51 -0500)
committerSteve Hay <SteveHay@planit.com>
Fri, 15 Jul 2005 16:30:05 +0000 (16:30 +0000)
Message-ID: <20050715155115.GC29983@petdance.com>

(and run regen.pl)

p4raw-id: //depot/perl@25156

14 files changed:
dump.c
embed.fnc
embed.h
hv.c
mg.c
op.c
perl.c
pp_ctl.c
pp_hot.c
pp_pack.c
proto.h
regcomp.c
sv.c
utf8.c

diff --git a/dump.c b/dump.c
index ee65a62..8205132 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -154,7 +154,7 @@ char *
 Perl_sv_peek(pTHX_ SV *sv)
 {
     dVAR;
-    SV *t = sv_newmortal();
+    SV * const t = sv_newmortal();
     int unref = 0;
 
     sv_setpvn(t, "", 0);
index 4669f7d..a3d0357 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -107,7 +107,7 @@ Apd |SV*    |av_pop         |NULLOK AV* ar
 Apd    |void   |av_push        |NULLOK AV* ar|NN SV* val
 p      |void   |av_reify       |NN AV* ar
 ApdR   |SV*    |av_shift       |NULLOK AV* ar
-Apd    |SV**   |av_store       |NULLOK AV* ar|I32 key|SV* val
+Apd    |SV**   |av_store       |NULLOK AV* ar|I32 key|NULLOK SV* val
 Apd    |void   |av_undef       |NULLOK AV* ar
 Apd    |void   |av_unshift     |NULLOK AV* ar|I32 num
 Apo    |SV**   |av_arylen_p    |NN AV* av
@@ -128,7 +128,7 @@ ApR |I32    |my_chsize      |int fd|Off_t length
 #endif
 pR     |OP*    |convert        |I32 optype|I32 flags|NULLOK OP* o
 Afprd  |void   |croak          |NN const char* pat|...
-Apr    |void   |vcroak         |NN const char* pat|va_list* args
+Apr    |void   |vcroak         |NN const char* pat|NULLOK va_list* args
 #if defined(PERL_IMPLICIT_CONTEXT)
 Afnrp  |void   |croak_nocontext|NN const char* pat|...
 Afnp   |OP*    |die_nocontext  |NN const char* pat|...
@@ -162,7 +162,7 @@ pPR |U32*   |get_opargs
 ApPR   |PPADDR_t*|get_ppaddr
 EpR    |I32    |cxinc
 Afp    |void   |deb            |NN const char* pat|...
-Ap     |void   |vdeb           |NN const char* pat|va_list* args
+Ap     |void   |vdeb           |NN const char* pat|NULLOK va_list* args
 Ap     |void   |debprofdump
 Ap     |I32    |debop          |NN const OP* o
 Ap     |I32    |debstack
@@ -241,8 +241,8 @@ p   |char*  |find_script    |const char *scriptname|bool dosearch \
                                |const char **search_ext|I32 flags
 p      |OP*    |force_list     |NN OP* arg
 p      |OP*    |fold_constants |NN OP* arg
-Afpd   |char*  |form           |const char* pat|...
-Ap     |char*  |vform          |const char* pat|va_list* args
+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|OP* o
 #if !defined(HAS_GETENV_LEN)
@@ -282,7 +282,7 @@ ApdR        |bool   |hv_exists      |HV* tb|const char* key|I32 klen
 ApdR   |bool   |hv_exists_ent  |HV* tb|SV* key|U32 hash
 Apd    |SV**   |hv_fetch       |HV* tb|const char* key|I32 klen|I32 lval
 Apd    |HE*    |hv_fetch_ent   |HV* tb|SV* key|I32 lval|U32 hash
-Ap     |void   |hv_free_ent    |NN HV* hv|HE* entry
+Ap     |void   |hv_free_ent    |NN HV* hv|NULLOK HE* entry
 Apd    |I32    |hv_iterinit    |NN HV* tb
 ApdR   |char*  |hv_iterkey     |NN HE* entry|NN I32* retlen
 ApdR   |SV*    |hv_iterkeysv   |NN HE* entry
@@ -372,15 +372,15 @@ pP        |I32    |keyword        |NN const char* d|I32 len
 Ap     |void   |leave_scope    |I32 base
 p      |void   |lex_end
 p      |void   |lex_start      |SV* line
-Ap     |void   |op_null        |OP* o
-p      |void   |op_clear       |OP* o
+Ap     |void   |op_null        |NN OP* o
+p      |void   |op_clear       |NN OP* o
 Ap     |void   |op_refcnt_lock
 Ap     |void   |op_refcnt_unlock
-p      |OP*    |linklist       |OP* o
-p      |OP*    |list           |OP* o
-p      |OP*    |listkids       |OP* o
-Apd    |void   |load_module|U32 flags|SV* name|SV* ver|...
-Ap     |void   |vload_module|U32 flags|SV* name|SV* ver|va_list* args
+p      |OP*    |linklist       |NN OP* o
+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
 p      |OP*    |localize       |OP* arg|I32 lexical
 ApdR   |I32    |looks_like_number|NN SV* sv
 Apd    |UV     |grok_bin       |NN const char* start|NN STRLEN* len_p|NN I32* flags|NV *result
@@ -443,8 +443,8 @@ Ap  |void   |markstack_grow
 p      |int    |magic_setcollxfrm|SV* sv|MAGIC* mg
 p      |char*  |mem_collxfrm   |const char* s|STRLEN len|STRLEN* xlen
 #endif
-Afp    |SV*    |mess           |const char* pat|...
-Ap     |SV*    |vmess          |const char* pat|va_list* args
+Afp    |SV*    |mess           |NN const char* pat|...
+Ap     |SV*    |vmess          |NN const char* pat|NULLOK va_list* args
 p      |void   |qerror         |SV* err
 Apd     |void   |sortsv         |SV ** array|size_t num_elts|SVCOMPARE_t cmp
 Apd    |int    |mg_clear       |SV* sv
@@ -497,10 +497,10 @@ p |void   |my_unexec
 Apa    |OP*    |newANONLIST    |OP* o
 Apa    |OP*    |newANONHASH    |OP* o
 Ap     |OP*    |newANONSUB     |I32 floor|OP* proto|OP* block
-Apa    |OP*    |newASSIGNOP    |I32 flags|OP* left|I32 optype|OP* right
-Apa    |OP*    |newCONDOP      |I32 flags|OP* expr|OP* trueop|OP* falseop
-Apd    |CV*    |newCONSTSUB    |HV* stash|const char* name|SV* sv
-Ap     |void   |newFORM        |I32 floor|OP* o|OP* block
+Apa    |OP*    |newASSIGNOP    |I32 flags|NULLOK OP* left|I32 optype|NULLOK OP* right
+Apa    |OP*    |newCONDOP      |I32 flags|NN OP* first|NULLOK OP* trueop|NULLOK OP* falseop
+Apd    |CV*    |newCONSTSUB    |NULLOK HV* stash|NN const char* name|NULLOK SV* sv
+Ap     |void   |newFORM        |I32 floor|NULLOK OP* o|NULLOK OP* block
 Apa    |OP*    |newFOROP       |I32 flags|char* label|line_t forline \
                                |OP* sclr|OP* expr|OP*block|OP*cont
 Apa    |OP*    |newLOGOP       |I32 optype|I32 flags|OP* left|OP* right
@@ -541,8 +541,8 @@ Apda        |SV*    |newSVpv        |const char* s|STRLEN len
 Apda   |SV*    |newSVpvn       |const char* s|STRLEN len
 Apda   |SV*    |newSVhek       |const HEK *hek
 Apda   |SV*    |newSVpvn_share |const char* s|I32 len|U32 hash
-Afpda  |SV*    |newSVpvf       |const char* pat|...
-Ap     |SV*    |vnewSVpvf      |const char* pat|va_list* args
+Afpda  |SV*    |newSVpvf       |NN const char* pat|...
+Apa    |SV*    |vnewSVpvf      |NN const char* pat|NULLOK va_list* args
 Apda   |SV*    |newSVrv        |NN SV* rv|NULLOK const char* classname
 Apda   |SV*    |newSVsv        |NULLOK SV* old
 Apa    |OP*    |newUNOP        |I32 type|I32 flags|OP* first
@@ -587,7 +587,7 @@ Ap  |void   |call_atexit    |ATEXIT_t fn|void *ptr
 Apd    |I32    |call_argv      |NN const char* sub_name|I32 flags|NN char** argv
 Apd    |I32    |call_method    |NN const char* methname|I32 flags
 Apd    |I32    |call_pv        |NN const char* sub_name|I32 flags
-Apd    |I32    |call_sv        |SV* sv|I32 flags
+Apd    |I32    |call_sv        |NN SV* sv|I32 flags
 Ap     |void   |despatch_signals
 Apd    |SV*    |eval_pv        |NN const char* p|I32 croak_on_error
 Apd    |I32    |eval_sv        |NN SV* sv|I32 flags
@@ -665,64 +665,64 @@ Ap        |void   |save_freepv    |char* pv
 Ap     |void   |save_generic_svref|SV** sptr
 Ap     |void   |save_generic_pvref|char** str
 Ap     |void   |save_shared_pvref|char** str
-Ap     |void   |save_gp        |GV* gv|I32 empty
-Ap     |HV*    |save_hash      |GV* gv
+Ap     |void   |save_gp        |NN GV* gv|I32 empty
+Ap     |HV*    |save_hash      |NN GV* gv
 Ap     |void   |save_helem     |HV* hv|SV *key|SV **sptr
 Apr    |void   |save_hints
-Ap     |void   |save_hptr      |HV** hptr
-Ap     |void   |save_I16       |I16* intp
-Ap     |void   |save_I32       |I32* intp
-Ap     |void   |save_I8        |I8* bytep
-Ap     |void   |save_int       |int* intp
-Ap     |void   |save_item      |SV* item
-Ap     |void   |save_iv        |IV* iv
-Ap     |void   |save_list      |SV** sarg|I32 maxsarg
-Ap     |void   |save_long      |long* longp
-Ap     |void   |save_mortalizesv|SV* sv
-Ap     |void   |save_nogv      |GV* gv
+Ap     |void   |save_hptr      |NN HV** hptr
+Ap     |void   |save_I16       |NN I16* intp
+Ap     |void   |save_I32       |NN I32* intp
+Ap     |void   |save_I8        |NN I8* bytep
+Ap     |void   |save_int       |NN int* intp
+Ap     |void   |save_item      |NN SV* item
+Ap     |void   |save_iv        |NN IV* iv
+Ap     |void   |save_list      |NN SV** sarg|I32 maxsarg
+Ap     |void   |save_long      |NN long* longp
+Ap     |void   |save_mortalizesv|NN SV* sv
+Ap     |void   |save_nogv      |NULLOK GV* gv
 p      |void   |save_op
-Ap     |SV*    |save_scalar    |GV* gv
-Ap     |void   |save_pptr      |char** pptr
-Ap     |void   |save_vptr      |void* pptr
+Ap     |SV*    |save_scalar    |NN GV* gv
+Ap     |void   |save_pptr      |NN char** pptr
+Ap     |void   |save_vptr      |NN void* pptr
 Ap     |void   |save_re_context
 Ap     |void   |save_padsv     |PADOFFSET off
-Ap     |void   |save_sptr      |SV** sptr
-Ap     |SV*    |save_svref     |SV** sptr
+Ap     |void   |save_sptr      |NN SV** sptr
+Ap     |SV*    |save_svref     |NN SV** sptr
 Apr    |SV**   |save_threadsv  |PADOFFSET i
-p      |OP*    |sawparens      |OP* o
-p      |OP*    |scalar         |OP* o
-p      |OP*    |scalarkids     |OP* o
-p      |OP*    |scalarseq      |OP* o
-p      |OP*    |scalarvoid     |OP* o
-Apd    |NV     |scan_bin       |const char* start|STRLEN len|STRLEN* retlen
-Apd    |NV     |scan_hex       |const char* start|STRLEN len|STRLEN* retlen
-Ap     |char*  |scan_num       |const char* s|YYSTYPE *lvalp
-Apd    |NV     |scan_oct       |const char* start|STRLEN len|STRLEN* retlen
-p      |OP*    |scope          |OP* o
-Ap     |char*  |screaminstr    |SV* bigsv|SV* littlesv|I32 start_shift \
-                               |I32 end_shift|I32 *state|I32 last
+p      |OP*    |sawparens      |NULLOK OP* o
+p      |OP*    |scalar         |NULLOK OP* o
+p      |OP*    |scalarkids     |NULLOK OP* o
+p      |OP*    |scalarseq      |NULLOK OP* o
+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
+p      |OP*    |scope          |NULLOK OP* o
+Ap     |char*  |screaminstr    |NN SV *bigstr|NN SV *littlestr|I32 start_shift \
+                               |I32 end_shift|NN I32 *oldposp|I32 last
 #if !defined(VMS)
 p      |I32    |setenv_getix   |const char* nam
 #endif
-p      |void   |setdefout      |GV* gv
-Ap     |HEK*   |share_hek      |const char* sv|I32 len|U32 hash
+p      |void   |setdefout      |NULLOK GV* gv
+Ap     |HEK*   |share_hek      |NN const char* str|I32 len|U32 hash
 np     |Signal_t |sighandler   |int sig
 Anp    |Signal_t |csighandler  |int sig
 Ap     |SV**   |stack_grow     |NN SV** sp|NN SV**p|int n
 ApR    |I32    |start_subparse |I32 is_format|U32 flags
-p      |void   |sub_crush_depth|CV* cv
+p      |void   |sub_crush_depth|NN CV* cv
 Apd    |bool   |sv_2bool       |NN SV* sv
-Apd    |CV*    |sv_2cv         |NN SV* sv|HV** st|GV** gvp|I32 lref
+Apd    |CV*    |sv_2cv         |NULLOK SV* sv|NN HV** st|NN GV** gvp|I32 lref
 Apd    |IO*    |sv_2io         |NN SV* sv
 Amb    |IV     |sv_2iv         |NN SV* sv
 Apd    |IV     |sv_2iv_flags   |NN SV* sv|I32 flags
 Apd    |SV*    |sv_2mortal     |NN SV* sv
 Apd    |NV     |sv_2nv         |NN SV* sv
-Amb    |char*  |sv_2pv         |NN SV* sv|STRLEN* lp
-Apd    |char*  |sv_2pv_flags   |NN SV* sv|STRLEN* lp|I32 flags
-Apd    |char*  |sv_2pvutf8     |NN SV* sv|STRLEN* lp
-Apd    |char*  |sv_2pvbyte     |NN SV* sv|STRLEN* lp
-Ap     |char*  |sv_pvn_nomg    |NN SV* sv|STRLEN* lp
+Amb    |char*  |sv_2pv         |NN SV* sv|NULLOK STRLEN* lp
+Apd    |char*  |sv_2pv_flags   |NN SV* sv|NULLOK STRLEN* lp|I32 flags
+Apd    |char*  |sv_2pvutf8     |NN SV* sv|NULLOK STRLEN* lp
+Apd    |char*  |sv_2pvbyte     |NN SV* sv|NULLOK STRLEN* lp
+Ap     |char*  |sv_pvn_nomg    |NN SV* sv|NULLOK STRLEN* lp
 Amb    |UV     |sv_2uv         |NN SV* sv
 Apd    |UV     |sv_2uv_flags   |NN SV* sv|I32 flags
 Apd    |IV     |sv_iv          |NN SV* sv
@@ -731,15 +731,15 @@ Apd       |NV     |sv_nv          |NN SV* sv
 Apd    |char*  |sv_pvn         |NN SV *sv|NN STRLEN *len
 Apd    |char*  |sv_pvutf8n     |NN SV *sv|NN STRLEN *len
 Apd    |char*  |sv_pvbyten     |NN SV *sv|NN STRLEN *len
-Apd    |I32    |sv_true        |NN SV *sv
+Apd    |I32    |sv_true        |NULLOK SV *sv
 pd     |void   |sv_add_arena   |NN char* ptr|U32 size|U32 flags
 Apd    |int    |sv_backoff     |NN SV* sv
 Apd    |SV*    |sv_bless       |NN SV* sv|NN HV* stash
-Afpd   |void   |sv_catpvf      |NN SV* sv|const char* pat|...
-Apd    |void   |sv_vcatpvf     |NN SV* sv|const char* pat|va_list* args
-Apd    |void   |sv_catpv       |NN SV* sv|const char* ptr
-Amdb   |void   |sv_catpvn      |NN SV* sv|const char* ptr|STRLEN len
-Amdb   |void   |sv_catsv       |NN SV* dsv|SV* ssv
+Afpd   |void   |sv_catpvf      |NN SV* sv|NN const char* pat|...
+Apd    |void   |sv_vcatpvf     |NN SV* sv|NN const char* pat|NULLOK va_list* args
+Apd    |void   |sv_catpv       |NN SV* sv|NN const char* ptr
+Amdb   |void   |sv_catpvn      |NN SV* sv|NN const char* ptr|STRLEN len
+Amdb   |void   |sv_catsv       |NN SV* dsv|NULLOK SV* ssv
 Apd    |void   |sv_chop        |NN SV* sv|NULLOK const char* ptr
 pd     |I32    |sv_clean_all
 pd     |void   |sv_clean_objs
@@ -755,7 +755,7 @@ Apd |void   |sv_dec         |NN SV* sv
 Ap     |void   |sv_dump        |NN SV* sv
 ApdR   |bool   |sv_derived_from|NN SV* sv|NN const char* name
 Apd    |I32    |sv_eq          |NN SV* sv1|NN SV* sv2
-Apd    |void   |sv_free        |SV* sv
+Apd    |void   |sv_free        |NULLOK SV* sv
 poMX   |void   |sv_free2       |NN SV* sv
 pd     |void   |sv_free_arenas
 Apd    |char*  |sv_gets        |NN SV* sv|NN PerlIO* fp|I32 append
@@ -763,61 +763,61 @@ Apd       |char*  |sv_grow        |NN SV* sv|STRLEN newlen
 Apd    |void   |sv_inc         |NN SV* sv
 Apd    |void   |sv_insert      |NN SV* bigsv|STRLEN offset|STRLEN len \
                                |NN const char* little|STRLEN littlelen
-Apd    |int    |sv_isa         |NN SV* sv|const char* name
-Apd    |int    |sv_isobject    |NN SV* sv
+Apd    |int    |sv_isa         |NULLOK SV* sv|NN const char* name
+Apd    |int    |sv_isobject    |NULLOK SV* sv
 Apd    |STRLEN |sv_len         |NULLOK SV* sv
 Apd    |STRLEN |sv_len_utf8    |NULLOK SV* sv
-Apd    |void   |sv_magic       |NN SV* sv|SV* obj|int how|const char* name \
+Apd    |void   |sv_magic       |NN SV* sv|NULLOK SV* obj|int how|const char* name \
                                |I32 namlen
-Apd    |MAGIC *|sv_magicext    |NN SV* sv|SV* obj|int how|const MGVTBL *vtbl \
+Apd    |MAGIC *|sv_magicext    |NN SV* sv|NULLOK SV* obj|int how|const MGVTBL *vtbl \
                                |const char* name|I32 namlen
 ApdaR  |SV*    |sv_mortalcopy  |NULLOK SV* oldsv
 ApdR   |SV*    |sv_newmortal
 Apd    |SV*    |sv_newref      |NULLOK SV* sv
-Ap     |char*  |sv_peek        |SV* sv
+Ap     |char*  |sv_peek        |NULLOK SV* sv
 Apd    |void   |sv_pos_u2b     |NULLOK SV* sv|NN I32* offsetp|NULLOK I32* lenp
 Apd    |void   |sv_pos_b2u     |NULLOK SV* sv|NN I32* offsetp
-Amdb   |char*  |sv_pvn_force   |SV* sv|STRLEN* lp
-Apd    |char*  |sv_pvutf8n_force|SV* sv|STRLEN* lp
-Apd    |char*  |sv_pvbyten_force|SV* sv|STRLEN* lp
-Apd    |char*  |sv_recode_to_utf8      |SV* sv|SV *encoding
-Apd    |bool   |sv_cat_decode  |SV* dsv|SV *encoding|SV *ssv|int *offset \
-                               |char* tstr|int tlen
+Amdb   |char*  |sv_pvn_force   |NN SV* sv|NULLOK STRLEN* lp
+Apd    |char*  |sv_pvutf8n_force|NN SV* sv|NULLOK STRLEN* lp
+Apd    |char*  |sv_pvbyten_force|NN SV* sv|NULLOK STRLEN* lp
+Apd    |char*  |sv_recode_to_utf8      |NN SV* sv|NN SV *encoding
+Apd    |bool   |sv_cat_decode  |NN SV* dsv|NN SV *encoding|NN SV *ssv|NN int *offset \
+                               |NN char* tstr|int tlen
 ApdR   |char*  |sv_reftype     |NN const SV* sv|int ob
 Apd    |void   |sv_replace     |NN SV* sv|NN SV* nsv
 Apd    |void   |sv_report_used
-Apd    |void   |sv_reset       |NN const char* s|HV* stash
-Afpd   |void   |sv_setpvf      |SV* sv|const char* pat|...
-Apd    |void   |sv_vsetpvf     |SV* sv|const char* pat|va_list* args
-Apd    |void   |sv_setiv       |SV* sv|IV num
+Apd    |void   |sv_reset       |NN const char* s|NULLOK HV* stash
+Afpd   |void   |sv_setpvf      |NN SV* sv|NN const char* pat|...
+Apd    |void   |sv_vsetpvf     |NN SV* sv|NN const char* pat|NULLOK va_list* args
+Apd    |void   |sv_setiv       |NN SV* sv|IV num
 Apdb   |void   |sv_setpviv     |NN SV* sv|IV num
-Apd    |void   |sv_setuv       |SV* sv|UV num
-Apd    |void   |sv_setnv       |SV* sv|NV num
-Apd    |SV*    |sv_setref_iv   |SV* rv|const char* classname|IV iv
-Apd    |SV*    |sv_setref_uv   |SV* rv|const char* classname|UV uv
-Apd    |SV*    |sv_setref_nv   |SV* rv|const char* classname|NV nv
-Apd    |SV*    |sv_setref_pv   |SV* rv|const char* classname|NULLOK void* pv
-Apd    |SV*    |sv_setref_pvn  |SV* rv|const char* classname|NN const char* pv|STRLEN n
-Apd    |void   |sv_setpv       |SV* sv|const char* ptr
-Apd    |void   |sv_setpvn      |NN SV* sv|const char* ptr|STRLEN len
-Amdb   |void   |sv_setsv       |SV* dsv|SV* ssv
-Apd    |void   |sv_taint       |SV* sv
-ApdR   |bool   |sv_tainted     |SV* sv
+Apd    |void   |sv_setuv       |NN SV* sv|UV num
+Apd    |void   |sv_setnv       |NN SV* sv|NV num
+Apd    |SV*    |sv_setref_iv   |NN SV* rv|NULLOK const char* classname|IV iv
+Apd    |SV*    |sv_setref_uv   |NN SV* rv|NULLOK const char* classname|UV uv
+Apd    |SV*    |sv_setref_nv   |NN SV* rv|NULLOK const char* classname|NV nv
+Apd    |SV*    |sv_setref_pv   |NN SV* rv|NULLOK const char* classname|NULLOK void* pv
+Apd    |SV*    |sv_setref_pvn  |NN SV* rv|NULLOK const char* classname|NN const char* pv|STRLEN n
+Apd    |void   |sv_setpv       |NN SV* sv|NULLOK const char* ptr
+Apd    |void   |sv_setpvn      |NN SV* sv|NULLOK const char* ptr|STRLEN len
+Amdb   |void   |sv_setsv       |NN SV* dsv|NULLOK SV* ssv
+Apd    |void   |sv_taint       |NN SV* sv
+ApdR   |bool   |sv_tainted     |NN SV* sv
 Apd    |int    |sv_unmagic     |NN SV* sv|int type
 Apd    |void   |sv_unref       |NN SV* sv
 Apd    |void   |sv_unref_flags |NN SV* sv|U32 flags
 Apd    |void   |sv_untaint     |NN SV* sv
 Apd    |void   |sv_upgrade     |NN SV* sv|U32 mt
-Apd    |void   |sv_usepvn      |NN SV* sv|char* ptr|STRLEN len
+Apd    |void   |sv_usepvn      |NN SV* sv|NULLOK char* ptr|STRLEN len
 Apd    |void   |sv_vcatpvfn    |NN SV* sv|NN const char* pat|STRLEN patlen \
-                               |va_list* args|SV** svargs|I32 svmax \
-                               |bool *maybe_tainted
+                               |NULLOK va_list* args|SV** svargs|I32 svmax \
+                               |NULLOK bool *maybe_tainted
 Apd    |void   |sv_vsetpvfn    |NN SV* sv|NN const char* pat|STRLEN patlen \
-                               |va_list* args|SV** svargs|I32 svmax \
-                               |bool *maybe_tainted
-Ap     |NV     |str_to_version |SV *sv
-Ap     |SV*    |swash_init     |const char* pkg|const char* name|SV* listsv|I32 minbits|I32 none
-Ap     |UV     |swash_fetch    |SV *sv|const U8 *ptr|bool do_utf8
+                               |NULLOK va_list* args|SV** svargs|I32 svmax \
+                               |NULLOK bool *maybe_tainted
+ApR    |NV     |str_to_version |NN SV *sv
+Ap     |SV*    |swash_init     |NN const char* pkg|NN const char* name|NN SV* listsv|I32 minbits|I32 none
+Ap     |UV     |swash_fetch    |NN SV *sv|NN const U8 *ptr|bool do_utf8
 Ap     |void   |taint_env
 Ap     |void   |taint_proper   |NULLOK const char* f|NN const char* s
 Apd    |UV     |to_utf8_case   |NN const U8 *p|NN U8* ustrp|STRLEN *lenp|SV **swash|const char *normal|const char *special
@@ -826,25 +826,28 @@ Apd       |UV     |to_utf8_upper  |NN const U8 *p|NN U8* ustrp|STRLEN *lenp
 Apd    |UV     |to_utf8_title  |NN const U8 *p|NN U8* ustrp|STRLEN *lenp
 Apd    |UV     |to_utf8_fold   |NN const U8 *p|NN U8* ustrp|STRLEN *lenp
 #if defined(UNLINK_ALL_VERSIONS)
-Ap     |I32    |unlnk          |char* f
-#endif
-Apd    |I32    |unpack_str     |const char *pat|const char *patend|const char *s|const char *strbeg|const char *strend|char **new_s|I32 ocnt|U32 flags
-Apd    |I32    |unpackstring   |const char *pat|const char *patend|const char *s|const char *strend|U32 flags
-Ap     |void   |unsharepvn     |const char* sv|I32 len|U32 hash
-p      |void   |unshare_hek    |HEK* hek
-p      |void   |utilize        |int aver|I32 floor|OP* version|OP* idop|OP* arg
-Ap     |U8*    |utf16_to_utf8  |U8* p|U8 *d|I32 bytelen|I32 *newlen
-Ap     |U8*    |utf16_to_utf8_reversed|U8* p|U8 *d|I32 bytelen|I32 *newlen
+Ap     |I32    |unlnk          |NN char* f
+#endif
+Apd    |I32    |unpack_str     |NN const char *pat|NN const char *patend|NN const char *s \
+                               |NULLOK const char *strbeg|NN const char *strend|NULLOK char **new_s \
+                               |I32 ocnt|U32 flags
+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
+p      |void   |unshare_hek    |NULLOK HEK* hek
+p      |void   |utilize        |int aver|I32 floor|NULLOK OP* version|NN OP* idop|NULLOK OP* arg
+Ap     |U8*    |utf16_to_utf8  |NN U8* p|NN U8 *d|I32 bytelen|NN I32 *newlen
+Ap     |U8*    |utf16_to_utf8_reversed|NN U8* p|NN U8 *d|I32 bytelen|NN I32 *newlen
 AdpPR  |STRLEN |utf8_length    |NN const U8* s|NN const U8 *e
 ApdPR  |IV     |utf8_distance  |NN const U8 *a|NN const U8 *b
 ApdPR  |U8*    |utf8_hop       |NN const U8 *s|I32 off
 ApMd   |U8*    |utf8_to_bytes  |NN U8 *s|NN STRLEN *len
-ApMd   |U8*    |bytes_from_utf8|const U8 *s|STRLEN *len|bool *is_utf8
-ApMd   |U8*    |bytes_to_utf8  |const U8 *s|STRLEN *len
-Apd    |UV     |utf8_to_uvchr  |const U8 *s|STRLEN* retlen
-Apd    |UV     |utf8_to_uvuni  |const U8 *s|STRLEN* retlen
-Adp    |UV     |utf8n_to_uvchr |const U8 *s|STRLEN curlen|STRLEN* retlen|U32 flags
-Adp    |UV     |utf8n_to_uvuni |const U8 *s|STRLEN curlen|STRLEN* retlen|U32 flags
+ApMd   |U8*    |bytes_from_utf8|NN const U8 *s|NN STRLEN *len|NULLOK bool *is_utf8
+ApMd   |U8*    |bytes_to_utf8  |NN const U8 *s|NN STRLEN *len
+Apd    |UV     |utf8_to_uvchr  |NN const U8 *s|NULLOK STRLEN *retlen
+Apd    |UV     |utf8_to_uvuni  |NN const U8 *s|NULLOK STRLEN *retlen
+Adp    |UV     |utf8n_to_uvchr |NN const U8 *s|STRLEN curlen|NULLOK STRLEN *retlen|U32 flags
+Adp    |UV     |utf8n_to_uvuni |NN const U8 *s|STRLEN curlen|NULLOK STRLEN *retlen|U32 flags
 Apd    |U8*    |uvchr_to_utf8  |NN U8 *d|UV uv
 Ap     |U8*    |uvuni_to_utf8  |NN U8 *d|UV uv
 Ap     |U8*    |uvchr_to_utf8_flags    |NN U8 *d|UV uv|UV flags
@@ -852,27 +855,27 @@ Apd       |U8*    |uvuni_to_utf8_flags    |NN U8 *d|UV uv|UV flags
 Apd    |char*  |pv_uni_display |SV *dsv|const U8 *spv|STRLEN len \
                                |STRLEN pvlim|UV flags
 ApdR   |char*  |sv_uni_display |SV *dsv|SV *ssv|STRLEN pvlim|UV flags
-p      |void   |vivify_defelem |SV* sv
-p      |void   |vivify_ref     |SV* sv|U32 to_what
-p      |I32    |wait4pid       |Pid_t pid|int* statusp|int flags
+p      |void   |vivify_defelem |NN SV* sv
+p      |void   |vivify_ref     |NN SV* sv|U32 to_what
+p      |I32    |wait4pid       |Pid_t pid|NN int* statusp|int flags
 p      |U32    |parse_unicode_opts|const char **popt
 p      |U32    |seed
 pR     |UV     |get_hash_seed
-p      |void   |report_evil_fh |const GV *gv|const IO *io|I32 op
-pd     |void   |report_uninit  |SV* uninit_sv
-Afpd   |void   |warn           |const char* pat|...
-Ap     |void   |vwarn          |const char* pat|va_list* args
-Afp    |void   |warner         |U32 err|const char* pat|...
-Ap     |void   |vwarner        |U32 err|const char* pat|va_list* args
-p      |void   |watch          |char** addr
-Ap     |I32    |whichsig       |const char* sig
-p      |void   |write_to_stderr|const char* message|int msglen
-p      |int    |yyerror        |const char* s
+p      |void   |report_evil_fh |NULLOK const GV *gv|NULLOK const IO *io|I32 op
+pd     |void   |report_uninit  |NULLOK 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
+p      |void   |watch          |NN char** addr
+Ap     |I32    |whichsig       |NN const char* sig
+p      |void   |write_to_stderr|NN const char* message|int msglen
+p      |int    |yyerror        |NN const char* s
 p      |int    |yylex
 p      |int    |yyparse
-p      |int    |yywarn         |const char* s
+p      |int    |yywarn         |NN const char* s
 #if defined(MYMALLOC)
-Ap     |void   |dump_mstats    |char* s
+Ap     |void   |dump_mstats    |NN char* s
 ApR    |int    |get_mstats     |NN perl_mstats_t *buf|int buflen|int level
 #endif
 Anpa   |Malloc_t|safesysmalloc |MEM_SIZE nbytes
@@ -886,41 +889,41 @@ Ap        |void   |free_global_struct|struct perl_vars*
 #endif
 Ap     |int    |runops_standard
 Ap     |int    |runops_debug
-Afpd   |void   |sv_catpvf_mg   |SV *sv|const char* pat|...
-Apd    |void   |sv_vcatpvf_mg  |SV* sv|const char* pat|va_list* args
-Apd    |void   |sv_catpv_mg    |SV *sv|const char *ptr
-Apd    |void   |sv_catpvn_mg   |SV *sv|const char *ptr|STRLEN len
-Apd    |void   |sv_catsv_mg    |SV *dstr|SV *sstr
-Afpd   |void   |sv_setpvf_mg   |SV *sv|const char* pat|...
-Apd    |void   |sv_vsetpvf_mg  |SV* sv|const char* pat|va_list* args
-Apd    |void   |sv_setiv_mg    |SV *sv|IV i
+Afpd   |void   |sv_catpvf_mg   |NN SV *sv|NN const char* pat|...
+Apd    |void   |sv_vcatpvf_mg  |NN SV* sv|NN const char* pat|va_list* args
+Apd    |void   |sv_catpv_mg    |NN SV *sv|NN const char *ptr
+Apd    |void   |sv_catpvn_mg   |NN SV *sv|NN const char *ptr|STRLEN len
+Apd    |void   |sv_catsv_mg    |NN SV *dstr|NULLOK SV *sstr
+Afpd   |void   |sv_setpvf_mg   |NN SV *sv|NN const char* pat|...
+Apd    |void   |sv_vsetpvf_mg  |NN SV* sv|NN const char* pat|va_list* args
+Apd    |void   |sv_setiv_mg    |NN SV *sv|IV i
 Apdb   |void   |sv_setpviv_mg  |NN SV *sv|IV iv
-Apd    |void   |sv_setuv_mg    |SV *sv|UV u
-Apd    |void   |sv_setnv_mg    |SV *sv|NV num
-Apd    |void   |sv_setpv_mg    |SV *sv|const char *ptr
-Apd    |void   |sv_setpvn_mg   |SV *sv|const char *ptr|STRLEN len
-Apd    |void   |sv_setsv_mg    |SV *dstr|SV *sstr
-Apd    |void   |sv_usepvn_mg   |SV *sv|char *ptr|STRLEN len
-Ap     |MGVTBL*|get_vtbl       |int vtbl_id
-Ap     |char*  |pv_display     |SV *dsv|const char *pv|STRLEN cur|STRLEN len \
+Apd    |void   |sv_setuv_mg    |NN SV *sv|UV u
+Apd    |void   |sv_setnv_mg    |NN SV *sv|NV num
+Apd    |void   |sv_setpv_mg    |NN SV *sv|NULLOK const char *ptr
+Apd    |void   |sv_setpvn_mg   |NN SV *sv|NN const char *ptr|STRLEN len
+Apd    |void   |sv_setsv_mg    |NN SV *dstr|NULLOK SV *sstr
+Apd    |void   |sv_usepvn_mg   |NN SV *sv|NULLOK char *ptr|STRLEN len
+ApR    |MGVTBL*|get_vtbl       |int vtbl_id
+Ap     |char*  |pv_display     |NN SV *dsv|NN const char *pv|STRLEN cur|STRLEN len \
                                |STRLEN pvlim
-Afp    |void   |dump_indent    |I32 level|NN PerlIO *file|const char* pat|...
-Ap     |void   |dump_vindent   |I32 level|NN PerlIO *file|const char* pat \
-                               |va_list *args
-Ap     |void   |do_gv_dump     |I32 level|NN PerlIO *file|const char *name|GV *sv
-Ap     |void   |do_gvgv_dump   |I32 level|NN PerlIO *file|const char *name|GV *sv
-Ap     |void   |do_hv_dump     |I32 level|NN PerlIO *file|const char *name|HV *sv
-Ap     |void   |do_magic_dump  |I32 level|NN PerlIO *file|const MAGIC *mg|I32 nest \
+Afp    |void   |dump_indent    |I32 level|NN PerlIO *file|NN const char* pat|...
+Ap     |void   |dump_vindent   |I32 level|NN PerlIO *file|NN const char* pat \
+                               |NULLOK va_list *args
+Ap     |void   |do_gv_dump     |I32 level|NN PerlIO *file|NN const char *name|NN GV *sv
+Ap     |void   |do_gvgv_dump   |I32 level|NN PerlIO *file|NN const char *name|NN GV *sv
+Ap     |void   |do_hv_dump     |I32 level|NN PerlIO *file|NN const char *name|NN HV *sv
+Ap     |void   |do_magic_dump  |I32 level|NN PerlIO *file|NN const MAGIC *mg|I32 nest \
                                |I32 maxnest|bool dumpops|STRLEN pvlim
-Ap     |void   |do_op_dump     |I32 level|NN PerlIO *file|const OP *o
-Ap     |void   |do_pmop_dump   |I32 level|NN PerlIO *file|const PMOP *pm
+Ap     |void   |do_op_dump     |I32 level|NN PerlIO *file|NULLOK const OP *o
+Ap     |void   |do_pmop_dump   |I32 level|NN PerlIO *file|NULLOK const PMOP *pm
 Ap     |void   |do_sv_dump     |I32 level|NN PerlIO *file|NULLOK SV *sv|I32 nest \
                                |I32 maxnest|bool dumpops|STRLEN pvlim
 Ap     |void   |magic_dump     |NULLOK const MAGIC *mg
 Ap     |void   |reginitcolors
-Apd    |char*  |sv_2pv_nolen   |SV* sv
-Apd    |char*  |sv_2pvutf8_nolen|SV* sv
-Apd    |char*  |sv_2pvbyte_nolen|SV* sv
+ApdR   |char*  |sv_2pv_nolen   |NN SV* sv
+ApdR   |char*  |sv_2pvutf8_nolen|NN SV* sv
+ApdR   |char*  |sv_2pvbyte_nolen|NN SV* sv
 AmdbR  |char*  |sv_pv          |NN SV *sv
 AmdbR  |char*  |sv_pvutf8      |NN SV *sv
 AmdbR  |char*  |sv_pvbyte      |NN SV *sv
@@ -934,30 +937,30 @@ Ap        |void   |tmps_grow      |I32 n
 Apd    |SV*    |sv_rvweaken    |NN SV *sv
 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|OP *block
+Ap     |CV*    |newATTRSUB     |I32 floor|NULLOK OP *o|NULLOK OP *proto|NULLOK OP *attrs|NULLOK OP *block
 Apr    |void   |newMYSUB       |I32 floor|NULLOK OP *o|NULLOK OP *proto|NULLOK OP *attrs|NULLOK OP *block
 p      |OP *   |my_attrs       |NN OP *o|NULLOK OP *attrs
 p      |void   |boot_core_xsutils
 #if defined(USE_ITHREADS)
-Apa    |PERL_CONTEXT*|cx_dup   |PERL_CONTEXT* cx|I32 ix|I32 max|CLONE_PARAMS* param
-Apa    |PERL_SI*|si_dup        |PERL_SI* si|CLONE_PARAMS* param
-Apa    |ANY*   |ss_dup         |NN PerlInterpreter* proto_perl|CLONE_PARAMS* param
-Apa    |void*  |any_dup        |void* v|NN const PerlInterpreter* proto_perl
-Apa    |HE*    |he_dup         |HE* e|bool shared|CLONE_PARAMS* param
-Apa    |HEK*   |hek_dup        |HEK* e|CLONE_PARAMS* param
-Apa    |REGEXP*|re_dup         |const REGEXP* r|CLONE_PARAMS* param
-Apa    |PerlIO*|fp_dup         |PerlIO* fp|char type|CLONE_PARAMS* param
-Apa    |DIR*   |dirp_dup       |DIR* dp
-Apa    |GP*    |gp_dup         |GP* gp|CLONE_PARAMS* param
-Apa    |MAGIC* |mg_dup         |NN MAGIC* mg|CLONE_PARAMS* param
-Apa    |SV*    |sv_dup         |NN SV* sstr|CLONE_PARAMS* param
-Ap     |void   |rvpv_dup       |NN SV* dstr|NN SV *sstr|CLONE_PARAMS* param
+Apa    |PERL_CONTEXT*|cx_dup   |NULLOK PERL_CONTEXT* cx|I32 ix|I32 max|NN CLONE_PARAMS* param
+Apa    |PERL_SI*|si_dup        |NULLOK PERL_SI* si|NN CLONE_PARAMS* param
+Apa    |ANY*   |ss_dup         |NN PerlInterpreter* proto_perl|NN CLONE_PARAMS* param
+Apa    |void*  |any_dup        |NULLOK void* v|NN const PerlInterpreter* proto_perl
+Apa    |HE*    |he_dup         |NULLOK HE* e|bool shared|NN CLONE_PARAMS* param
+Apa    |HEK*   |hek_dup        |NULLOK HEK* e|NN CLONE_PARAMS* param
+Apa    |REGEXP*|re_dup         |NULLOK const REGEXP* r|NN CLONE_PARAMS* param
+Apa    |PerlIO*|fp_dup         |NULLOK PerlIO* fp|char type|NN CLONE_PARAMS* param
+Apa    |DIR*   |dirp_dup       |NULLOK DIR* dp
+Apa    |GP*    |gp_dup         |NULLOK GP* gp|NN CLONE_PARAMS* param
+Apa    |MAGIC* |mg_dup         |NULLOK MAGIC* mg|NN CLONE_PARAMS* param
+Apa    |SV*    |sv_dup         |NULLOK SV* sstr|NN CLONE_PARAMS* param
+Ap     |void   |rvpv_dup       |NN SV* dstr|NN SV *sstr|NN CLONE_PARAMS* param
 Apa    |PTR_TBL_t*|ptr_table_new
 Apa    |void*  |ptr_table_fetch|NN PTR_TBL_t *tbl|NN const void *sv
 Ap     |void   |ptr_table_store|NN PTR_TBL_t *tbl|const void *oldsv|NN void *newsv
 Ap     |void   |ptr_table_split|NN PTR_TBL_t *tbl
-Ap     |void   |ptr_table_clear|PTR_TBL_t *tbl
-Ap     |void   |ptr_table_free|PTR_TBL_t *tbl
+Ap     |void   |ptr_table_clear|NULLOK PTR_TBL_t *tbl
+Ap     |void   |ptr_table_free|NULLOK PTR_TBL_t *tbl
 #  if defined(HAVE_INTERP_INTERN)
 Ap     |void   |sys_intern_dup |NN struct interp_intern* src|NN struct interp_intern* dst
 #  endif
@@ -971,12 +974,12 @@ ApR       |char * |custom_op_name |NN const OP* op
 ApR    |char * |custom_op_desc |NN const OP* op
 
 #if defined(PERL_OLD_COPY_ON_WRITE)
-pMX    |int    |sv_release_IVX |SV *sv
+pMX    |int    |sv_release_IVX |NN SV *sv
 #endif
 
-Adp    |void   |sv_nosharing   |SV *
-Adp    |void   |sv_nolocking   |SV *
-Adp    |void   |sv_nounlocking |SV *
+Adp    |void   |sv_nosharing   |NULLOK SV *
+Adp    |void   |sv_nolocking   |NULLOK SV *
+Adp    |void   |sv_nounlocking |NULLOK SV *
 Adp    |int    |nothreadhook
 
 END_EXTERN_C
@@ -1005,15 +1008,17 @@ s       |void   |unshare_hek_or_pvn|NULLOK const HEK* hek|NULLOK const char* str|I32 len
 sR     |HEK*   |share_hek_flags|NN const char* sv|I32 len|U32 hash|int flags
 rs     |void   |hv_notallowed  |int flags|NN const char *key|I32 klen|NN const char *msg
 s      |struct xpvhv_aux*|hv_auxinit|NN HV *hv
-sM     |SV*    |hv_delete_common|HV* tb|SV* key_sv|const char* key|STRLEN klen|int k_flags|I32 d_flags|U32 hash
-sM     |HE*    |hv_fetch_common|HV* tb|SV* key_sv|const char* key|STRLEN klen|int flags|int action|SV* val|U32 hash
+sM     |SV*    |hv_delete_common|NULLOK HV* tb|NULLOK SV* keysv|NULLOK const char* key \
+               |STRLEN klen|int k_flags|I32 d_flags|U32 hash
+sM     |HE*    |hv_fetch_common|NULLOK HV* tb|NULLOK SV* keysv|NULLOK const char* key \
+               |STRLEN klen|int flags|int action|NULLOK SV* val|U32 hash
 #endif
 
 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
 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      |int    |magic_methcall |NN SV *sv|NN const MAGIC *mg|NN const char *meth|I32 f \
-                               |int n|SV *val
+                               |int n|NULLOK SV *val
 s      |void   |restore_magic  |NN const void *p
 s      |void   |unwind_handler_stack|NN const void *p
 
@@ -1062,19 +1067,19 @@ pR      |OP*    |ck_svconst     |NN OP *o
 pR     |OP*    |ck_trunc       |NN OP *o
 pR     |OP*    |ck_unpack      |NN OP *o
 sR     |bool   |is_handle_constructor|NN const OP *o|I32 numargs
-sR     |I32    |is_list_assignment|const OP *o
+sR     |I32    |is_list_assignment|NULLOK const OP *o
 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*    |new_logop      |I32 type|I32 flags|NN OP **firstp|NN OP **otherp
 s      |void   |simplify_sort  |NN OP *o
-s      |const char*    |gv_ename       |GV *gv
-s      |bool   |scalar_mod_type|const OP *o|I32 type
-s      |OP *   |my_kid         |OP *o|OP *attrs|OP **imopsp
-s      |OP *   |dup_attrlist   |OP *o
-s      |void   |apply_attrs    |HV *stash|SV *target|OP *attrs|bool for_my
-s      |void   |apply_attrs_my |HV *stash|OP *target|OP *attrs|OP **imopsp
+s      |const char*    |gv_ename       |NN GV *gv
+s      |bool   |scalar_mod_type|NN const OP *o|I32 type
+s      |OP *   |my_kid         |NULLOK OP *o|NULLOK OP *attrs|NN OP **imopsp
+s      |OP *   |dup_attrlist   |NN OP *o
+s      |void   |apply_attrs    |NN HV *stash|NN SV *target|NULLOK OP *attrs|bool for_my
+s      |void   |apply_attrs_my |NN HV *stash|NN OP *target|NULLOK OP *attrs|NN OP **imopsp
 s      |void   |bad_type       |I32 n|NN const char *t|NN const char *name|NN const OP *kid
 s      |void   |no_bareword_allowed|NN const OP *o
 sR     |OP*    |no_fh_allowed|NN OP *o
@@ -1082,42 +1087,43 @@ sR      |OP*    |too_few_arguments|NN OP *o|NN const char* name
 sR     |OP*    |too_many_arguments|NN OP *o|NN const char* name
 #endif
 #if defined(PL_OP_SLAB_ALLOC)
-ApR    |void*  |Slab_Alloc     |int m|size_t sz
-Ap     |void   |Slab_Free      |void *op
+Apa    |void*  |Slab_Alloc     |int m|size_t sz
+Ap     |void   |Slab_Free      |NN void *op
 #endif
 
 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
 s      |void   |find_beginning
-s      |void   |forbid_setid   |const char * s
-s      |void   |incpush        |const char *dir|bool addsubdirs|bool addoldvers|bool usesep|bool canrelocate
+s      |void   |forbid_setid   |NN const char * s
+s      |void   |incpush        |NULLOK const char *dir|bool addsubdirs|bool addoldvers|bool usesep|bool canrelocate
 s      |void   |init_interp
 s      |void   |init_ids
 s      |void   |init_lexer
 s      |void   |init_main_stash
 s      |void   |init_perllib
-s      |void   |init_postdump_symbols|int|char **|char **
+s      |void   |init_postdump_symbols|int argc|NN char **argv|NULLOK char **env
 s      |void   |init_predump_symbols
 rs     |void   |my_exit_jump
 s      |void   |nuke_stacks
-s      |void   |open_script    |const char *scriptname|bool dosearch|SV *sv
-s      |void   |usage          |const char *name
-s      |void   |validate_suid  |const char *validarg|const char *scriptname
+s      |void   |open_script    |NN const char *scriptname|bool dosearch|NN SV *sv
+s      |void   |usage          |NN const char *name
+s      |void   |validate_suid  |NN const char *validarg|NN const char *scriptname
 #  if defined(IAMSUID)
 s      |int    |fd_on_nosuid_fs|int fd
 #  endif
-s      |void*  |parse_body     |char **env|XSINIT_t xsinit
+s      |void*  |parse_body     |NULLOK char **env|XSINIT_t xsinit
 rs     |void   |run_body       |I32 oldscope
-s      |void   |call_body      |const OP *myop|bool is_eval
-s      |void*  |call_list_body |CV *cv
+s      |void   |call_body      |NN const OP *myop|bool is_eval
+s      |void*  |call_list_body |NN CV *cv
 #endif
 
 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
-sR     |SV*    |refto          |SV* sv
+sR     |SV*    |refto          |NN SV* sv
 #endif
 
 #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
-s      |I32    |unpack_rec     |struct tempsym* symptr|const char *s|const char *strbeg|const char *strend|const char **new_s
-s      |SV **  |pack_rec       |SV *cat|struct tempsym* symptr|SV **beglist|SV **endlist
+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
 s      |SV*    |mul128         |NN SV *sv|U8 m
 s      |I32    |measure_struct |NN struct tempsym* symptr
 s      |bool   |next_symbol    |NN struct tempsym* symptr
@@ -1125,22 +1131,24 @@ sR      |SV*    |is_an_int      |NN const char *s|STRLEN l
 s      |int    |div128         |NN SV *pnum|NN bool *done
 s      |const char *|group_end |NN const char *pat|NN const char *patend|char ender
 sR     |const char *|get_num   |NN const char *ppat|NN I32 *lenptr
+ns     |bool   |need_utf8      |NN const char *pat|NN const char *patend
+ns     |char   |first_symbol   |NN const char *pat|NN const char *patend
 #endif
 
 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
 sR     |OP*    |docatch        |NULLOK OP *o
 s      |void   |docatch_body
-sR     |OP*    |dofindlabel    |OP *o|const char *label|OP **opstack|OP **oplimit
-sR     |OP*    |doparseform    |SV *sv
+sR     |OP*    |dofindlabel    |NN OP *o|NN const char *label|NN OP **opstack|NN OP **oplimit
+sR     |OP*    |doparseform    |NN SV *sv
 snR    |bool   |num_overflow   |NV value|I32 fldsize|I32 frcsize
 sR     |I32    |dopoptoeval    |I32 startingblock
 sR     |I32    |dopoptolabel   |NN const char *label
 sR     |I32    |dopoptoloop    |I32 startingblock
 sR     |I32    |dopoptosub     |I32 startingblock
-sR     |I32    |dopoptosub_at  |const PERL_CONTEXT* cxstk|I32 startingblock
+sR     |I32    |dopoptosub_at  |NN const PERL_CONTEXT* cxstk|I32 startingblock
 s      |void   |save_lines     |NULLOK AV *array|NN SV *sv
 sR     |OP*    |doeval         |int gimme|NULLOK OP** startop|NULLOK CV* outside|U32 seq
-sR     |PerlIO *|doopen_pm     |const char *name|const char *mode
+sR     |PerlIO *|doopen_pm     |NN const char *name|NN const char *mode
 sR     |bool   |path_is_absolute|NN const char *name
 #endif
 
@@ -1174,11 +1182,11 @@ Es      |void   |regtail        |NN struct RExC_state_t *state|NN regnode *p|NN regnode *val
 Es     |char*  |regwhite       |NN char *p|NN const char *e
 Es     |char*  |nextchar       |NN struct RExC_state_t*
 #  ifdef DEBUGGING
-Es     |regnode*|dumpuntil     |regnode *start|regnode *node \
-                               |regnode *last|SV* sv|I32 l
+Es     |regnode*|dumpuntil     |NN regnode *start|NN regnode *node \
+                               |NULLOK regnode *last|NN SV* sv|I32 l
 Es     |void   |put_byte       |NN SV* sv|int c
 #  endif
-Es     |void   |scan_commit    |struct RExC_state_t*|struct scan_data_t *data
+Es     |void   |scan_commit    |NN struct RExC_state_t*|NN struct scan_data_t *data
 Es     |void   |cl_anything    |NN struct RExC_state_t*|NN struct regnode_charclass_class *cl
 Es     |int    |cl_is_anything |NN const struct regnode_charclass_class *cl
 Es     |void   |cl_init        |NN struct RExC_state_t*|NN struct regnode_charclass_class *cl
@@ -1187,16 +1195,16 @@ Es      |void   |cl_and         |NN struct regnode_charclass_class *cl \
                                |NN const struct regnode_charclass_class *and_with
 Es     |void   |cl_or          |NN struct RExC_state_t*|NN struct regnode_charclass_class *cl \
                                |NN const struct regnode_charclass_class *or_with
-Es     |I32    |study_chunk    |struct RExC_state_t*|regnode **scanp|I32 *deltap \
-                               |regnode *last|struct scan_data_t *data \
+Es     |I32    |study_chunk    |NN struct RExC_state_t* pRExC_state|NN regnode **scanp \
+                               |NN I32 *deltap|NN regnode *last|NN struct scan_data_t *data \
                                |U32 flags|U32 depth
-Es     |I32    |add_data       |struct RExC_state_t*|I32 n|const char *s
+Es     |I32    |add_data       |NN struct RExC_state_t*|I32 n|NN const char *s
 rs     |void   |re_croak2      |NN const char* pat1|NN const char* pat2|...
-Es     |I32    |regpposixcc    |struct RExC_state_t*|I32 value
-Es     |void   |checkposixcc   |struct RExC_state_t*
+Es     |I32    |regpposixcc    |NN struct RExC_state_t*|I32 value
+Es     |void   |checkposixcc   |NN struct RExC_state_t*
 
-Es     |I32    |make_trie      |struct RExC_state_t*|regnode *startbranch \
-                               |regnode *first|regnode *last|regnode *tail \
+Es     |I32    |make_trie      |NN struct RExC_state_t*|NN regnode *startbranch \
+                               |NN regnode *first|NN regnode *last|NN regnode *tail \
                                |U32 flags
 #endif
 
@@ -1211,9 +1219,9 @@ Es        |CHECKPOINT|regcppush   |I32 parenfloor
 Es     |char*|regcppop
 Es     |char*|regcp_set_to     |I32 ss
 Es     |void   |cache_re       |NN regexp *prog
-ERs    |U8*    |reghop         |U8 *pos|I32 off
-ERs    |U8*    |reghop3        |U8 *pos|I32 off|U8 *lim
-ERs    |U8*    |reghopmaybe    |U8 *pos|I32 off
+ERs    |U8*    |reghop         |NN U8 *pos|I32 off
+ERs    |U8*    |reghop3        |NN U8 *pos|I32 off|NN U8 *lim
+ERs    |U8*    |reghopmaybe    |NN U8 *pos|I32 off
 ERs    |U8*    |reghopmaybe3   |NN U8 *pos|I32 off|NN U8 *lim
 ERs    |char*  |find_byclass   |NN regexp * prog|NN regnode *c|NN char *s|NN const char *strend|I32 norun
 Es     |void   |to_utf8_substr |NN regexp * prog
@@ -1234,6 +1242,7 @@ po        |void   |sv_add_backref |NN SV *tsv|NN SV *sv
 #endif
 
 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+nsR    |char * |uiv_2buf       |NN char *buf|IV iv|UV uv|int is_uv|NN char **peob
 sR     |IV     |asIV           |NN SV* sv
 sR     |UV     |asUV           |NN SV* sv
 s      |void   |sv_unglob      |NN SV* sv
@@ -1258,7 +1267,7 @@ s |bool   |utf8_mg_pos_init       |NN SV *sv|NN MAGIC **mgp \
                                |NN STRLEN **cachep|I32 i|I32 offsetp \
                                |NN const U8 *s|NN const U8 *start
 #if defined(PERL_OLD_COPY_ON_WRITE)
-sM     |void   |sv_release_COW |SV *sv|const char *pvx|STRLEN len|SV *after
+sM     |void   |sv_release_COW |NN SV *sv|NN const char *pvx|STRLEN len|NN SV *after
 #endif
 #endif
 
@@ -1298,8 +1307,8 @@ sR        |I32    |sublex_push
 sR     |I32    |sublex_start
 sR     |char * |filter_gets    |NN SV *sv|NN PerlIO *fp|STRLEN append
 sR     |HV *   |find_in_my_stash|NN const char *pkgname|I32 len
-s      |SV*    |new_constant   |const char *s|STRLEN len|const char *key|SV *sv \
-                               |SV *pv|const char *type
+s      |SV*    |new_constant   |NULLOK const char *s|STRLEN len|NN const char *key|NN SV *sv \
+                               |NULLOK SV *pv|NULLOK const char *type
 #  if defined(DEBUGGING)
 s      |int    |tokereport     |NN const char *s|I32 rv
 #  endif
diff --git a/embed.h b/embed.h
index ce73b57..023d8f3 100644 (file)
--- a/embed.h
+++ b/embed.h
 #define div128                 S_div128
 #define group_end              S_group_end
 #define get_num                        S_get_num
+#define need_utf8              S_need_utf8
+#define first_symbol           S_first_symbol
 #endif
 #endif
 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
 #endif
 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
+#define uiv_2buf               S_uiv_2buf
 #define asIV                   S_asIV
 #define asUV                   S_asUV
 #define sv_unglob              S_sv_unglob
 #define div128(a,b)            S_div128(aTHX_ a,b)
 #define group_end(a,b,c)       S_group_end(aTHX_ a,b,c)
 #define get_num(a,b)           S_get_num(aTHX_ a,b)
+#define need_utf8              S_need_utf8
+#define first_symbol           S_first_symbol
 #endif
 #endif
 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
 #endif
 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
 #ifdef PERL_CORE
+#define uiv_2buf               S_uiv_2buf
 #define asIV(a)                        S_asIV(aTHX_ a)
 #define asUV(a)                        S_asUV(aTHX_ a)
 #define sv_unglob(a)           S_sv_unglob(aTHX_ a)
diff --git a/hv.c b/hv.c
index 0745b67..06e3a47 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -1261,7 +1261,7 @@ S_hsplit(pTHX_ HV *hv)
 
            if (was_shared) {
                /* Unshare it.  */
-               HEK *new_hek
+               HEK * const new_hek
                    = save_hek_flags(HeKEY(entry), HeKLEN(entry),
                                     hash, HeKFLAGS(entry));
                unshare_hek (HeKEY_hek(entry));
@@ -1417,14 +1417,15 @@ Perl_newHVhv(pTHX_ HV *ohv)
        /* It's an ordinary hash, so copy it fast. AMS 20010804 */
        STRLEN i;
        const bool shared = !!HvSHAREKEYS(ohv);
-       HE **ents, **oents = (HE **)HvARRAY(ohv);
+       HE **ents, ** const oents = (HE **)HvARRAY(ohv);
        char *a;
        Newx(a, PERL_HV_ARRAY_ALLOC_BYTES(hv_max+1), char);
        ents = (HE**)a;
 
        /* In each bucket... */
        for (i = 0; i <= hv_max; i++) {
-           HE *prev = NULL, *ent = NULL, *oent = oents[i];
+           HE *prev = NULL, *ent = NULL;
+           HE *oent = oents[i];
 
            if (!oent) {
                ents[i] = NULL;
@@ -1432,7 +1433,7 @@ Perl_newHVhv(pTHX_ HV *ohv)
            }
 
            /* Copy the linked list of entries. */
-           for (oent = oents[i]; oent; oent = HeNEXT(oent)) {
+           for (; oent; oent = HeNEXT(oent)) {
                const U32 hash   = HeHASH(oent);
                const char * const key = HeKEY(oent);
                const STRLEN len = HeKLEN(oent);
@@ -1456,7 +1457,7 @@ Perl_newHVhv(pTHX_ HV *ohv)
        HvFILL(hv)  = hv_fill;
        HvTOTALKEYS(hv)  = HvTOTALKEYS(ohv);
        HvARRAY(hv) = ents;
-    }
+    } /* not magical */
     else {
        /* Iterate over ohv, copying keys and values one at a time. */
        HE *entry;
@@ -2176,7 +2177,7 @@ S_unshare_hek_or_pvn(pTHX_ const HEK *hek, const char *str, I32 len, U32 hash)
     bool found = 0;
     bool is_utf8 = FALSE;
     int k_flags = 0;
-    const char *save = str;
+    const char * const save = str;
     struct shared_he *he = 0;
 
     if (hek) {
@@ -2275,7 +2276,7 @@ Perl_share_hek(pTHX_ const char *str, I32 len, register U32 hash)
 {
     bool is_utf8 = FALSE;
     int flags = 0;
-    const char *save = str;
+    const char * const save = str;
 
     if (len < 0) {
       STRLEN tmplen = -len;
diff --git a/mg.c b/mg.c
index b126ec4..78ccb9a 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -2020,7 +2020,7 @@ Perl_vivify_defelem(pTHX_ SV *sv)
        if ((I32)LvTARGLEN(sv) < 0 && (I32)LvTARGOFF(sv) > AvFILL(av))
            LvTARG(sv) = Nullsv;        /* array can't be extended */
        else {
-           SV** svp = av_fetch(av, LvTARGOFF(sv), TRUE);
+           SV** const svp = av_fetch(av, LvTARGOFF(sv), TRUE);
            if (!svp || (value = *svp) == &PL_sv_undef)
                Perl_croak(aTHX_ PL_no_aelem, (I32)LvTARGOFF(sv));
        }
diff --git a/op.c b/op.c
index 55a976b..c541fd1 100644 (file)
--- a/op.c
+++ b/op.c
@@ -128,8 +128,8 @@ Perl_Slab_Alloc(pTHX_ int m, size_t sz)
 void
 Perl_Slab_Free(pTHX_ void *op)
 {
-    I32 **ptr = (I32 **) op;
-    I32 *slab = ptr[-1];
+    I32 ** const ptr = (I32 **) op;
+    I32 * const slab = ptr[-1];
     assert( ptr-1 > (I32 **) slab );
     assert( ptr < ( (I32 **) slab + PERL_SLAB_SIZE) );
     assert( *slab > 0 );
@@ -3027,10 +3027,10 @@ Perl_utilize(pTHX_ int aver, I32 floor, OP *version, OP *idop, OP *arg)
 
     veop = Nullop;
 
-    if (version != Nullop) {
+    if (version) {
        SV *vesv = ((SVOP*)version)->op_sv;
 
-       if (arg == Nullop && !SvNIOKp(vesv)) {
+       if (!arg && !SvNIOKp(vesv)) {
            arg = version;
        }
        else {
@@ -4248,7 +4248,7 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
        ps = Nullch;
 
     if (!name && PERLDB_NAMEANON && CopLINE(PL_curcop)) {
-       SV *sv = sv_newmortal();
+       SV * const sv = sv_newmortal();
        Perl_sv_setpvf(aTHX_ sv, "%s[%s:%"IVdf"]",
                       PL_curstash ? "__ANON__" : "__ANON__::__ANON__",
                       CopFILE(PL_curcop), (IV)CopLINE(PL_curcop));
diff --git a/perl.c b/perl.c
index 008b42d..4884865 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1685,9 +1685,8 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
                argc--,argv++;
            }
            if (s && *s) {
-               char *p;
                STRLEN len = strlen(s);
-               p = savepvn(s, len);
+               const char * const p = savepvn(s, len);
                incpush(p, TRUE, TRUE, FALSE, FALSE);
                sv_catpvn(sv, "-I", 2);
                sv_catpvn(sv, p, len);
@@ -4452,10 +4451,10 @@ S_init_predump_symbols(pTHX)
 void
 Perl_init_argv_symbols(pTHX_ register int argc, register char **argv)
 {
-    char *s;
     argc--,argv++;     /* skip name of script */
     if (PL_doswitches) {
        for (; argc > 0 && **argv == '-'; argc--,argv++) {
+           char *s;
            if (!argv[0][1])
                break;
            if (argv[0][1] == '-' && !argv[0][2]) {
@@ -4475,7 +4474,7 @@ Perl_init_argv_symbols(pTHX_ register int argc, register char **argv)
        (void)gv_AVadd(PL_argvgv);
        av_clear(GvAVn(PL_argvgv));
        for (; argc > 0; argc--,argv++) {
-           SV *sv = newSVpv(argv[0],0);
+           SV * const sv = newSVpv(argv[0],0);
            av_push(GvAVn(PL_argvgv),sv);
            if (!(PL_unicode & PERL_UNICODE_LOCALE_FLAG) || PL_utf8locale) {
                 if (PL_unicode & PERL_UNICODE_ARGV_FLAG)
index 7adfd69..2a10ab0 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2210,7 +2210,6 @@ PP(pp_redo)
 STATIC OP *
 S_dofindlabel(pTHX_ OP *o, const char *label, OP **opstack, OP **oplimit)
 {
-    OP *kid = Nullop;
     OP **ops = opstack;
     static const char too_deep[] = "Target of goto is too deeply nested";
 
@@ -2228,6 +2227,7 @@ S_dofindlabel(pTHX_ OP *o, const char *label, OP **opstack, OP **oplimit)
     }
     *ops = 0;
     if (o->op_flags & OPf_KIDS) {
+       OP *kid;
        /* First try all the kids at this level, since that's likeliest. */
        for (kid = cUNOPo->op_first; kid; kid = kid->op_sibling) {
            if ((kid->op_type == OP_NEXTSTATE || kid->op_type == OP_DBSTATE) &&
index b150ac9..35558f1 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2843,7 +2843,7 @@ Perl_sub_crush_depth(pTHX_ CV *cv)
     if (CvANON(cv))
        Perl_warner(aTHX_ packWARN(WARN_RECURSION), "Deep recursion on anonymous subroutine");
     else {
-       SV* tmpstr = sv_newmortal();
+       SV* const tmpstr = sv_newmortal();
        gv_efullname3(tmpstr, CvGV(cv), Nullch);
        Perl_warner(aTHX_ packWARN(WARN_RECURSION), "Deep recursion on subroutine \"%"SVf"\"",
                tmpstr);
index 63a60f1..b9e7479 100644 (file)
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -1116,7 +1116,6 @@ S_next_symbol(pTHX_ tempsym_t* symptr )
    version of the string. Users are advised to upgrade their pack string
    themselves if they need to do a lot of unpacks like this on it
 */
-/* XXX These can be const */
 STATIC bool
 need_utf8(const char *pat, const char *patend)
 {
diff --git a/proto.h b/proto.h
index 640ab78..b1e5207 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -489,9 +489,12 @@ PERL_CALLCONV OP*  Perl_fold_constants(pTHX_ OP* arg)
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV char*    Perl_form(pTHX_ const char* pat, ...)
-                       __attribute__format__(__printf__,pTHX_1,pTHX_2);
+                       __attribute__format__(__printf__,pTHX_1,pTHX_2)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV char*    Perl_vform(pTHX_ const char* pat, va_list* args)
+                       __attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV char*    Perl_vform(pTHX_ const char* pat, va_list* args);
 PERL_CALLCONV void     Perl_free_tmps(pTHX);
 PERL_CALLCONV OP*      Perl_gen_constant_list(pTHX_ OP* o);
 #if !defined(HAS_GETENV_LEN)
@@ -872,15 +875,25 @@ PERL_CALLCONV I32 Perl_keyword(pTHX_ const char* d, I32 len)
 PERL_CALLCONV void     Perl_leave_scope(pTHX_ I32 base);
 PERL_CALLCONV void     Perl_lex_end(pTHX);
 PERL_CALLCONV void     Perl_lex_start(pTHX_ SV* line);
-PERL_CALLCONV void     Perl_op_null(pTHX_ OP* o);
-PERL_CALLCONV void     Perl_op_clear(pTHX_ OP* o);
+PERL_CALLCONV void     Perl_op_null(pTHX_ OP* o)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_op_clear(pTHX_ OP* o)
+                       __attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV void     Perl_op_refcnt_lock(pTHX);
 PERL_CALLCONV void     Perl_op_refcnt_unlock(pTHX);
-PERL_CALLCONV OP*      Perl_linklist(pTHX_ OP* o);
+PERL_CALLCONV OP*      Perl_linklist(pTHX_ OP* o)
+                       __attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV OP*      Perl_list(pTHX_ OP* o);
 PERL_CALLCONV OP*      Perl_listkids(pTHX_ OP* o);
-PERL_CALLCONV void     Perl_load_module(pTHX_ U32 flags, SV* name, SV* ver, ...);
-PERL_CALLCONV void     Perl_vload_module(pTHX_ U32 flags, SV* name, SV* ver, va_list* args);
+PERL_CALLCONV void     Perl_load_module(pTHX_ U32 flags, SV* name, SV* ver, ...)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV void     Perl_vload_module(pTHX_ U32 flags, SV* name, SV* ver, va_list* args)
+                       __attribute__nonnull__(pTHX_2);
+
 PERL_CALLCONV OP*      Perl_localize(pTHX_ OP* arg, I32 lexical);
 PERL_CALLCONV I32      Perl_looks_like_number(pTHX_ SV* sv)
                        __attribute__warn_unused_result__
@@ -964,9 +977,12 @@ PERL_CALLCONV int  Perl_magic_setcollxfrm(pTHX_ SV* sv, MAGIC* mg);
 PERL_CALLCONV char*    Perl_mem_collxfrm(pTHX_ const char* s, STRLEN len, STRLEN* xlen);
 #endif
 PERL_CALLCONV SV*      Perl_mess(pTHX_ const char* pat, ...)
-                       __attribute__format__(__printf__,pTHX_1,pTHX_2);
+                       __attribute__format__(__printf__,pTHX_1,pTHX_2)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV SV*      Perl_vmess(pTHX_ const char* pat, va_list* args)
+                       __attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV SV*      Perl_vmess(pTHX_ const char* pat, va_list* args);
 PERL_CALLCONV void     Perl_qerror(pTHX_ SV* err);
 PERL_CALLCONV void     Perl_sortsv(pTHX_ SV ** array, size_t num_elts, SVCOMPARE_t cmp);
 PERL_CALLCONV int      Perl_mg_clear(pTHX_ SV* sv);
@@ -1062,11 +1078,14 @@ PERL_CALLCONV OP*       Perl_newASSIGNOP(pTHX_ I32 flags, OP* left, I32 optype, OP* ri
                        __attribute__malloc__
                        __attribute__warn_unused_result__;
 
-PERL_CALLCONV OP*      Perl_newCONDOP(pTHX_ I32 flags, OP* expr, OP* trueop, OP* falseop)
+PERL_CALLCONV OP*      Perl_newCONDOP(pTHX_ I32 flags, OP* first, OP* trueop, OP* falseop)
                        __attribute__malloc__
-                       __attribute__warn_unused_result__;
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV CV*      Perl_newCONSTSUB(pTHX_ HV* stash, const char* name, SV* sv)
+                       __attribute__nonnull__(pTHX_2);
 
-PERL_CALLCONV CV*      Perl_newCONSTSUB(pTHX_ HV* stash, const char* name, SV* sv);
 PERL_CALLCONV void     Perl_newFORM(pTHX_ I32 floor, OP* o, OP* block);
 PERL_CALLCONV OP*      Perl_newFOROP(pTHX_ I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont)
                        __attribute__malloc__
@@ -1229,9 +1248,14 @@ PERL_CALLCONV SV*        Perl_newSVpvn_share(pTHX_ const char* s, I32 len, U32 hash)
 PERL_CALLCONV SV*      Perl_newSVpvf(pTHX_ const char* pat, ...)
                        __attribute__malloc__
                        __attribute__warn_unused_result__
-                       __attribute__format__(__printf__,pTHX_1,pTHX_2);
+                       __attribute__format__(__printf__,pTHX_1,pTHX_2)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV SV*      Perl_vnewSVpvf(pTHX_ const char* pat, va_list* args)
+                       __attribute__malloc__
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV SV*      Perl_vnewSVpvf(pTHX_ const char* pat, va_list* args);
 PERL_CALLCONV SV*      Perl_newSVrv(pTHX_ SV* rv, const char* classname)
                        __attribute__malloc__
                        __attribute__warn_unused_result__
@@ -1320,7 +1344,9 @@ PERL_CALLCONV I32 Perl_call_method(pTHX_ const char* methname, I32 flags)
 PERL_CALLCONV I32      Perl_call_pv(pTHX_ const char* sub_name, I32 flags)
                        __attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV I32      Perl_call_sv(pTHX_ SV* sv, I32 flags);
+PERL_CALLCONV I32      Perl_call_sv(pTHX_ SV* sv, I32 flags)
+                       __attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV void     Perl_despatch_signals(pTHX);
 PERL_CALLCONV SV*      Perl_eval_pv(pTHX_ const char* p, I32 croak_on_error)
                        __attribute__nonnull__(pTHX_1);
@@ -1470,31 +1496,65 @@ PERL_CALLCONV void      Perl_save_freepv(pTHX_ char* pv);
 PERL_CALLCONV void     Perl_save_generic_svref(pTHX_ SV** sptr);
 PERL_CALLCONV void     Perl_save_generic_pvref(pTHX_ char** str);
 PERL_CALLCONV void     Perl_save_shared_pvref(pTHX_ char** str);
-PERL_CALLCONV void     Perl_save_gp(pTHX_ GV* gv, I32 empty);
-PERL_CALLCONV HV*      Perl_save_hash(pTHX_ GV* gv);
+PERL_CALLCONV void     Perl_save_gp(pTHX_ GV* gv, I32 empty)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV HV*      Perl_save_hash(pTHX_ GV* gv)
+                       __attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV void     Perl_save_helem(pTHX_ HV* hv, SV *key, SV **sptr);
 PERL_CALLCONV void     Perl_save_hints(pTHX)
                        __attribute__noreturn__;
 
-PERL_CALLCONV void     Perl_save_hptr(pTHX_ HV** hptr);
-PERL_CALLCONV void     Perl_save_I16(pTHX_ I16* intp);
-PERL_CALLCONV void     Perl_save_I32(pTHX_ I32* intp);
-PERL_CALLCONV void     Perl_save_I8(pTHX_ I8* bytep);
-PERL_CALLCONV void     Perl_save_int(pTHX_ int* intp);
-PERL_CALLCONV void     Perl_save_item(pTHX_ SV* item);
-PERL_CALLCONV void     Perl_save_iv(pTHX_ IV* iv);
-PERL_CALLCONV void     Perl_save_list(pTHX_ SV** sarg, I32 maxsarg);
-PERL_CALLCONV void     Perl_save_long(pTHX_ long* longp);
-PERL_CALLCONV void     Perl_save_mortalizesv(pTHX_ SV* sv);
+PERL_CALLCONV void     Perl_save_hptr(pTHX_ HV** hptr)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_save_I16(pTHX_ I16* intp)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_save_I32(pTHX_ I32* intp)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_save_I8(pTHX_ I8* bytep)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_save_int(pTHX_ int* intp)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_save_item(pTHX_ SV* item)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_save_iv(pTHX_ IV* iv)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_save_list(pTHX_ SV** sarg, I32 maxsarg)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_save_long(pTHX_ long* longp)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_save_mortalizesv(pTHX_ SV* sv)
+                       __attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV void     Perl_save_nogv(pTHX_ GV* gv);
 PERL_CALLCONV void     Perl_save_op(pTHX);
-PERL_CALLCONV SV*      Perl_save_scalar(pTHX_ GV* gv);
-PERL_CALLCONV void     Perl_save_pptr(pTHX_ char** pptr);
-PERL_CALLCONV void     Perl_save_vptr(pTHX_ void* pptr);
+PERL_CALLCONV SV*      Perl_save_scalar(pTHX_ GV* gv)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_save_pptr(pTHX_ char** pptr)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_save_vptr(pTHX_ void* pptr)
+                       __attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV void     Perl_save_re_context(pTHX);
 PERL_CALLCONV void     Perl_save_padsv(pTHX_ PADOFFSET off);
-PERL_CALLCONV void     Perl_save_sptr(pTHX_ SV** sptr);
-PERL_CALLCONV SV*      Perl_save_svref(pTHX_ SV** sptr);
+PERL_CALLCONV void     Perl_save_sptr(pTHX_ SV** sptr)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV SV*      Perl_save_svref(pTHX_ SV** sptr)
+                       __attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV SV**     Perl_save_threadsv(pTHX_ PADOFFSET i)
                        __attribute__noreturn__;
 
@@ -1502,18 +1562,38 @@ PERL_CALLCONV OP*       Perl_sawparens(pTHX_ OP* o);
 PERL_CALLCONV OP*      Perl_scalar(pTHX_ OP* o);
 PERL_CALLCONV OP*      Perl_scalarkids(pTHX_ OP* o);
 PERL_CALLCONV OP*      Perl_scalarseq(pTHX_ OP* o);
-PERL_CALLCONV OP*      Perl_scalarvoid(pTHX_ OP* o);
-PERL_CALLCONV NV       Perl_scan_bin(pTHX_ const char* start, STRLEN len, STRLEN* retlen);
-PERL_CALLCONV NV       Perl_scan_hex(pTHX_ const char* start, STRLEN len, STRLEN* retlen);
-PERL_CALLCONV char*    Perl_scan_num(pTHX_ const char* s, YYSTYPE *lvalp);
-PERL_CALLCONV NV       Perl_scan_oct(pTHX_ const char* start, STRLEN len, STRLEN* retlen);
+PERL_CALLCONV OP*      Perl_scalarvoid(pTHX_ OP* o)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV NV       Perl_scan_bin(pTHX_ const char* start, STRLEN len, STRLEN* retlen)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_3);
+
+PERL_CALLCONV NV       Perl_scan_hex(pTHX_ const char* start, STRLEN len, STRLEN* retlen)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_3);
+
+PERL_CALLCONV char*    Perl_scan_num(pTHX_ const char* s, YYSTYPE *lvalp)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV NV       Perl_scan_oct(pTHX_ const char* start, STRLEN len, STRLEN* retlen)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_3);
+
 PERL_CALLCONV OP*      Perl_scope(pTHX_ OP* o);
-PERL_CALLCONV char*    Perl_screaminstr(pTHX_ SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last);
+PERL_CALLCONV char*    Perl_screaminstr(pTHX_ SV *bigstr, SV *littlestr, I32 start_shift, I32 end_shift, I32 *oldposp, I32 last)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_5);
+
 #if !defined(VMS)
 PERL_CALLCONV I32      Perl_setenv_getix(pTHX_ const char* nam);
 #endif
 PERL_CALLCONV void     Perl_setdefout(pTHX_ GV* gv);
-PERL_CALLCONV HEK*     Perl_share_hek(pTHX_ const char* sv, I32 len, U32 hash);
+PERL_CALLCONV HEK*     Perl_share_hek(pTHX_ const char* str, I32 len, U32 hash)
+                       __attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV Signal_t Perl_sighandler(int sig);
 PERL_CALLCONV Signal_t Perl_csighandler(int sig);
 PERL_CALLCONV SV**     Perl_stack_grow(pTHX_ SV** sp, SV**p, int n)
@@ -1523,12 +1603,15 @@ PERL_CALLCONV SV**      Perl_stack_grow(pTHX_ SV** sp, SV**p, int n)
 PERL_CALLCONV I32      Perl_start_subparse(pTHX_ I32 is_format, U32 flags)
                        __attribute__warn_unused_result__;
 
-PERL_CALLCONV void     Perl_sub_crush_depth(pTHX_ CV* cv);
+PERL_CALLCONV void     Perl_sub_crush_depth(pTHX_ CV* cv)
+                       __attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV bool     Perl_sv_2bool(pTHX_ SV* sv)
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV CV*      Perl_sv_2cv(pTHX_ SV* sv, HV** st, GV** gvp, I32 lref)
-                       __attribute__nonnull__(pTHX_1);
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3);
 
 PERL_CALLCONV IO*      Perl_sv_2io(pTHX_ SV* sv)
                        __attribute__nonnull__(pTHX_1);
@@ -1587,9 +1670,7 @@ PERL_CALLCONV char*       Perl_sv_pvbyten(pTHX_ SV *sv, STRLEN *len)
                        __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_2);
 
-PERL_CALLCONV I32      Perl_sv_true(pTHX_ SV *sv)
-                       __attribute__nonnull__(pTHX_1);
-
+PERL_CALLCONV I32      Perl_sv_true(pTHX_ SV *sv);
 PERL_CALLCONV void     Perl_sv_add_arena(pTHX_ char* ptr, U32 size, U32 flags)
                        __attribute__nonnull__(pTHX_1);
 
@@ -1602,16 +1683,20 @@ PERL_CALLCONV SV*       Perl_sv_bless(pTHX_ SV* sv, HV* stash)
 
 PERL_CALLCONV void     Perl_sv_catpvf(pTHX_ SV* sv, const char* pat, ...)
                        __attribute__format__(__printf__,pTHX_2,pTHX_3)
-                       __attribute__nonnull__(pTHX_1);
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
 
 PERL_CALLCONV void     Perl_sv_vcatpvf(pTHX_ SV* sv, const char* pat, va_list* args)
-                       __attribute__nonnull__(pTHX_1);
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
 
 PERL_CALLCONV void     Perl_sv_catpv(pTHX_ SV* sv, const char* ptr)
-                       __attribute__nonnull__(pTHX_1);
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
 
 /* PERL_CALLCONV void  sv_catpvn(pTHX_ SV* sv, const char* ptr, STRLEN len)
-                       __attribute__nonnull__(pTHX_1); */
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2); */
 
 /* PERL_CALLCONV void  sv_catsv(pTHX_ SV* dsv, SV* ssv)
                        __attribute__nonnull__(pTHX_1); */
@@ -1682,11 +1767,9 @@ PERL_CALLCONV void       Perl_sv_insert(pTHX_ SV* bigsv, STRLEN offset, STRLEN len, co
                        __attribute__nonnull__(pTHX_4);
 
 PERL_CALLCONV int      Perl_sv_isa(pTHX_ SV* sv, const char* name)
-                       __attribute__nonnull__(pTHX_1);
-
-PERL_CALLCONV int      Perl_sv_isobject(pTHX_ SV* sv)
-                       __attribute__nonnull__(pTHX_1);
+                       __attribute__nonnull__(pTHX_2);
 
+PERL_CALLCONV int      Perl_sv_isobject(pTHX_ SV* sv);
 PERL_CALLCONV STRLEN   Perl_sv_len(pTHX_ SV* sv);
 PERL_CALLCONV STRLEN   Perl_sv_len_utf8(pTHX_ SV* sv);
 PERL_CALLCONV void     Perl_sv_magic(pTHX_ SV* sv, SV* obj, int how, const char* name, I32 namlen)
@@ -1710,11 +1793,26 @@ PERL_CALLCONV void      Perl_sv_pos_u2b(pTHX_ SV* sv, I32* offsetp, I32* lenp)
 PERL_CALLCONV void     Perl_sv_pos_b2u(pTHX_ SV* sv, I32* offsetp)
                        __attribute__nonnull__(pTHX_2);
 
-/* PERL_CALLCONV char* sv_pvn_force(pTHX_ SV* sv, STRLEN* lp); */
-PERL_CALLCONV char*    Perl_sv_pvutf8n_force(pTHX_ SV* sv, STRLEN* lp);
-PERL_CALLCONV char*    Perl_sv_pvbyten_force(pTHX_ SV* sv, STRLEN* lp);
-PERL_CALLCONV char*    Perl_sv_recode_to_utf8(pTHX_ SV* sv, SV *encoding);
-PERL_CALLCONV bool     Perl_sv_cat_decode(pTHX_ SV* dsv, SV *encoding, SV *ssv, int *offset, char* tstr, int tlen);
+/* PERL_CALLCONV char* sv_pvn_force(pTHX_ SV* sv, STRLEN* lp)
+                       __attribute__nonnull__(pTHX_1); */
+
+PERL_CALLCONV char*    Perl_sv_pvutf8n_force(pTHX_ SV* sv, STRLEN* lp)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV char*    Perl_sv_pvbyten_force(pTHX_ SV* sv, STRLEN* lp)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV char*    Perl_sv_recode_to_utf8(pTHX_ SV* sv, SV *encoding)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV bool     Perl_sv_cat_decode(pTHX_ SV* dsv, SV *encoding, SV *ssv, int *offset, char* tstr, int tlen)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3)
+                       __attribute__nonnull__(pTHX_4)
+                       __attribute__nonnull__(pTHX_5);
+
 PERL_CALLCONV char*    Perl_sv_reftype(pTHX_ const SV* sv, int ob)
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
@@ -1728,30 +1826,57 @@ PERL_CALLCONV void      Perl_sv_reset(pTHX_ const char* s, HV* stash)
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV void     Perl_sv_setpvf(pTHX_ SV* sv, const char* pat, ...)
-                       __attribute__format__(__printf__,pTHX_2,pTHX_3);
+                       __attribute__format__(__printf__,pTHX_2,pTHX_3)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV void     Perl_sv_vsetpvf(pTHX_ SV* sv, const char* pat, va_list* args)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV void     Perl_sv_setiv(pTHX_ SV* sv, IV num)
+                       __attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV void     Perl_sv_vsetpvf(pTHX_ SV* sv, const char* pat, va_list* args);
-PERL_CALLCONV void     Perl_sv_setiv(pTHX_ SV* sv, IV num);
 PERL_CALLCONV void     Perl_sv_setpviv(pTHX_ SV* sv, IV num)
                        __attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV void     Perl_sv_setuv(pTHX_ SV* sv, UV num);
-PERL_CALLCONV void     Perl_sv_setnv(pTHX_ SV* sv, NV num);
-PERL_CALLCONV SV*      Perl_sv_setref_iv(pTHX_ SV* rv, const char* classname, IV iv);
-PERL_CALLCONV SV*      Perl_sv_setref_uv(pTHX_ SV* rv, const char* classname, UV uv);
-PERL_CALLCONV SV*      Perl_sv_setref_nv(pTHX_ SV* rv, const char* classname, NV nv);
-PERL_CALLCONV SV*      Perl_sv_setref_pv(pTHX_ SV* rv, const char* classname, void* pv);
+PERL_CALLCONV void     Perl_sv_setuv(pTHX_ SV* sv, UV num)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_sv_setnv(pTHX_ SV* sv, NV num)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV SV*      Perl_sv_setref_iv(pTHX_ SV* rv, const char* classname, IV iv)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV SV*      Perl_sv_setref_uv(pTHX_ SV* rv, const char* classname, UV uv)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV SV*      Perl_sv_setref_nv(pTHX_ SV* rv, const char* classname, NV nv)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV SV*      Perl_sv_setref_pv(pTHX_ SV* rv, const char* classname, void* pv)
+                       __attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV SV*      Perl_sv_setref_pvn(pTHX_ SV* rv, const char* classname, const char* pv, STRLEN n)
+                       __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_3);
 
-PERL_CALLCONV void     Perl_sv_setpv(pTHX_ SV* sv, const char* ptr);
+PERL_CALLCONV void     Perl_sv_setpv(pTHX_ SV* sv, const char* ptr)
+                       __attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV void     Perl_sv_setpvn(pTHX_ SV* sv, const char* ptr, STRLEN len)
                        __attribute__nonnull__(pTHX_1);
 
-/* PERL_CALLCONV void  sv_setsv(pTHX_ SV* dsv, SV* ssv); */
-PERL_CALLCONV void     Perl_sv_taint(pTHX_ SV* sv);
+/* PERL_CALLCONV void  sv_setsv(pTHX_ SV* dsv, SV* ssv)
+                       __attribute__nonnull__(pTHX_1); */
+
+PERL_CALLCONV void     Perl_sv_taint(pTHX_ SV* sv)
+                       __attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV bool     Perl_sv_tainted(pTHX_ SV* sv)
-                       __attribute__warn_unused_result__;
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV int      Perl_sv_unmagic(pTHX_ SV* sv, int type)
                        __attribute__nonnull__(pTHX_1);
@@ -1779,9 +1904,19 @@ PERL_CALLCONV void       Perl_sv_vsetpvfn(pTHX_ SV* sv, const char* pat, STRLEN patlen
                        __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_2);
 
-PERL_CALLCONV NV       Perl_str_to_version(pTHX_ SV *sv);
-PERL_CALLCONV SV*      Perl_swash_init(pTHX_ const char* pkg, const char* name, SV* listsv, I32 minbits, I32 none);
-PERL_CALLCONV UV       Perl_swash_fetch(pTHX_ SV *sv, const U8 *ptr, bool do_utf8);
+PERL_CALLCONV NV       Perl_str_to_version(pTHX_ SV *sv)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV SV*      Perl_swash_init(pTHX_ const char* pkg, const char* name, SV* listsv, I32 minbits, I32 none)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3);
+
+PERL_CALLCONV UV       Perl_swash_fetch(pTHX_ SV *sv, const U8 *ptr, bool do_utf8)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
 PERL_CALLCONV void     Perl_taint_env(pTHX);
 PERL_CALLCONV void     Perl_taint_proper(pTHX_ const char* f, const char* s)
                        __attribute__nonnull__(pTHX_2);
@@ -1807,15 +1942,37 @@ PERL_CALLCONV UV        Perl_to_utf8_fold(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp)
                        __attribute__nonnull__(pTHX_2);
 
 #if defined(UNLINK_ALL_VERSIONS)
-PERL_CALLCONV I32      Perl_unlnk(pTHX_ char* f);
+PERL_CALLCONV I32      Perl_unlnk(pTHX_ char* f)
+                       __attribute__nonnull__(pTHX_1);
+
 #endif
-PERL_CALLCONV I32      Perl_unpack_str(pTHX_ const char *pat, const char *patend, const char *s, const char *strbeg, const char *strend, char **new_s, I32 ocnt, U32 flags);
-PERL_CALLCONV I32      Perl_unpackstring(pTHX_ const char *pat, const char *patend, const char *s, const char *strend, U32 flags);
+PERL_CALLCONV I32      Perl_unpack_str(pTHX_ const char *pat, const char *patend, const char *s, const char *strbeg, const char *strend, char **new_s, I32 ocnt, U32 flags)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3)
+                       __attribute__nonnull__(pTHX_5);
+
+PERL_CALLCONV I32      Perl_unpackstring(pTHX_ const char *pat, const char *patend, const char *s, const char *strend, U32 flags)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3)
+                       __attribute__nonnull__(pTHX_4);
+
 PERL_CALLCONV void     Perl_unsharepvn(pTHX_ const char* sv, I32 len, U32 hash);
 PERL_CALLCONV void     Perl_unshare_hek(pTHX_ HEK* hek);
-PERL_CALLCONV void     Perl_utilize(pTHX_ int aver, I32 floor, OP* version, OP* idop, OP* arg);
-PERL_CALLCONV U8*      Perl_utf16_to_utf8(pTHX_ U8* p, U8 *d, I32 bytelen, I32 *newlen);
-PERL_CALLCONV U8*      Perl_utf16_to_utf8_reversed(pTHX_ U8* p, U8 *d, I32 bytelen, I32 *newlen);
+PERL_CALLCONV void     Perl_utilize(pTHX_ int aver, I32 floor, OP* version, OP* idop, OP* arg)
+                       __attribute__nonnull__(pTHX_4);
+
+PERL_CALLCONV U8*      Perl_utf16_to_utf8(pTHX_ U8* p, U8 *d, I32 bytelen, I32 *newlen)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_4);
+
+PERL_CALLCONV U8*      Perl_utf16_to_utf8_reversed(pTHX_ U8* p, U8 *d, I32 bytelen, I32 *newlen)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_4);
+
 PERL_CALLCONV STRLEN   Perl_utf8_length(pTHX_ const U8* s, const U8 *e)
                        __attribute__warn_unused_result__
                        __attribute__pure__
@@ -1837,12 +1994,26 @@ PERL_CALLCONV U8*       Perl_utf8_to_bytes(pTHX_ U8 *s, STRLEN *len)
                        __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_2);
 
-PERL_CALLCONV U8*      Perl_bytes_from_utf8(pTHX_ const U8 *s, STRLEN *len, bool *is_utf8);
-PERL_CALLCONV U8*      Perl_bytes_to_utf8(pTHX_ const U8 *s, STRLEN *len);
-PERL_CALLCONV UV       Perl_utf8_to_uvchr(pTHX_ const U8 *s, STRLEN* retlen);
-PERL_CALLCONV UV       Perl_utf8_to_uvuni(pTHX_ const U8 *s, STRLEN* retlen);
-PERL_CALLCONV UV       Perl_utf8n_to_uvchr(pTHX_ const U8 *s, STRLEN curlen, STRLEN* retlen, U32 flags);
-PERL_CALLCONV UV       Perl_utf8n_to_uvuni(pTHX_ const U8 *s, STRLEN curlen, STRLEN* retlen, U32 flags);
+PERL_CALLCONV U8*      Perl_bytes_from_utf8(pTHX_ const U8 *s, STRLEN *len, bool *is_utf8)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV U8*      Perl_bytes_to_utf8(pTHX_ const U8 *s, STRLEN *len)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV UV       Perl_utf8_to_uvchr(pTHX_ const U8 *s, STRLEN *retlen)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV UV       Perl_utf8_to_uvuni(pTHX_ const U8 *s, STRLEN *retlen)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV UV       Perl_utf8n_to_uvchr(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV UV       Perl_utf8n_to_uvuni(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags)
+                       __attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV U8*      Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv)
                        __attribute__nonnull__(pTHX_1);
 
@@ -1859,9 +2030,15 @@ PERL_CALLCONV char*      Perl_pv_uni_display(pTHX_ SV *dsv, const U8 *spv, STRLEN len
 PERL_CALLCONV char*    Perl_sv_uni_display(pTHX_ SV *dsv, SV *ssv, STRLEN pvlim, UV flags)
                        __attribute__warn_unused_result__;
 
-PERL_CALLCONV void     Perl_vivify_defelem(pTHX_ SV* sv);
-PERL_CALLCONV void     Perl_vivify_ref(pTHX_ SV* sv, U32 to_what);
-PERL_CALLCONV I32      Perl_wait4pid(pTHX_ Pid_t pid, int* statusp, int flags);
+PERL_CALLCONV void     Perl_vivify_defelem(pTHX_ SV* sv)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_vivify_ref(pTHX_ SV* sv, U32 to_what)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV I32      Perl_wait4pid(pTHX_ Pid_t pid, int* statusp, int flags)
+                       __attribute__nonnull__(pTHX_2);
+
 PERL_CALLCONV U32      Perl_parse_unicode_opts(pTHX_ const char **popt);
 PERL_CALLCONV U32      Perl_seed(pTHX);
 PERL_CALLCONV UV       Perl_get_hash_seed(pTHX)
@@ -1870,22 +2047,40 @@ PERL_CALLCONV UV        Perl_get_hash_seed(pTHX)
 PERL_CALLCONV void     Perl_report_evil_fh(pTHX_ const GV *gv, const IO *io, I32 op);
 PERL_CALLCONV void     Perl_report_uninit(pTHX_ SV* uninit_sv);
 PERL_CALLCONV void     Perl_warn(pTHX_ const char* pat, ...)
-                       __attribute__format__(__printf__,pTHX_1,pTHX_2);
+                       __attribute__format__(__printf__,pTHX_1,pTHX_2)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_vwarn(pTHX_ const char* pat, va_list* args)
+                       __attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV void     Perl_vwarn(pTHX_ const char* pat, va_list* args);
 PERL_CALLCONV void     Perl_warner(pTHX_ U32 err, const char* pat, ...)
-                       __attribute__format__(__printf__,pTHX_2,pTHX_3);
+                       __attribute__format__(__printf__,pTHX_2,pTHX_3)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV void     Perl_vwarner(pTHX_ U32 err, const char* pat, va_list* args)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV void     Perl_watch(pTHX_ char** addr)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV I32      Perl_whichsig(pTHX_ const char* sig)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_write_to_stderr(pTHX_ const char* message, int msglen)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV int      Perl_yyerror(pTHX_ const char* s)
+                       __attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV void     Perl_vwarner(pTHX_ U32 err, const char* pat, va_list* args);
-PERL_CALLCONV void     Perl_watch(pTHX_ char** addr);
-PERL_CALLCONV I32      Perl_whichsig(pTHX_ const char* sig);
-PERL_CALLCONV void     Perl_write_to_stderr(pTHX_ const char* message, int msglen);
-PERL_CALLCONV int      Perl_yyerror(pTHX_ const char* s);
 PERL_CALLCONV int      Perl_yylex(pTHX);
 PERL_CALLCONV int      Perl_yyparse(pTHX);
-PERL_CALLCONV int      Perl_yywarn(pTHX_ const char* s);
+PERL_CALLCONV int      Perl_yywarn(pTHX_ const char* s)
+                       __attribute__nonnull__(pTHX_1);
+
 #if defined(MYMALLOC)
-PERL_CALLCONV void     Perl_dump_mstats(pTHX_ char* s);
+PERL_CALLCONV void     Perl_dump_mstats(pTHX_ char* s)
+                       __attribute__nonnull__(pTHX_1);
+
 PERL_CALLCONV int      Perl_get_mstats(pTHX_ perl_mstats_t *buf, int buflen, int level)
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
@@ -1912,46 +2107,93 @@ PERL_CALLCONV void      Perl_free_global_struct(pTHX_ struct perl_vars*);
 PERL_CALLCONV int      Perl_runops_standard(pTHX);
 PERL_CALLCONV int      Perl_runops_debug(pTHX);
 PERL_CALLCONV void     Perl_sv_catpvf_mg(pTHX_ SV *sv, const char* pat, ...)
-                       __attribute__format__(__printf__,pTHX_2,pTHX_3);
+                       __attribute__format__(__printf__,pTHX_2,pTHX_3)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV void     Perl_sv_vcatpvf_mg(pTHX_ SV* sv, const char* pat, va_list* args)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV void     Perl_sv_catpv_mg(pTHX_ SV *sv, const char *ptr)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV void     Perl_sv_catpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV void     Perl_sv_catsv_mg(pTHX_ SV *dstr, SV *sstr)
+                       __attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV void     Perl_sv_vcatpvf_mg(pTHX_ SV* sv, const char* pat, va_list* args);
-PERL_CALLCONV void     Perl_sv_catpv_mg(pTHX_ SV *sv, const char *ptr);
-PERL_CALLCONV void     Perl_sv_catpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len);
-PERL_CALLCONV void     Perl_sv_catsv_mg(pTHX_ SV *dstr, SV *sstr);
 PERL_CALLCONV void     Perl_sv_setpvf_mg(pTHX_ SV *sv, const char* pat, ...)
-                       __attribute__format__(__printf__,pTHX_2,pTHX_3);
+                       __attribute__format__(__printf__,pTHX_2,pTHX_3)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV void     Perl_sv_vsetpvf_mg(pTHX_ SV* sv, const char* pat, va_list* args)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV void     Perl_sv_setiv_mg(pTHX_ SV *sv, IV i)
+                       __attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV void     Perl_sv_vsetpvf_mg(pTHX_ SV* sv, const char* pat, va_list* args);
-PERL_CALLCONV void     Perl_sv_setiv_mg(pTHX_ SV *sv, IV i);
 PERL_CALLCONV void     Perl_sv_setpviv_mg(pTHX_ SV *sv, IV iv)
                        __attribute__nonnull__(pTHX_1);
 
-PERL_CALLCONV void     Perl_sv_setuv_mg(pTHX_ SV *sv, UV u);
-PERL_CALLCONV void     Perl_sv_setnv_mg(pTHX_ SV *sv, NV num);
-PERL_CALLCONV void     Perl_sv_setpv_mg(pTHX_ SV *sv, const char *ptr);
-PERL_CALLCONV void     Perl_sv_setpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len);
-PERL_CALLCONV void     Perl_sv_setsv_mg(pTHX_ SV *dstr, SV *sstr);
-PERL_CALLCONV void     Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len);
-PERL_CALLCONV MGVTBL*  Perl_get_vtbl(pTHX_ int vtbl_id);
-PERL_CALLCONV char*    Perl_pv_display(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRLEN pvlim);
+PERL_CALLCONV void     Perl_sv_setuv_mg(pTHX_ SV *sv, UV u)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_sv_setnv_mg(pTHX_ SV *sv, NV num)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_sv_setpv_mg(pTHX_ SV *sv, const char *ptr)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_sv_setpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
+PERL_CALLCONV void     Perl_sv_setsv_mg(pTHX_ SV *dstr, SV *sstr)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV void     Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len)
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV MGVTBL*  Perl_get_vtbl(pTHX_ int vtbl_id)
+                       __attribute__warn_unused_result__;
+
+PERL_CALLCONV char*    Perl_pv_display(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRLEN pvlim)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
 PERL_CALLCONV void     Perl_dump_indent(pTHX_ I32 level, PerlIO *file, const char* pat, ...)
                        __attribute__format__(__printf__,pTHX_3,pTHX_4)
-                       __attribute__nonnull__(pTHX_2);
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3);
 
 PERL_CALLCONV void     Perl_dump_vindent(pTHX_ I32 level, PerlIO *file, const char* pat, va_list *args)
-                       __attribute__nonnull__(pTHX_2);
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3);
 
 PERL_CALLCONV void     Perl_do_gv_dump(pTHX_ I32 level, PerlIO *file, const char *name, GV *sv)
-                       __attribute__nonnull__(pTHX_2);
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3)
+                       __attribute__nonnull__(pTHX_4);
 
 PERL_CALLCONV void     Perl_do_gvgv_dump(pTHX_ I32 level, PerlIO *file, const char *name, GV *sv)
-                       __attribute__nonnull__(pTHX_2);
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3)
+                       __attribute__nonnull__(pTHX_4);
 
 PERL_CALLCONV void     Perl_do_hv_dump(pTHX_ I32 level, PerlIO *file, const char *name, HV *sv)
-                       __attribute__nonnull__(pTHX_2);
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3)
+                       __attribute__nonnull__(pTHX_4);
 
 PERL_CALLCONV void     Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, const MAGIC *mg, I32 nest, I32 maxnest, bool dumpops, STRLEN pvlim)
-                       __attribute__nonnull__(pTHX_2);
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3);
 
 PERL_CALLCONV void     Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o)
                        __attribute__nonnull__(pTHX_2);
@@ -1964,9 +2206,18 @@ PERL_CALLCONV void       Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 ne
 
 PERL_CALLCONV void     Perl_magic_dump(pTHX_ const MAGIC *mg);
 PERL_CALLCONV void     Perl_reginitcolors(pTHX);
-PERL_CALLCONV char*    Perl_sv_2pv_nolen(pTHX_ SV* sv);
-PERL_CALLCONV char*    Perl_sv_2pvutf8_nolen(pTHX_ SV* sv);
-PERL_CALLCONV char*    Perl_sv_2pvbyte_nolen(pTHX_ SV* sv);
+PERL_CALLCONV char*    Perl_sv_2pv_nolen(pTHX_ SV* sv)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV char*    Perl_sv_2pvutf8_nolen(pTHX_ SV* sv)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+
+PERL_CALLCONV char*    Perl_sv_2pvbyte_nolen(pTHX_ SV* sv)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
+
 /* PERL_CALLCONV char* sv_pv(pTHX_ SV *sv)
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1); */
@@ -2017,16 +2268,19 @@ PERL_CALLCONV void      Perl_boot_core_xsutils(pTHX);
 #if defined(USE_ITHREADS)
 PERL_CALLCONV PERL_CONTEXT*    Perl_cx_dup(pTHX_ PERL_CONTEXT* cx, I32 ix, I32 max, CLONE_PARAMS* param)
                        __attribute__malloc__
-                       __attribute__warn_unused_result__;
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_4);
 
 PERL_CALLCONV PERL_SI* Perl_si_dup(pTHX_ PERL_SI* si, CLONE_PARAMS* param)
                        __attribute__malloc__
-                       __attribute__warn_unused_result__;
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_2);
 
 PERL_CALLCONV ANY*     Perl_ss_dup(pTHX_ PerlInterpreter* proto_perl, CLONE_PARAMS* param)
                        __attribute__malloc__
                        __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
 
 PERL_CALLCONV void*    Perl_any_dup(pTHX_ void* v, const PerlInterpreter* proto_perl)
                        __attribute__malloc__
@@ -2035,19 +2289,23 @@ PERL_CALLCONV void*     Perl_any_dup(pTHX_ void* v, const PerlInterpreter* proto_per
 
 PERL_CALLCONV HE*      Perl_he_dup(pTHX_ HE* e, bool shared, CLONE_PARAMS* param)
                        __attribute__malloc__
-                       __attribute__warn_unused_result__;
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_3);
 
 PERL_CALLCONV HEK*     Perl_hek_dup(pTHX_ HEK* e, CLONE_PARAMS* param)
                        __attribute__malloc__
-                       __attribute__warn_unused_result__;
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_2);
 
 PERL_CALLCONV REGEXP*  Perl_re_dup(pTHX_ const REGEXP* r, CLONE_PARAMS* param)
                        __attribute__malloc__
-                       __attribute__warn_unused_result__;
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_2);
 
 PERL_CALLCONV PerlIO*  Perl_fp_dup(pTHX_ PerlIO* fp, char type, CLONE_PARAMS* param)
                        __attribute__malloc__
-                       __attribute__warn_unused_result__;
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_3);
 
 PERL_CALLCONV DIR*     Perl_dirp_dup(pTHX_ DIR* dp)
                        __attribute__malloc__
@@ -2055,21 +2313,23 @@ PERL_CALLCONV DIR*      Perl_dirp_dup(pTHX_ DIR* dp)
 
 PERL_CALLCONV GP*      Perl_gp_dup(pTHX_ GP* gp, CLONE_PARAMS* param)
                        __attribute__malloc__
-                       __attribute__warn_unused_result__;
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_2);
 
 PERL_CALLCONV MAGIC*   Perl_mg_dup(pTHX_ MAGIC* mg, CLONE_PARAMS* param)
                        __attribute__malloc__
                        __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
+                       __attribute__nonnull__(pTHX_2);
 
 PERL_CALLCONV SV*      Perl_sv_dup(pTHX_ SV* sstr, CLONE_PARAMS* param)
                        __attribute__malloc__
                        __attribute__warn_unused_result__
-                       __attribute__nonnull__(pTHX_1);
+                       __attribute__nonnull__(pTHX_2);
 
 PERL_CALLCONV void     Perl_rvpv_dup(pTHX_ SV* dstr, SV *sstr, CLONE_PARAMS* param)
                        __attribute__nonnull__(pTHX_1)
-                       __attribute__nonnull__(pTHX_2);
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3);
 
 PERL_CALLCONV PTR_TBL_t*       Perl_ptr_table_new(pTHX)
                        __attribute__malloc__
@@ -2112,7 +2372,9 @@ PERL_CALLCONV char *      Perl_custom_op_desc(pTHX_ const OP* op)
 
 
 #if defined(PERL_OLD_COPY_ON_WRITE)
-PERL_CALLCONV int      Perl_sv_release_IVX(pTHX_ SV *sv);
+PERL_CALLCONV int      Perl_sv_release_IVX(pTHX_ SV *sv)
+                       __attribute__nonnull__(pTHX_1);
+
 #endif
 
 PERL_CALLCONV void     Perl_sv_nosharing(pTHX_ SV *);
@@ -2192,8 +2454,8 @@ STATIC void       S_hv_notallowed(pTHX_ int flags, const char *key, I32 klen, const ch
 STATIC struct xpvhv_aux*       S_hv_auxinit(pTHX_ HV *hv)
                        __attribute__nonnull__(pTHX_1);
 
-STATIC SV*     S_hv_delete_common(pTHX_ HV* tb, SV* key_sv, const char* key, STRLEN klen, int k_flags, I32 d_flags, U32 hash);
-STATIC HE*     S_hv_fetch_common(pTHX_ HV* tb, SV* key_sv, const char* key, STRLEN klen, int flags, int action, SV* val, U32 hash);
+STATIC SV*     S_hv_delete_common(pTHX_ HV* tb, SV* keysv, const char* key, STRLEN klen, int k_flags, I32 d_flags, U32 hash);
+STATIC HE*     S_hv_fetch_common(pTHX_ HV* tb, SV* keysv, const char* key, STRLEN klen, int flags, int action, SV* val, U32 hash);
 #endif
 
 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
@@ -2409,12 +2671,27 @@ STATIC OP*      S_new_logop(pTHX_ I32 type, I32 flags, OP **firstp, OP **otherp)
 STATIC void    S_simplify_sort(pTHX_ OP *o)
                        __attribute__nonnull__(pTHX_1);
 
-STATIC const char*     S_gv_ename(pTHX_ GV *gv);
-STATIC bool    S_scalar_mod_type(pTHX_ const OP *o, I32 type);
-STATIC OP *    S_my_kid(pTHX_ OP *o, OP *attrs, OP **imopsp);
-STATIC OP *    S_dup_attrlist(pTHX_ OP *o);
-STATIC void    S_apply_attrs(pTHX_ HV *stash, SV *target, OP *attrs, bool for_my);
-STATIC void    S_apply_attrs_my(pTHX_ HV *stash, OP *target, OP *attrs, OP **imopsp);
+STATIC const char*     S_gv_ename(pTHX_ GV *gv)
+                       __attribute__nonnull__(pTHX_1);
+
+STATIC bool    S_scalar_mod_type(pTHX_ const OP *o, I32 type)
+                       __attribute__nonnull__(pTHX_1);
+
+STATIC OP *    S_my_kid(pTHX_ OP *o, OP *attrs, OP **imopsp)
+                       __attribute__nonnull__(pTHX_3);
+
+STATIC OP *    S_dup_attrlist(pTHX_ OP *o)
+                       __attribute__nonnull__(pTHX_1);
+
+STATIC void    S_apply_attrs(pTHX_ HV *stash, SV *target, OP *attrs, bool for_my)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
+STATIC void    S_apply_attrs_my(pTHX_ HV *stash, OP *target, OP *attrs, OP **imopsp)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_4);
+
 STATIC void    S_bad_type(pTHX_ I32 n, const char *t, const char *name, const OP *kid)
                        __attribute__nonnull__(pTHX_2)
                        __attribute__nonnull__(pTHX_3)
@@ -2440,29 +2717,44 @@ STATIC OP*      S_too_many_arguments(pTHX_ OP *o, const char* name)
 #endif
 #if defined(PL_OP_SLAB_ALLOC)
 PERL_CALLCONV void*    Perl_Slab_Alloc(pTHX_ int m, size_t sz)
+                       __attribute__malloc__
                        __attribute__warn_unused_result__;
 
-PERL_CALLCONV void     Perl_Slab_Free(pTHX_ void *op);
+PERL_CALLCONV void     Perl_Slab_Free(pTHX_ void *op)
+                       __attribute__nonnull__(pTHX_1);
+
 #endif
 
 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
 STATIC void    S_find_beginning(pTHX);
-STATIC void    S_forbid_setid(pTHX_ const char * s);
+STATIC void    S_forbid_setid(pTHX_ const char * s)
+                       __attribute__nonnull__(pTHX_1);
+
 STATIC void    S_incpush(pTHX_ const char *dir, bool addsubdirs, bool addoldvers, bool usesep, bool canrelocate);
 STATIC void    S_init_interp(pTHX);
 STATIC void    S_init_ids(pTHX);
 STATIC void    S_init_lexer(pTHX);
 STATIC void    S_init_main_stash(pTHX);
 STATIC void    S_init_perllib(pTHX);
-STATIC void    S_init_postdump_symbols(pTHX_ int, char **, char **);
+STATIC void    S_init_postdump_symbols(pTHX_ int argc, char **argv, char **env)
+                       __attribute__nonnull__(pTHX_2);
+
 STATIC void    S_init_predump_symbols(pTHX);
 STATIC void    S_my_exit_jump(pTHX)
                        __attribute__noreturn__;
 
 STATIC void    S_nuke_stacks(pTHX);
-STATIC void    S_open_script(pTHX_ const char *scriptname, bool dosearch, SV *sv);
-STATIC void    S_usage(pTHX_ const char *name);
-STATIC void    S_validate_suid(pTHX_ const char *validarg, const char *scriptname);
+STATIC void    S_open_script(pTHX_ const char *scriptname, bool dosearch, SV *sv)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_3);
+
+STATIC void    S_usage(pTHX_ const char *name)
+                       __attribute__nonnull__(pTHX_1);
+
+STATIC void    S_validate_suid(pTHX_ const char *validarg, const char *scriptname)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
 #  if defined(IAMSUID)
 STATIC int     S_fd_on_nosuid_fs(pTHX_ int fd);
 #  endif
@@ -2470,19 +2762,34 @@ STATIC void*    S_parse_body(pTHX_ char **env, XSINIT_t xsinit);
 STATIC void    S_run_body(pTHX_ I32 oldscope)
                        __attribute__noreturn__;
 
-STATIC void    S_call_body(pTHX_ const OP *myop, bool is_eval);
-STATIC void*   S_call_list_body(pTHX_ CV *cv);
+STATIC void    S_call_body(pTHX_ const OP *myop, bool is_eval)
+                       __attribute__nonnull__(pTHX_1);
+
+STATIC void*   S_call_list_body(pTHX_ CV *cv)
+                       __attribute__nonnull__(pTHX_1);
+
 #endif
 
 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
 STATIC SV*     S_refto(pTHX_ SV* sv)
-                       __attribute__warn_unused_result__;
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
 
 #endif
 
 #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
-STATIC I32     S_unpack_rec(pTHX_ struct tempsym* symptr, const char *s, const char *strbeg, const char *strend, const char **new_s);
-STATIC SV **   S_pack_rec(pTHX_ SV *cat, struct tempsym* symptr, SV **beglist, SV **endlist);
+STATIC I32     S_unpack_rec(pTHX_ struct tempsym* symptr, const char *s, const char *strbeg, const char *strend, const char **new_s)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3)
+                       __attribute__nonnull__(pTHX_4);
+
+STATIC SV **   S_pack_rec(pTHX_ SV *cat, struct tempsym* symptr, SV **beglist, SV **endlist)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3)
+                       __attribute__nonnull__(pTHX_4);
+
 STATIC SV*     S_mul128(pTHX_ SV *sv, U8 m)
                        __attribute__nonnull__(pTHX_1);
 
@@ -2509,6 +2816,14 @@ STATIC const char *      S_get_num(pTHX_ const char *ppat, I32 *lenptr)
                        __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_2);
 
+STATIC bool    S_need_utf8(const char *pat, const char *patend)
+                       __attribute__nonnull__(1)
+                       __attribute__nonnull__(2);
+
+STATIC char    S_first_symbol(const char *pat, const char *patend)
+                       __attribute__nonnull__(1)
+                       __attribute__nonnull__(2);
+
 #endif
 
 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
@@ -2517,10 +2832,15 @@ STATIC OP*      S_docatch(pTHX_ OP *o)
 
 STATIC void    S_docatch_body(pTHX);
 STATIC OP*     S_dofindlabel(pTHX_ OP *o, const char *label, OP **opstack, OP **oplimit)
-                       __attribute__warn_unused_result__;
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3)
+                       __attribute__nonnull__(pTHX_4);
 
 STATIC OP*     S_doparseform(pTHX_ SV *sv)
-                       __attribute__warn_unused_result__;
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
 
 STATIC bool    S_num_overflow(NV value, I32 fldsize, I32 frcsize)
                        __attribute__warn_unused_result__;
@@ -2539,7 +2859,8 @@ STATIC I32        S_dopoptosub(pTHX_ I32 startingblock)
                        __attribute__warn_unused_result__;
 
 STATIC I32     S_dopoptosub_at(pTHX_ const PERL_CONTEXT* cxstk, I32 startingblock)
-                       __attribute__warn_unused_result__;
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
 
 STATIC void    S_save_lines(pTHX_ AV *array, SV *sv)
                        __attribute__nonnull__(pTHX_2);
@@ -2548,7 +2869,9 @@ STATIC OP*        S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq)
                        __attribute__warn_unused_result__;
 
 STATIC PerlIO *        S_doopen_pm(pTHX_ const char *name, const char *mode)
-                       __attribute__warn_unused_result__;
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
 
 STATIC bool    S_path_is_absolute(pTHX_ const char *name)
                        __attribute__warn_unused_result__
@@ -2648,12 +2971,19 @@ STATIC char*    S_nextchar(pTHX_ struct RExC_state_t*)
                        __attribute__nonnull__(pTHX_1);
 
 #  ifdef DEBUGGING
-STATIC regnode*        S_dumpuntil(pTHX_ regnode *start, regnode *node, regnode *last, SV* sv, I32 l);
+STATIC regnode*        S_dumpuntil(pTHX_ regnode *start, regnode *node, regnode *last, SV* sv, I32 l)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_4);
+
 STATIC void    S_put_byte(pTHX_ SV* sv, int c)
                        __attribute__nonnull__(pTHX_1);
 
 #  endif
-STATIC void    S_scan_commit(pTHX_ struct RExC_state_t*, struct scan_data_t *data);
+STATIC void    S_scan_commit(pTHX_ struct RExC_state_t*, struct scan_data_t *data)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2);
+
 STATIC void    S_cl_anything(pTHX_ struct RExC_state_t*, struct regnode_charclass_class *cl)
                        __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_2);
@@ -2678,17 +3008,36 @@ STATIC void     S_cl_or(pTHX_ struct RExC_state_t*, struct regnode_charclass_class *
                        __attribute__nonnull__(pTHX_2)
                        __attribute__nonnull__(pTHX_3);
 
-STATIC I32     S_study_chunk(pTHX_ struct RExC_state_t*, regnode **scanp, I32 *deltap, regnode *last, struct scan_data_t *data, U32 flags, U32 depth);
-STATIC I32     S_add_data(pTHX_ struct RExC_state_t*, I32 n, const char *s);
+STATIC I32     S_study_chunk(pTHX_ struct RExC_state_t* pRExC_state, regnode **scanp, I32 *deltap, regnode *last, struct scan_data_t *data, U32 flags, U32 depth)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3)
+                       __attribute__nonnull__(pTHX_4)
+                       __attribute__nonnull__(pTHX_5);
+
+STATIC I32     S_add_data(pTHX_ struct RExC_state_t*, I32 n, const char *s)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_3);
+
 STATIC void    S_re_croak2(pTHX_ const char* pat1, const char* pat2, ...)
                        __attribute__noreturn__
                        __attribute__nonnull__(pTHX_1)
                        __attribute__nonnull__(pTHX_2);
 
-STATIC I32     S_regpposixcc(pTHX_ struct RExC_state_t*, I32 value);
-STATIC void    S_checkposixcc(pTHX_ struct RExC_state_t*);
+STATIC I32     S_regpposixcc(pTHX_ struct RExC_state_t*, I32 value)
+                       __attribute__nonnull__(pTHX_1);
+
+STATIC void    S_checkposixcc(pTHX_ struct RExC_state_t*)
+                       __attribute__nonnull__(pTHX_1);
+
+
+STATIC I32     S_make_trie(pTHX_ struct RExC_state_t*, regnode *startbranch, regnode *first, regnode *last, regnode *tail, U32 flags)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_3)
+                       __attribute__nonnull__(pTHX_4)
+                       __attribute__nonnull__(pTHX_5);
 
-STATIC I32     S_make_trie(pTHX_ struct RExC_state_t*, regnode *startbranch, regnode *first, regnode *last, regnode *tail, U32 flags);
 #endif
 
 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
@@ -2722,13 +3071,17 @@ STATIC void     S_cache_re(pTHX_ regexp *prog)
                        __attribute__nonnull__(pTHX_1);
 
 STATIC U8*     S_reghop(pTHX_ U8 *pos, I32 off)
-                       __attribute__warn_unused_result__;
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
 
 STATIC U8*     S_reghop3(pTHX_ U8 *pos, I32 off, U8 *lim)
-                       __attribute__warn_unused_result__;
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_3);
 
 STATIC U8*     S_reghopmaybe(pTHX_ U8 *pos, I32 off)
-                       __attribute__warn_unused_result__;
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(pTHX_1);
 
 STATIC U8*     S_reghopmaybe3(pTHX_ U8 *pos, I32 off, U8 *lim)
                        __attribute__warn_unused_result__
@@ -2771,6 +3124,11 @@ PERL_CALLCONV void       Perl_sv_add_backref(pTHX_ SV *tsv, SV *sv)
 #endif
 
 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
+STATIC char *  S_uiv_2buf(char *buf, IV iv, UV uv, int is_uv, char **peob)
+                       __attribute__warn_unused_result__
+                       __attribute__nonnull__(1)
+                       __attribute__nonnull__(5);
+
 STATIC IV      S_asIV(pTHX_ SV* sv)
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
@@ -2827,7 +3185,11 @@ STATIC bool      S_utf8_mg_pos_init(pTHX_ SV *sv, MAGIC **mgp, STRLEN **cachep, I32 i
                        __attribute__nonnull__(pTHX_7);
 
 #if defined(PERL_OLD_COPY_ON_WRITE)
-STATIC void    S_sv_release_COW(pTHX_ SV *sv, const char *pvx, STRLEN len, SV *after);
+STATIC void    S_sv_release_COW(pTHX_ SV *sv, const char *pvx, STRLEN len, SV *after)
+                       __attribute__nonnull__(pTHX_1)
+                       __attribute__nonnull__(pTHX_2)
+                       __attribute__nonnull__(pTHX_4);
+
 #endif
 #endif
 
@@ -2940,7 +3302,10 @@ STATIC HV *      S_find_in_my_stash(pTHX_ const char *pkgname, I32 len)
                        __attribute__warn_unused_result__
                        __attribute__nonnull__(pTHX_1);
 
-STATIC SV*     S_new_constant(pTHX_ const char *s, STRLEN len, const char *key, SV *sv, SV *pv, const char *type);
+STATIC SV*     S_new_constant(pTHX_ const char *s, STRLEN len, const char *key, SV *sv, SV *pv, const char *type)
+                       __attribute__nonnull__(pTHX_3)
+                       __attribute__nonnull__(pTHX_4);
+
 #  if defined(DEBUGGING)
 STATIC int     S_tokereport(pTHX_ const char *s, I32 rv)
                        __attribute__nonnull__(pTHX_1);
index e38a572..bb63661 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -1888,8 +1888,8 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp, I32 *deltap, reg
 
                         /* dont use tail as the end marker for this traverse */
                         for ( cur = startbranch ; cur != scan ; cur = regnext( cur ) ) {
-                            regnode *noper = NEXTOPER( cur );
-                            regnode *noper_next = regnext( noper );
+                            regnode * const noper = NEXTOPER( cur );
+                            regnode * const noper_next = regnext( noper );
 
                             DEBUG_OPTIMISE_r({
                                 regprop( mysv, cur);
diff --git a/sv.c b/sv.c
index 04c6845..d041b7b 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -2956,7 +2956,7 @@ Perl_sv_2pv_nolen(pTHX_ register SV *sv)
  */
 
 static char *
-uiv_2buf(char *buf, IV iv, UV uv, int is_uv, char **peob)
+S_uiv_2buf(char *buf, IV iv, UV uv, int is_uv, char **peob)
 {
     char *ptr = buf + TYPE_CHARS(UV);
     char *ebuf = ptr;
@@ -4505,7 +4505,7 @@ S_sv_release_COW(pTHX_ register SV *sv, const char *pvx, STRLEN len, SV *after)
 {
     if (len) { /* this SV was SvIsCOW_normal(sv) */
          /* we need to find the SV pointing to us.  */
-        SV *current = SV_COW_NEXT_SV(after);
+        SV * const current = SV_COW_NEXT_SV(after);
 
         if (current == sv) {
             /* The SV we point to points back to us (there were only two of us
@@ -4994,7 +4994,7 @@ to add more than one instance of the same 'how'.
 void
 Perl_sv_magic(pTHX_ register SV *sv, SV *obj, int how, const char *name, I32 namlen)
 {
-    const MGVTBL *vtable = 0;
+    const MGVTBL *vtable;
     MAGIC* mg;
 
 #ifdef PERL_OLD_COPY_ON_WRITE
@@ -5073,7 +5073,7 @@ Perl_sv_magic(pTHX_ register SV *sv, SV *obj, int how, const char *name, I32 nam
        vtable = &PL_vtbl_nkeys;
        break;
     case PERL_MAGIC_dbfile:
-       vtable = 0;
+       vtable = NULL;
        break;
     case PERL_MAGIC_dbline:
        vtable = &PL_vtbl_dbline;
@@ -5112,7 +5112,7 @@ Perl_sv_magic(pTHX_ register SV *sv, SV *obj, int how, const char *name, I32 nam
     case PERL_MAGIC_rhash:
     case PERL_MAGIC_symtab:
     case PERL_MAGIC_vstring:
-       vtable = 0;
+       vtable = NULL;
        break;
     case PERL_MAGIC_utf8:
        vtable = &PL_vtbl_utf8;
@@ -5140,13 +5140,14 @@ Perl_sv_magic(pTHX_ register SV *sv, SV *obj, int how, const char *name, I32 nam
        /* Useful for attaching extension internal data to perl vars.   */
        /* Note that multiple extensions may clash if magical scalars   */
        /* etc holding private data from one are passed to another.     */
+       vtable = NULL;
        break;
     default:
        Perl_croak(aTHX_ "Don't know how to handle magic of type \\%o", how);
     }
 
     /* Rest of work is done else where */
-    mg = sv_magicext(sv,obj,how,(MGVTBL*)vtable,name,namlen);
+    mg = sv_magicext(sv,obj,how,vtable,name,namlen);
 
     switch (how) {
     case PERL_MAGIC_taint:
@@ -7530,7 +7531,7 @@ Perl_sv_reset(pTHX_ register const char *s, HV *stash)
        return;
 
     if (!*s) {         /* reset ?? searches */
-       MAGIC *mg = mg_find((SV *)stash, PERL_MAGIC_symtab);
+       MAGIC * const mg = mg_find((SV *)stash, PERL_MAGIC_symtab);
        if (mg) {
            PMOP *pm = (PMOP *) mg->mg_obj;
            while (pm) {
diff --git a/utf8.c b/utf8.c
index 599edf1..be32870 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -1456,7 +1456,7 @@ Perl_to_utf8_case(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, const
     U8 tmpbuf[UTF8_MAXBYTES_CASE+1];
     STRLEN len = 0;
 
-    const UV uv0 = utf8_to_uvchr(p, 0);
+    const UV uv0 = utf8_to_uvchr(p, NULL);
     /* The NATIVE_TO_UNI() and UNI_TO_NATIVE() mappings
      * are necessary in EBCDIC, they are redundant no-ops
      * in ASCII-ish platforms, and hopefully optimized away. */
@@ -1629,7 +1629,7 @@ Perl_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 minbits
     dSP;
     const size_t pkg_len = strlen(pkg);
     const size_t name_len = strlen(name);
-    HV *stash = gv_stashpvn(pkg, pkg_len, FALSE);
+    HV * const stash = gv_stashpvn(pkg, pkg_len, FALSE);
     SV* errsv_save;
 
     PUSHSTACKi(PERLSI_MAGIC);
@@ -1674,7 +1674,7 @@ Perl_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 minbits
     POPSTACK;
     if (IN_PERL_COMPILETIME) {
        STRLEN len;
-        const char* pv = SvPV_const(tokenbufsv, len);
+       const char* const pv = SvPV_const(tokenbufsv, len);
 
        Copy(pv, PL_tokenbuf, len+1, char);
        PL_curcop->op_private = (U8)(PL_hints & HINT_PRIVATE_MASK);
@@ -1698,7 +1698,7 @@ UV
 Perl_swash_fetch(pTHX_ SV *sv, const U8 *ptr, bool do_utf8)
 {
     dVAR;
-    HV* hv = (HV*)SvRV(sv);
+    HV* const hv = (HV*)SvRV(sv);
     U32 klen;
     U32 off;
     STRLEN slen;
@@ -1763,7 +1763,7 @@ Perl_swash_fetch(pTHX_ SV *sv, const U8 *ptr, bool do_utf8)
            /* We use utf8n_to_uvuni() as we want an index into
               Unicode tables, not a native character number.
             */
-           UV code_point = utf8n_to_uvuni(ptr, UTF8_MAXBYTES, 0,
+           const UV code_point = utf8n_to_uvuni(ptr, UTF8_MAXBYTES, 0,
                                           ckWARN(WARN_UTF8) ?
                                           0 : UTF8_ALLOW_ANY);
            SV *errsv_save;
@@ -1878,7 +1878,7 @@ Allows length and flags to be passed to low level routine.
 UV
 Perl_utf8n_to_uvchr(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags)
 {
-    UV uv = Perl_utf8n_to_uvuni(aTHX_ s, curlen, retlen, flags);
+    const UV uv = Perl_utf8n_to_uvuni(aTHX_ s, curlen, retlen, flags);
     return UNI_TO_NATIVE(uv);
 }