From: Andy Lester Date: Fri, 15 Jul 2005 10:51:15 +0000 (-0500) Subject: more embed cleanup X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=aec46f14fac1bc74bf8ad4054a6f9674b324f8d2;p=p5sagit%2Fp5-mst-13.2.git more embed cleanup Message-ID: <20050715155115.GC29983@petdance.com> (and run regen.pl) p4raw-id: //depot/perl@25156 --- diff --git a/dump.c b/dump.c index ee65a62..8205132 100644 --- 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); diff --git a/embed.fnc b/embed.fnc index 4669f7d..a3d0357 100644 --- 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 --- a/embed.h +++ b/embed.h @@ -1172,6 +1172,8 @@ #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) @@ -1290,6 +1292,7 @@ #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 @@ -3152,6 +3155,8 @@ #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) @@ -3271,6 +3276,7 @@ #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 --- 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 --- 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 --- 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 --- 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) diff --git a/pp_ctl.c b/pp_ctl.c index 7adfd69..2a10ab0 100644 --- 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) && diff --git a/pp_hot.c b/pp_hot.c index b150ac9..35558f1 100644 --- 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); diff --git a/pp_pack.c b/pp_pack.c index 63a60f1..b9e7479 100644 --- 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 --- 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); diff --git a/regcomp.c b/regcomp.c index e38a572..bb63661 100644 --- 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 --- 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 --- 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); }