I'm down to about 380 function parms to verify.
dump.c: Consting.
embed.fnc: Many more NN and NULLOKs added. Added uiv_2buf, need_utf8
and first_symbol.
hv.c: Consting. Removed a redundant statement that set a loop variable
to the value it was already set to.
op.c: Consting.
perl.c: Consting & localizing.
pp_ctl.c: Localization.
pp_hot.c: Consting.
pp_pack.c: Removed outdated comment.
regcomp.c: Consting.
sv.c: Made uiv_2buf into S_uiv_2buf so it's in embed.fnc and we get the
pointer checking. Removed unnecessary pointer setting and casting in
Perl_sv_magic.
utf8.c: consting.
--
Andy Lester => [EMAIL PROTECTED] => www.petdance.com => AIM:petdance
diff -pur bleadperl/dump.c bw/trunk/dump.c
--- bleadperl/dump.c 2005-07-08 12:03:01.000000000 -0500
+++ bw/trunk/dump.c 2005-07-14 15:11:45.000000000 -0500
@@ -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);
diff -pur bleadperl/embed.fnc bw/trunk/embed.fnc
--- bleadperl/embed.fnc 2005-07-13 12:05:56.000000000 -0500
+++ bw/trunk/embed.fnc 2005-07-14 23:37:49.000000000 -0500
@@ -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 *scrip
|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
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 l
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
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
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 ne
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|N
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
+Ap |I32 |unlnk |NN 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
+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|
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
#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
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
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 c
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|STR
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_
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_cha
|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
#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
|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 -pur bleadperl/hv.c bw/trunk/hv.c
--- bleadperl/hv.c 2005-07-13 12:05:56.000000000 -0500
+++ bw/trunk/hv.c 2005-07-14 17:01:38.000000000 -0500
@@ -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 *he
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, I3
{
bool is_utf8 = FALSE;
int flags = 0;
- const char *save = str;
+ const char * const save = str;
if (len < 0) {
STRLEN tmplen = -len;
diff -pur bleadperl/mg.c bw/trunk/mg.c
--- bleadperl/mg.c 2005-07-07 10:16:35.000000000 -0500
+++ bw/trunk/mg.c 2005-07-14 00:32:00.000000000 -0500
@@ -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 -pur bleadperl/op.c bw/trunk/op.c
--- bleadperl/op.c 2005-07-13 12:05:56.000000000 -0500
+++ bw/trunk/op.c 2005-07-14 15:07:42.000000000 -0500
@@ -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,
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,
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 -pur bleadperl/perl.c bw/trunk/perl.c
--- bleadperl/perl.c 2005-07-13 09:10:36.000000000 -0500
+++ bw/trunk/perl.c 2005-07-13 16:23:21.000000000 -0500
@@ -1685,9 +1685,8 @@ S_parse_body(pTHX_ char **env, XSINIT_t
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 in
(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)
diff -pur bleadperl/pp_ctl.c bw/trunk/pp_ctl.c
--- bleadperl/pp_ctl.c 2005-07-13 12:05:56.000000000 -0500
+++ bw/trunk/pp_ctl.c 2005-07-14 16:24:20.000000000 -0500
@@ -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 *l
}
*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) &&
diff -pur bleadperl/pp_hot.c bw/trunk/pp_hot.c
--- bleadperl/pp_hot.c 2005-07-13 12:05:56.000000000 -0500
+++ bw/trunk/pp_hot.c 2005-07-14 17:00:39.000000000 -0500
@@ -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);
diff -pur bleadperl/pp_pack.c bw/trunk/pp_pack.c
--- bleadperl/pp_pack.c 2005-07-12 19:49:00.000000000 -0500
+++ bw/trunk/pp_pack.c 2005-07-14 09:59:47.000000000 -0500
@@ -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 -pur bleadperl/regcomp.c bw/trunk/regcomp.c
--- bleadperl/regcomp.c 2005-07-12 19:49:00.000000000 -0500
+++ bw/trunk/regcomp.c 2005-07-13 12:10:38.000000000 -0500
@@ -1888,8 +1888,8 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_
/* 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 -pur bleadperl/sv.c bw/trunk/sv.c
--- bleadperl/sv.c 2005-07-13 11:55:47.000000000 -0500
+++ bw/trunk/sv.c 2005-07-14 23:26:14.000000000 -0500
@@ -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,
{
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 sam
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
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
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
/* 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
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 -pur bleadperl/utf8.c bw/trunk/utf8.c
--- bleadperl/utf8.c 2005-07-08 12:03:02.000000000 -0500
+++ bw/trunk/utf8.c 2005-07-14 10:08:27.000000000 -0500
@@ -1456,7 +1456,7 @@ Perl_to_utf8_case(pTHX_ const U8 *p, U8*
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, c
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, c
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
/* 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
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);
}
