From: Andy Lester Date: Wed, 4 May 2005 23:55:00 +0000 (+0000) Subject: GCC attributes! X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4373e329bbd25cac77cfe128757db8cbb63c47bb;p=p5sagit%2Fp5-mst-13.2.git GCC attributes! Message-ID: <20050504215540.GA20413@petdance.com> p4raw-id: //depot/perl@24414 --- diff --git a/autodoc.pl b/autodoc.pl index 6126f9f..4c5c60f 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -53,6 +53,7 @@ sub walk_table (&@) { else { @args = split /\s*\|\s*/, $_; } + s/\bNN\b\s+// for @args; print $F $function->(@args); } print $F $trailer if $trailer; diff --git a/av.c b/av.c index bc35333..7f84291 100644 --- a/av.c +++ b/av.c @@ -25,7 +25,6 @@ void Perl_av_reify(pTHX_ AV *av) { I32 key; - SV* sv; if (AvREAL(av)) return; @@ -37,7 +36,7 @@ Perl_av_reify(pTHX_ AV *av) while (key > AvFILLp(av) + 1) AvARRAY(av)[--key] = &PL_sv_undef; while (key) { - sv = AvARRAY(av)[--key]; + SV * const sv = AvARRAY(av)[--key]; assert(sv); if (sv != &PL_sv_undef) (void)SvREFCNT_inc(sv); diff --git a/doio.c b/doio.c index 1d7e56f..8de13f1 100644 --- a/doio.c +++ b/doio.c @@ -926,7 +926,7 @@ Perl_nextargv(pTHX_ register GV *gv) } else { if (ckWARN_d(WARN_INPLACE)) { - int eno = errno; + const int eno = errno; if (PerlLIO_stat(PL_oldname, &PL_statbuf) >= 0 && !S_ISREG(PL_statbuf.st_mode)) { @@ -1040,11 +1040,10 @@ bool Perl_io_close(pTHX_ IO *io, bool not_implicit) { bool retval = FALSE; - int status; if (IoIFP(io)) { if (IoTYPE(io) == IoTYPE_PIPE) { - status = PerlProc_pclose(IoIFP(io)); + const int status = PerlProc_pclose(IoIFP(io)); if (not_implicit) { STATUS_NATIVE_SET(status); retval = (STATUS_POSIX == 0); @@ -1177,7 +1176,7 @@ Perl_mode_from_discipline(pTHX_ SV *discp) int mode = O_BINARY; if (discp) { STRLEN len; - char *s = SvPV(discp,len); + const char *s = SvPV(discp,len); while (*s) { if (*s == ':') { switch (s[1]) { @@ -1210,7 +1209,7 @@ Perl_mode_from_discipline(pTHX_ SV *discp) --len; } else { - char *end; + const char *end; fail_discipline: end = strchr(s+1, ':'); if (!end) @@ -1393,7 +1392,7 @@ Perl_my_stat(pTHX) } else { SV* sv = POPs; - char *s; + const char *s; STRLEN len; PUTBACK; if (SvTYPE(sv) == SVt_PVGV) { @@ -1451,6 +1450,7 @@ Perl_my_lstat(pTHX) GvENAME((GV*) SvRV(sv))); return (PL_laststatval = -1); } + /* XXX Do really need to be calling SvPV() all these times? */ sv_setpv(PL_statname,SvPV(sv, n_a)); PL_laststatval = PerlLIO_lstat(SvPV(sv, n_a),&PL_statcache); if (PL_laststatval < 0 && ckWARN(WARN_NEWLINE) && strchr(SvPV(sv, n_a), '\n')) @@ -1700,7 +1700,7 @@ Perl_apply(pTHX_ I32 type, register SV **mark, register SV **sp) APPLY_TAINT_PROPER(); tot = sp - mark; while (++mark <= sp) { - char *name = SvPVx(*mark, n_a); + const char *name = SvPVx(*mark, n_a); APPLY_TAINT_PROPER(); if (PerlLIO_chmod(name, val)) tot--; @@ -1718,7 +1718,7 @@ Perl_apply(pTHX_ I32 type, register SV **mark, register SV **sp) APPLY_TAINT_PROPER(); tot = sp - mark; while (++mark <= sp) { - char *name = SvPVx(*mark, n_a); + const char *name = SvPVx(*mark, n_a); APPLY_TAINT_PROPER(); if (PerlLIO_chown(name, val, val2)) tot--; @@ -1859,12 +1859,13 @@ nothing in the core. utbuf.modtime = (Time_t)SvIVx(modified); /* time modified */ #endif } - APPLY_TAINT_PROPER(); + APPLY_TAINT_PROPER(); tot = sp - mark; while (++mark <= sp) { - char *name = SvPVx(*mark, n_a); + STRLEN n_a; + const char *name = SvPVx(*mark, n_a); APPLY_TAINT_PROPER(); - if (PerlLIO_utime(name, utbufp)) + if (PerlLIO_utime(name, utbufp)) tot--; } } @@ -1881,7 +1882,7 @@ nothing in the core. /* Do the permissions allow some operation? Assumes statcache already set. */ #ifndef VMS /* VMS' cando is in vms.c */ bool -Perl_cando(pTHX_ Mode_t mode, Uid_t effective, register Stat_t *statbufp) +Perl_cando(pTHX_ Mode_t mode, Uid_t effective, register const Stat_t *statbufp) /* Note: we use `effective' both for uids and gids. * Here we are betting on Uid_t being equal or wider than Gid_t. */ { @@ -2237,7 +2238,7 @@ Perl_do_shmio(pTHX_ I32 optype, SV **mark, SV **sp) { #ifdef HAS_SHM SV *mstr; - char *mbuf, *shm; + char *shm; I32 mpos, msize; STRLEN len; struct shmid_ds shmds; @@ -2258,6 +2259,7 @@ Perl_do_shmio(pTHX_ I32 optype, SV **mark, SV **sp) if (shm == (char *)-1) /* I hate System V IPC, I really do */ return -1; if (optype == OP_SHMREAD) { + const char *mbuf; /* suppress warning when reading into undef var (tchrist 3/Mar/00) */ if (! SvOK(mstr)) sv_setpvn(mstr, "", 0); @@ -2276,7 +2278,7 @@ Perl_do_shmio(pTHX_ I32 optype, SV **mark, SV **sp) else { I32 n; - mbuf = SvPV(mstr, len); + const char *mbuf = SvPV(mstr, len); if ((n = len) > msize) n = msize; Copy(mbuf, shm + mpos, n, char); diff --git a/doop.c b/doop.c index a8691d9..34bf782 100644 --- a/doop.c +++ b/doop.c @@ -252,7 +252,7 @@ S_do_trans_complex(pTHX_ SV *sv) else { while (s < send) { STRLEN len; - UV comp = utf8_to_uvchr(s, &len); + const UV comp = utf8_to_uvchr(s, &len); if (comp > 0xff) { if (!complement) { Move(s, d, len, U8); @@ -354,14 +354,13 @@ S_do_trans_simple_utf8(pTHX_ SV *sv) d = uvuni_to_utf8(d, uv); } else if (uv == none) { - int i = UTF8SKIP(s); + const int i = UTF8SKIP(s); Move(s, d, i, U8); d += i; s += i; } else if (uv == extra) { - int i = UTF8SKIP(s); - s += i; + s += UTF8SKIP(s); matches++; d = uvuni_to_utf8(d, final); } @@ -369,8 +368,8 @@ S_do_trans_simple_utf8(pTHX_ SV *sv) s += UTF8SKIP(s); if (d > dend) { - STRLEN clen = d - dstart; - STRLEN nlen = dend - dstart + len + UTF8_MAXBYTES; + const STRLEN clen = d - dstart; + const STRLEN nlen = dend - dstart + len + UTF8_MAXBYTES; if (!grows) Perl_croak(aTHX_ "panic: do_trans_simple_utf8 line %d",__LINE__); Renew(dstart, nlen + UTF8_MAXBYTES, U8); @@ -412,9 +411,10 @@ S_do_trans_count_utf8(pTHX_ SV *sv) s = (U8*)SvPV(sv, len); if (!SvUTF8(sv)) { - U8 *t = s, *e = s + len; + const U8 *t = s; + const U8 *e = s + len; while (t < e) { - U8 ch = *t++; + const U8 ch = *t++; if ((hibit = !NATIVE_IS_INVARIANT(ch))) break; } @@ -441,9 +441,9 @@ S_do_trans_complex_utf8(pTHX_ SV *sv) U8 *start, *send; U8 *d; I32 matches = 0; - I32 squash = PL_op->op_private & OPpTRANS_SQUASH; - I32 del = PL_op->op_private & OPpTRANS_DELETE; - I32 grows = PL_op->op_private & OPpTRANS_GROWS; + const I32 squash = PL_op->op_private & OPpTRANS_SQUASH; + const I32 del = PL_op->op_private & OPpTRANS_DELETE; + const I32 grows = PL_op->op_private & OPpTRANS_GROWS; SV* rv = (SV*)cSVOP->op_sv; HV* hv = (HV*)SvRV(rv); SV** svp = hv_fetch(hv, "NONE", 4, FALSE); @@ -495,8 +495,8 @@ S_do_trans_complex_utf8(pTHX_ SV *sv) uv = swash_fetch(rv, s, TRUE); if (d > dend) { - STRLEN clen = d - dstart; - STRLEN nlen = dend - dstart + len + UTF8_MAXBYTES; + const STRLEN clen = d - dstart; + const STRLEN nlen = dend - dstart + len + UTF8_MAXBYTES; if (!grows) Perl_croak(aTHX_ "panic: do_trans_complex_utf8 line %d",__LINE__); Renew(dstart, nlen + UTF8_MAXBYTES, U8); @@ -513,7 +513,7 @@ S_do_trans_complex_utf8(pTHX_ SV *sv) continue; } else if (uv == none) { /* "none" is unmapped character */ - int i = UTF8SKIP(s); + const int i = UTF8SKIP(s); Move(s, d, i, U8); d += i; s += i; @@ -600,7 +600,7 @@ I32 Perl_do_trans(pTHX_ SV *sv) { STRLEN len; - I32 hasutf = (PL_op->op_private & + const I32 hasutf = (PL_op->op_private & (OPpTRANS_FROM_UTF|OPpTRANS_TO_UTF)); if (SvREADONLY(sv)) { @@ -704,7 +704,7 @@ void Perl_do_sprintf(pTHX_ SV *sv, I32 len, SV **sarg) { STRLEN patlen; - char *pat = SvPV(*sarg, patlen); + const char *pat = SvPV(*sarg, patlen); bool do_taint = FALSE; SvUTF8_off(sv); diff --git a/embed.fnc b/embed.fnc index a410b1a..4d99050 100644 --- a/embed.fnc +++ b/embed.fnc @@ -24,6 +24,11 @@ : b binary backward compatibility; function is a macro : but has also Perl_ implementation (which is exported) : U suppress usage example in autogenerated documentation +: a allocates memory a la malloc/calloc +: P pure function: no effects except the return value; +: return value depends only on parms and/or globals +: +: Pointer parameters that must not be passed NULLs should be preceded by NN. : : Individual flags may be separated by whitespace. : @@ -41,10 +46,10 @@ Ano |PerlInterpreter* |perl_alloc_using \ |struct IPerlProc* p #endif Anod |PerlInterpreter* |perl_alloc -Anod |void |perl_construct |PerlInterpreter* interp -Anod |int |perl_destruct |PerlInterpreter* interp -Anod |void |perl_free |PerlInterpreter* interp -Anod |int |perl_run |PerlInterpreter* interp +Anod |void |perl_construct |NN PerlInterpreter* interp +Anod |int |perl_destruct |NN PerlInterpreter* interp +Anod |void |perl_free |NN PerlInterpreter* interp +Anod |int |perl_run |NN PerlInterpreter* interp Anod |int |perl_parse |PerlInterpreter* interp|XSINIT_t xsinit \ |int argc|char** argv|char** env Anp |bool |doing_taint |int argc|char** argv|char** env @@ -60,9 +65,9 @@ Ano |PerlInterpreter*|perl_clone_using|PerlInterpreter *interp|UV flags \ # endif #endif -Anop |Malloc_t|malloc |MEM_SIZE nbytes -Anop |Malloc_t|calloc |MEM_SIZE elements|MEM_SIZE size -Anop |Malloc_t|realloc |Malloc_t where|MEM_SIZE nbytes +Aanop |Malloc_t|malloc |MEM_SIZE nbytes +Aanop |Malloc_t|calloc |MEM_SIZE elements|MEM_SIZE size +Aanop |Malloc_t|realloc |Malloc_t where|MEM_SIZE nbytes Anop |Free_t |mfree |Malloc_t where #if defined(MYMALLOC) np |MEM_SIZE|malloced_size |void *p @@ -106,7 +111,7 @@ p |int |block_start |int full p |void |boot_core_UNIVERSAL p |void |boot_core_PerlIO Ap |void |call_list |I32 oldscope|AV* av_list -p |bool |cando |Mode_t mode|Uid_t effective|Stat_t* statbufp +p |bool |cando |Mode_t mode|Uid_t effective|NN const Stat_t* statbufp Ap |U32 |cast_ulong |NV f Ap |I32 |cast_i32 |NV f Ap |IV |cast_iv |NV f @@ -135,7 +140,7 @@ Afnp |int |fprintf_nocontext|PerlIO* stream|const char* fmt|... Afnp |int |printf_nocontext|const char* fmt|... #endif p |void |cv_ckproto |const CV* cv|const GV* gv|const char* p -pd |CV* |cv_clone |CV* proto +pd |CV* |cv_clone |NN CV* proto Apd |SV* |cv_const_sv |CV* cv p |SV* |op_const_sv |const OP* o|CV* cv Apd |void |cv_undef |CV* cv @@ -143,33 +148,33 @@ Ap |void |cx_dump |PERL_CONTEXT* cs Ap |SV* |filter_add |filter_t funcp|SV* datasv Ap |void |filter_del |filter_t funcp Ap |I32 |filter_read |int idx|SV* buffer|int maxlen -Ap |char** |get_op_descs -Ap |char** |get_op_names -p |const char* |get_no_modify -p |U32* |get_opargs -Ap |PPADDR_t*|get_ppaddr +ApP |char** |get_op_descs +ApP |char** |get_op_names +pP |const char* |get_no_modify +pP |U32* |get_opargs +ApP |PPADDR_t*|get_ppaddr Ep |I32 |cxinc Afp |void |deb |const char* pat|... Ap |void |vdeb |const char* pat|va_list* args Ap |void |debprofdump -Ap |I32 |debop |const OP* o +Ap |I32 |debop |NN const OP* o Ap |I32 |debstack Ap |I32 |debstackptrs -Ap |char* |delimcpy |char* to|const char* toend|const char* from \ - |const char* fromend|int delim|I32* retlen -p |void |deprecate |const char* s -p |void |deprecate_old |const char* s +Ap |char* |delimcpy |NN char* to|NN const char* toend|NN const char* from \ + |NN const char* fromend|int delim|NN I32* retlen +p |void |deprecate |NN const char* s +p |void |deprecate_old |NN const char* s Afp |OP* |die |const char* pat|... p |OP* |vdie |const char* pat|va_list* args p |OP* |die_where |const char* message|STRLEN msglen Ap |void |dounwind |I32 cxix p |bool |do_aexec |SV* really|SV** mark|SV** sp p |bool |do_aexec5 |SV* really|SV** mark|SV** sp|int fd|int flag -Ap |int |do_binmode |PerlIO *fp|int iotype|int mode -p |void |do_chop |SV* asv|SV* sv -Ap |bool |do_close |GV* gv|bool not_implicit -p |bool |do_eof |GV* gv -p |bool |do_exec |char* cmd +Ap |int |do_binmode |NN PerlIO *fp|int iotype|int mode +p |void |do_chop |NN SV* asv|NN SV* sv +Ap |bool |do_close |NN GV* gv|bool not_implicit +p |bool |do_eof |NN GV* gv +p |bool |do_exec |NN char* cmd #if defined(WIN32) || defined(SYMBIAN) Ap |int |do_aspawn |SV* really|SV** mark|SV** sp Ap |int |do_spawn |char* cmd @@ -206,8 +211,8 @@ Ap |void |do_sprintf |SV* sv|I32 len|SV** sarg p |Off_t |do_sysseek |GV* gv|Off_t pos|int whence p |Off_t |do_tell |GV* gv p |I32 |do_trans |SV* sv -p |UV |do_vecget |SV* sv|I32 offset|I32 size -p |void |do_vecset |SV* sv +p |UV |do_vecget |NN SV* sv|I32 offset|I32 size +p |void |do_vecset |NN SV* sv p |void |do_vop |I32 optype|SV* sv|SV* left|SV* right p |OP* |dofile |OP* term Ap |I32 |dowantarray @@ -227,8 +232,8 @@ Apd |char* |fbm_instr |unsigned char* big|unsigned char* bigend \ |SV* littlesv|U32 flags p |char* |find_script |const char *scriptname|bool dosearch \ |const char **search_ext|I32 flags -p |OP* |force_list |OP* arg -p |OP* |fold_constants |OP* arg +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 Ap |void |free_tmps @@ -288,16 +293,16 @@ Apd |HE* |hv_store_ent |HV* tb|SV* key|SV* val|U32 hash ApM |SV** |hv_store_flags |HV* tb|const char* key|I32 klen|SV* val \ |U32 hash|int flags Apd |void |hv_undef |HV* tb -Ap |I32 |ibcmp |const char* a|const char* b|I32 len -Ap |I32 |ibcmp_locale |const char* a|const char* b|I32 len -Apd |I32 |ibcmp_utf8 |const char* a|char **pe1|UV l1|bool u1|const char* b|char **pe2|UV l2|bool u2 +ApP |I32 |ibcmp |NN const char* a|NN const char* b|I32 len +ApP |I32 |ibcmp_locale |NN const char* a|NN const char* b|I32 len +Apd |I32 |ibcmp_utf8 |NN const char* a|char **pe1|UV l1|bool u1|NN const char* b|char **pe2|UV l2|bool u2 p |bool |ingroup |Gid_t testgid|Uid_t effective -p |void |init_argv_symbols|int argc|char **argv +p |void |init_argv_symbols|int argc|NN char **argv p |void |init_debugger Ap |void |init_stacks Ap |void |init_tm |struct tm *ptm pd |U32 |intro_my -Ap |char* |instr |const char* big|const char* little +ApP |char* |instr |NN const char* big|NN const char* little p |bool |io_close |IO* io|bool not_implicit p |OP* |invert |OP* cmd dp |bool |is_gv_magical |const char *name|STRLEN len|U32 flags @@ -319,10 +324,10 @@ Ap |bool |is_uni_lower |UV c Ap |bool |is_uni_print |UV c Ap |bool |is_uni_punct |UV c Ap |bool |is_uni_xdigit |UV c -Ap |UV |to_uni_upper |UV c|U8 *p|STRLEN *lenp -Ap |UV |to_uni_title |UV c|U8 *p|STRLEN *lenp -Ap |UV |to_uni_lower |UV c|U8 *p|STRLEN *lenp -Ap |UV |to_uni_fold |UV c|U8 *p|STRLEN *lenp +Ap |UV |to_uni_upper |UV c|NN U8 *p|NN STRLEN *lenp +Ap |UV |to_uni_title |UV c|NN U8 *p|NN STRLEN *lenp +Ap |UV |to_uni_lower |UV c|NN U8 *p|NN STRLEN *lenp +Ap |UV |to_uni_fold |UV c|NN U8 *p|NN STRLEN *lenp Ap |bool |is_uni_alnum_lc|UV c Ap |bool |is_uni_alnumc_lc|UV c Ap |bool |is_uni_idfirst_lc|UV c @@ -337,27 +342,27 @@ Ap |bool |is_uni_lower_lc|UV c Ap |bool |is_uni_print_lc|UV c Ap |bool |is_uni_punct_lc|UV c Ap |bool |is_uni_xdigit_lc|UV c -Apd |STRLEN |is_utf8_char |const U8 *p -Apd |bool |is_utf8_string |const U8 *s|STRLEN len -Apd |bool |is_utf8_string_loc|const U8 *s|STRLEN len|const U8 **p -Ap |bool |is_utf8_alnum |const U8 *p -Ap |bool |is_utf8_alnumc |const U8 *p -Ap |bool |is_utf8_idfirst|const U8 *p -Ap |bool |is_utf8_idcont |const U8 *p -Ap |bool |is_utf8_alpha |const U8 *p -Ap |bool |is_utf8_ascii |const U8 *p -Ap |bool |is_utf8_space |const U8 *p -Ap |bool |is_utf8_cntrl |const U8 *p -Ap |bool |is_utf8_digit |const U8 *p -Ap |bool |is_utf8_graph |const U8 *p -Ap |bool |is_utf8_upper |const U8 *p -Ap |bool |is_utf8_lower |const U8 *p -Ap |bool |is_utf8_print |const U8 *p -Ap |bool |is_utf8_punct |const U8 *p -Ap |bool |is_utf8_xdigit |const U8 *p -Ap |bool |is_utf8_mark |const U8 *p -p |OP* |jmaybe |OP* arg -p |I32 |keyword |char* d|I32 len +Apd |STRLEN |is_utf8_char |NN const U8 *p +Apd |bool |is_utf8_string |NN const U8 *s|STRLEN len +Apd |bool |is_utf8_string_loc|NN const U8 *s|STRLEN len|NN const U8 **p +Ap |bool |is_utf8_alnum |NN const U8 *p +Ap |bool |is_utf8_alnumc |NN const U8 *p +Ap |bool |is_utf8_idfirst|NN const U8 *p +Ap |bool |is_utf8_idcont |NN const U8 *p +Ap |bool |is_utf8_alpha |NN const U8 *p +Ap |bool |is_utf8_ascii |NN const U8 *p +Ap |bool |is_utf8_space |NN const U8 *p +Ap |bool |is_utf8_cntrl |NN const U8 *p +Ap |bool |is_utf8_digit |NN const U8 *p +Ap |bool |is_utf8_graph |NN const U8 *p +Ap |bool |is_utf8_upper |NN const U8 *p +Ap |bool |is_utf8_lower |NN const U8 *p +Ap |bool |is_utf8_print |NN const U8 *p +Ap |bool |is_utf8_punct |NN const U8 *p +Ap |bool |is_utf8_xdigit |NN const U8 *p +Ap |bool |is_utf8_mark |NN const U8 *p +p |OP* |jmaybe |NN OP* arg +p |I32 |keyword |NN char* d|I32 len Ap |void |leave_scope |I32 base p |void |lex_end p |void |lex_start |SV* line @@ -450,13 +455,13 @@ Ap |void |mini_mktime |struct tm *pm p |OP* |mod |OP* o|I32 type p |int |mode_from_discipline|SV* discp Ap |char* |moreswitches |char* s -p |OP* |my |OP* o -Ap |NV |my_atof |const char *s +p |OP* |my |NN OP* o +Ap |NV |my_atof |NN const char *s #if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY)) -Anp |char* |my_bcopy |const char* from|char* to|I32 len +Anp |char* |my_bcopy |NN const char* from|NN char* to|I32 len #endif #if !defined(HAS_BZERO) && !defined(HAS_MEMSET) -Anp |char* |my_bzero |char* loc|I32 len +Anp |char* |my_bzero |NN char* loc|I32 len #endif Apr |void |my_exit |U32 status Apr |void |my_failure_exit @@ -466,10 +471,10 @@ Anp |void |atfork_lock Anp |void |atfork_unlock Ap |I32 |my_lstat #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP) -Anp |I32 |my_memcmp |const char* s1|const char* s2|I32 len +AnpP |I32 |my_memcmp |NN const char* s1|NN const char* s2|I32 len #endif #if !defined(HAS_MEMSET) -Anp |void* |my_memset |char* loc|I32 ch|I32 len +Anp |void* |my_memset |NN char* loc|I32 ch|I32 len #endif Ap |I32 |my_pclose |PerlIO* ptr Ap |PerlIO*|my_popen |char* cmd|char* mode @@ -478,9 +483,9 @@ Ap |void |my_setenv |const char* nam|const char* val Ap |I32 |my_stat Ap |char * |my_strftime |const char *fmt|int sec|int min|int hour|int mday|int mon|int year|int wday|int yday|int isdst #if defined(MYSWAP) -Ap |short |my_swap |short s -Ap |long |my_htonl |long l -Ap |long |my_ntohl |long l +ApP |short |my_swap |short s +ApP |long |my_htonl |long l +ApP |long |my_ntohl |long l #endif p |void |my_unexec Ap |OP* |newANONLIST |OP* o @@ -495,22 +500,22 @@ Ap |OP* |newFOROP |I32 flags|char* label|line_t forline \ Ap |OP* |newLOGOP |I32 optype|I32 flags|OP* left|OP* right Ap |OP* |newLOOPEX |I32 type|OP* label Ap |OP* |newLOOPOP |I32 flags|I32 debuggable|OP* expr|OP* block -Ap |OP* |newNULLLIST +Apa |OP* |newNULLLIST Ap |OP* |newOP |I32 optype|I32 flags Ap |void |newPROG |OP* o Ap |OP* |newRANGE |I32 flags|OP* left|OP* right Ap |OP* |newSLICEOP |I32 flags|OP* subscript|OP* listop Ap |OP* |newSTATEOP |I32 flags|char* label|OP* o Ap |CV* |newSUB |I32 floor|OP* o|OP* proto|OP* block -Apd |CV* |newXS |const char* name|XSUBADDR_t f|const char* filename +Apd |CV* |newXS |NN const char* name|XSUBADDR_t f|NN const char* filename Apd |AV* |newAV -Ap |OP* |newAVREF |OP* o +Ap |OP* |newAVREF |NN OP* o Ap |OP* |newBINOP |I32 type|I32 flags|OP* first|OP* last Ap |OP* |newCVREF |I32 flags|OP* o Ap |OP* |newGVOP |I32 type|I32 flags|GV* gv Ap |GV* |newGVgen |const char* pack Ap |OP* |newGVREF |I32 type|OP* o -Ap |OP* |newHVREF |OP* o +Ap |OP* |newHVREF |NN OP* o Apd |HV* |newHV Ap |HV* |newHVhv |HV* hv Ap |IO* |newIO @@ -519,10 +524,10 @@ Ap |OP* |newPADOP |I32 type|I32 flags|SV* sv Ap |OP* |newPMOP |I32 type|I32 flags Ap |OP* |newPVOP |I32 type|I32 flags|char* pv Ap |SV* |newRV |SV* pref -Apd |SV* |newRV_noinc |SV *sv +Apd |SV* |newRV_noinc |NN SV *sv Apd |SV* |newSV |STRLEN len -Ap |OP* |newSVREF |OP* o -Ap |OP* |newSVOP |I32 type|I32 flags|SV* sv +Ap |OP* |newSVREF |NN OP* o +Ap |OP* |newSVOP |I32 type|I32 flags|NN SV* sv Apd |SV* |newSViv |IV i Apd |SV* |newSVuv |UV u Apd |SV* |newSVnv |NV n @@ -538,26 +543,26 @@ Ap |OP* |newWHILEOP |I32 flags|I32 debuggable|LOOP* loop \ |I32 whileline|OP* expr|OP* block|OP* cont \ |I32 has_my Ap |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems -Ap |char* |scan_vstring |const char *vstr|SV *sv -Apd |char* |scan_version |const char *vstr|SV *sv|bool qv +Ap |char* |scan_vstring |NN const char *vstr|NN SV *sv +Apd |char* |scan_version |NN const char *vstr|NN SV *sv|bool qv Apd |SV* |new_version |SV *ver Apd |SV* |upg_version |SV *ver Apd |SV* |vnumify |SV *vs Apd |SV* |vnormal |SV *vs Apd |SV* |vstringify |SV *vs -Apd |int |vcmp |SV *lvs|SV *rvs +Apd |int |vcmp |NN SV *lvs|NN SV *rvs p |PerlIO*|nextargv |GV* gv -Ap |char* |ninstr |const char* big|const char* bigend \ +ApP |char* |ninstr |const char* big|const char* bigend \ |const char* little|const char* lend pr |OP* |oopsCV |OP* o Ap |void |op_free |OP* arg p |void |package |OP* o pd |PADOFFSET|pad_alloc |I32 optype|U32 tmptype -p |PADOFFSET|allocmy |char* name -pd |PADOFFSET|pad_findmy |const char* name +p |PADOFFSET|allocmy |NN char* name +pd |PADOFFSET|pad_findmy |NN const char* name Ap |PADOFFSET|find_rundefsvoffset | -p |OP* |oopsAV |OP* o -p |OP* |oopsHV |OP* o +p |OP* |oopsAV |NN OP* o +p |OP* |oopsHV |NN OP* o pd |void |pad_leavemy Apd |SV* |pad_sv |PADOFFSET po pd |void |pad_free |PADOFFSET po @@ -572,44 +577,44 @@ Ap |void |reentrant_free Anp |void* |reentrant_retry|const char*|... #endif Ap |void |call_atexit |ATEXIT_t fn|void *ptr -Apd |I32 |call_argv |const char* sub_name|I32 flags|char** argv -Apd |I32 |call_method |const char* methname|I32 flags -Apd |I32 |call_pv |const char* sub_name|I32 flags +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 Ap |void |despatch_signals -Apd |SV* |eval_pv |const char* p|I32 croak_on_error -Apd |I32 |eval_sv |SV* sv|I32 flags -Apd |SV* |get_sv |const char* name|I32 create -Apd |AV* |get_av |const char* name|I32 create +Apd |SV* |eval_pv |NN const char* p|I32 croak_on_error +Apd |I32 |eval_sv |NN SV* sv|I32 flags +Apd |SV* |get_sv |NN const char* name|I32 create +Apd |AV* |get_av |NN const char* name|I32 create Apd |HV* |get_hv |const char* name|I32 create Apd |CV* |get_cv |const char* name|I32 create Ap |int |init_i18nl10n |int printwarn Ap |int |init_i18nl14n |int printwarn -Ap |void |new_collate |char* newcoll -Ap |void |new_ctype |char* newctype -Ap |void |new_numeric |char* newcoll +Ap |void |new_collate |NN char* newcoll +Ap |void |new_ctype |NN char* newctype +Ap |void |new_numeric |NN char* newcoll Ap |void |set_numeric_local Ap |void |set_numeric_radix Ap |void |set_numeric_standard -Apd |void |require_pv |const char* pv +Apd |void |require_pv |NN const char* pv Apd |void |pack_cat |SV *cat|const char *pat|const char *patend|SV **beglist|SV **endlist|SV ***next_in_list|U32 flags Apd |void |packlist |SV *cat|const char *pat|const char *patend|SV **beglist|SV **endlist p |void |pidgone |Pid_t pid|int status -Ap |void |pmflag |U32* pmfl|int ch -p |OP* |pmruntime |OP* pm|OP* expr|bool isreg -p |OP* |pmtrans |OP* o|OP* expr|OP* repl +Ap |void |pmflag |NN U32* pmfl|int ch +p |OP* |pmruntime |NN OP* pm|NN OP* expr|bool isreg +p |OP* |pmtrans |NN OP* o|NN OP* expr|OP* repl Ap |void |pop_scope p |OP* |prepend_elem |I32 optype|OP* head|OP* tail Ap |void |push_scope p |OP* |ref |OP* o|I32 type p |OP* |refkids |OP* o|I32 type -Ap |void |regdump |regexp* r +Ap |void |regdump |NN regexp* r Ap |SV* |regclass_swash |struct regnode *n|bool doinit|SV **listsvp|SV **altsvp -Ap |I32 |pregexec |regexp* prog|char* stringarg \ - |char* strend|char* strbeg|I32 minend \ - |SV* screamer|U32 nosave +Ap |I32 |pregexec |NN regexp* prog|NN char* stringarg \ + |NN char* strend|NN char* strbeg|I32 minend \ + |NN SV* screamer|U32 nosave Ap |void |pregfree |struct regexp* r -Ap |regexp*|pregcomp |char* exp|char* xend|PMOP* pm +Ap |regexp*|pregcomp |NN char* exp|NN char* xend|NN PMOP* pm Ap |char* |re_intuit_start|regexp* prog|SV* sv|char* strpos \ |char* strend|U32 flags \ |struct re_scream_pos_data_s *data @@ -619,8 +624,8 @@ Ap |I32 |regexec_flags |regexp* prog|char* stringarg \ |SV* screamer|void* data|U32 flags Ap |regnode*|regnext |regnode* p Ep |void |regprop |SV* sv|regnode* o -Ap |void |repeatcpy |char* to|const char* from|I32 len|I32 count -Ap |char* |rninstr |const char* big|const char* bigend \ +Ap |void |repeatcpy |NN char* to|NN const char* from|I32 len|I32 count +ApP |char* |rninstr |const char* big|const char* bigend \ |const char* little|const char* lend Ap |Sighandler_t|rsignal |int i|Sighandler_t t p |int |rsignal_restore|int i|Sigsave_t* t @@ -630,7 +635,7 @@ p |void |rxres_free |void** rsp p |void |rxres_restore |void** rsp|REGEXP* prx p |void |rxres_save |void** rsp|REGEXP* prx #if !defined(HAS_RENAME) -p |I32 |same_dirent |char* a|char* b +p |I32 |same_dirent |NN const char* a|NN const char* b #endif Apd |char* |savepv |const char* pv Apd |char* |savesharedpv |const char* pv @@ -695,28 +700,29 @@ p |void |setdefout |GV* gv p |HEK* |share_hek |const char* sv|I32 len|U32 hash np |Signal_t |sighandler |int sig Anp |Signal_t |csighandler |int sig -Ap |SV** |stack_grow |SV** sp|SV**p|int n +Ap |SV** |stack_grow |NN SV** sp|NN SV**p|int n Ap |I32 |start_subparse |I32 is_format|U32 flags p |void |sub_crush_depth|CV* cv -Apd |bool |sv_2bool |SV* sv +Apd |bool |sv_2bool |NN SV* sv Apd |CV* |sv_2cv |SV* sv|HV** st|GV** gvp|I32 lref Apd |IO* |sv_2io |SV* sv Amb |IV |sv_2iv |SV* sv Apd |IV |sv_2iv_flags |SV* sv|I32 flags Apd |SV* |sv_2mortal |SV* sv Apd |NV |sv_2nv |SV* sv -Amb |char* |sv_2pv |SV* sv|STRLEN* lp -Apd |char* |sv_2pvutf8 |SV* sv|STRLEN* lp -Apd |char* |sv_2pvbyte |SV* sv|STRLEN* lp -Ap |char* |sv_pvn_nomg |SV* sv|STRLEN* lp -Amb |UV |sv_2uv |SV* sv -Apd |UV |sv_2uv_flags |SV* sv|I32 flags -Apd |IV |sv_iv |SV* sv -Apd |UV |sv_uv |SV* sv -Apd |NV |sv_nv |SV* sv -Apd |char* |sv_pvn |SV *sv|STRLEN *len -Apd |char* |sv_pvutf8n |SV *sv|STRLEN *len -Apd |char* |sv_pvbyten |SV *sv|STRLEN *len +Amb |char* |sv_2pv |SV* sv|NN STRLEN* lp +Apd |char* |sv_2pv_flags |SV* sv|NN STRLEN* lp|I32 flags +Apd |char* |sv_2pvutf8 |SV* sv|NN STRLEN* lp +Apd |char* |sv_2pvbyte |SV* sv|NN STRLEN* lp +Ap |char* |sv_pvn_nomg |NN SV* sv|NN 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 +Apd |UV |sv_uv |NN SV* sv +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 |SV *sv pd |void |sv_add_arena |char* ptr|U32 size|U32 flags Apd |int |sv_backoff |SV* sv @@ -735,20 +741,20 @@ Apd |I32 |sv_cmp_locale |SV* sv1|SV* sv2 #if defined(USE_LOCALE_COLLATE) Apd |char* |sv_collxfrm |SV* sv|STRLEN* nxp #endif -Ap |OP* |sv_compile_2op |SV* sv|OP** startp|const char* code|PAD** padp -Apd |int |getcwd_sv |SV* sv +Ap |OP* |sv_compile_2op |NN SV* sv|NN OP** startp|NN const char* code|NN PAD** padp +Apd |int |getcwd_sv |NN SV* sv Apd |void |sv_dec |SV* sv Ap |void |sv_dump |SV* sv -Apd |bool |sv_derived_from|SV* sv|const char* name -Apd |I32 |sv_eq |SV* sv1|SV* sv2 +Apd |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 -poMX |void |sv_free2 |SV* sv +poMX |void |sv_free2 |NN SV* sv pd |void |sv_free_arenas -Apd |char* |sv_gets |SV* sv|PerlIO* fp|I32 append -Apd |char* |sv_grow |SV* sv|STRLEN newlen +Apd |char* |sv_gets |NN SV* sv|NN PerlIO* fp|I32 append +Apd |char* |sv_grow |NN SV* sv|STRLEN newlen Apd |void |sv_inc |SV* sv -Apd |void |sv_insert |SV* bigsv|STRLEN offset|STRLEN len \ - |const char* little|STRLEN littlelen +Apd |void |sv_insert |NN SV* bigsv|STRLEN offset|STRLEN len \ + |NN const char* little|STRLEN littlelen Apd |int |sv_isa |SV* sv|const char* name Apd |int |sv_isobject |SV* sv Apd |STRLEN |sv_len |SV* sv @@ -757,7 +763,7 @@ Apd |void |sv_magic |SV* sv|SV* obj|int how|const char* name \ |I32 namlen Apd |MAGIC *|sv_magicext |SV* sv|SV* obj|int how|const MGVTBL *vtbl \ |const char* name|I32 namlen -Apd |SV* |sv_mortalcopy |SV* oldsv +Apd |SV* |sv_mortalcopy |NN SV* oldsv Apd |SV* |sv_newmortal Apd |SV* |sv_newref |SV* sv Ap |char* |sv_peek |SV* sv @@ -786,7 +792,7 @@ Apd |SV* |sv_setref_pv |SV* rv|const char* classname|void* pv Apd |SV* |sv_setref_pvn |SV* rv|const char* classname|char* pv \ |STRLEN n Apd |void |sv_setpv |SV* sv|const char* ptr -Apd |void |sv_setpvn |SV* sv|const char* ptr|STRLEN len +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 Apd |bool |sv_tainted |SV* sv @@ -822,20 +828,20 @@ 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 -Adp |STRLEN |utf8_length |const U8* s|const U8 *e -Apd |IV |utf8_distance |const U8 *a|const U8 *b -Apd |U8* |utf8_hop |U8 *s|I32 off -ApMd |U8* |utf8_to_bytes |U8 *s|STRLEN *len +AdpP |STRLEN |utf8_length |NN const U8* s|NN const U8 *e +ApdP |IV |utf8_distance |NN const U8 *a|NN const U8 *b +ApdP |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 -Apd |U8* |uvchr_to_utf8 |U8 *d|UV uv -Ap |U8* |uvuni_to_utf8 |U8 *d|UV uv -Ap |U8* |uvchr_to_utf8_flags |U8 *d|UV uv|UV flags -Apd |U8* |uvuni_to_utf8_flags |U8 *d|UV uv|UV 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 +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 Apd |char* |sv_uni_display |SV *dsv|SV *ssv|STRLEN pvlim|UV flags @@ -862,9 +868,9 @@ p |int |yywarn |const char* s Ap |void |dump_mstats |char* s Ap |int |get_mstats |perl_mstats_t *buf|int buflen|int level #endif -Anp |Malloc_t|safesysmalloc |MEM_SIZE nbytes -Anp |Malloc_t|safesyscalloc |MEM_SIZE elements|MEM_SIZE size -Anp |Malloc_t|safesysrealloc|Malloc_t where|MEM_SIZE nbytes +Anpa |Malloc_t|safesysmalloc |MEM_SIZE nbytes +Anpa |Malloc_t|safesyscalloc |MEM_SIZE elements|MEM_SIZE size +Anpa |Malloc_t|safesysrealloc|Malloc_t where|MEM_SIZE nbytes Anp |Free_t |safesysfree |Malloc_t where #if defined(PERL_GLOBAL_STRUCT) Ap |struct perl_vars *|GetVars @@ -923,7 +929,7 @@ p |int |magic_killbackrefs|SV *sv|MAGIC *mg Ap |OP* |newANONATTRSUB |I32 floor|OP *proto|OP *attrs|OP *block Ap |CV* |newATTRSUB |I32 floor|OP *o|OP *proto|OP *attrs|OP *block Apr |void |newMYSUB |I32 floor|OP *o|OP *proto|OP *attrs|OP *block -p |OP * |my_attrs |OP *o|OP *attrs +p |OP * |my_attrs |NN OP *o|OP *attrs p |void |boot_core_xsutils #if defined(USE_ITHREADS) Ap |PERL_CONTEXT*|cx_dup |PERL_CONTEXT* cx|I32 ix|I32 max|CLONE_PARAMS* param @@ -943,9 +949,9 @@ Ap |void |sys_intern_dup |struct interp_intern* src \ |struct interp_intern* dst #endif Ap |PTR_TBL_t*|ptr_table_new -Ap |void* |ptr_table_fetch|PTR_TBL_t *tbl|void *sv -Ap |void |ptr_table_store|PTR_TBL_t *tbl|void *oldsv|void *newsv -Ap |void |ptr_table_split|PTR_TBL_t *tbl +Ap |void* |ptr_table_fetch|NN PTR_TBL_t *tbl|NN void *sv +Ap |void |ptr_table_store|NN PTR_TBL_t *tbl|void *oldsv|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 #endif @@ -954,8 +960,8 @@ Ap |void |sys_intern_clear Ap |void |sys_intern_init #endif -Ap |char * |custom_op_name |const OP* op -Ap |char * |custom_op_desc |const OP* op +Ap |char * |custom_op_name |NN const OP* op +Ap |char * |custom_op_desc |NN const OP* op #if defined(PERL_COPY_ON_WRITE) pMX |int |sv_release_IVX |SV *sv @@ -1060,13 +1066,13 @@ s |SV* |refto |SV* sv #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 |SV* |mul128 |SV *sv|U8 m -s |I32 |measure_struct |struct tempsym* symptr -s |bool |next_symbol |struct tempsym* symptr -s |SV* |is_an_int |const char *s|STRLEN l -s |int |div128 |SV *pnum|bool *done -s |const char *|group_end |const char *pat|const char *patend|char ender -s |const char *|get_num |const char *ppat|I32 *lenptr +s |SV* |mul128 |NN SV *sv|U8 m +s |I32 |measure_struct |NN struct tempsym* symptr +s |bool |next_symbol |NN struct tempsym* symptr +s |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 +s |const char *|get_num |NN const char *ppat|NN I32 *lenptr #endif #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) @@ -1076,14 +1082,14 @@ s |OP* |dofindlabel |OP *o|const char *label|OP **opstack|OP **oplimit s |OP* |doparseform |SV *sv sn |bool |num_overflow |NV value|I32 fldsize|I32 frcsize s |I32 |dopoptoeval |I32 startingblock -s |I32 |dopoptolabel |const char *label +s |I32 |dopoptolabel |NN const char *label s |I32 |dopoptoloop |I32 startingblock s |I32 |dopoptosub |I32 startingblock s |I32 |dopoptosub_at |PERL_CONTEXT* cxstk|I32 startingblock s |void |save_lines |AV *array|SV *sv s |OP* |doeval |int gimme|OP** startop|CV* outside|U32 seq s |PerlIO *|doopen_pm |const char *name|const char *mode -s |bool |path_is_absolute|const char *name +s |bool |path_is_absolute|NN const char *name #endif #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) @@ -1308,14 +1314,13 @@ sn |NV|mulexp10 |NV value|I32 exponent START_EXTERN_C -Apd |void |sv_setsv_flags |SV* dsv|SV* ssv|I32 flags -Apd |void |sv_catpvn_flags|SV* sv|const char* ptr|STRLEN len|I32 flags -Apd |void |sv_catsv_flags |SV* dsv|SV* ssv|I32 flags -Apd |STRLEN |sv_utf8_upgrade_flags|SV *sv|I32 flags -Apd |char* |sv_pvn_force_flags|SV* sv|STRLEN* lp|I32 flags -Apd |char* |sv_2pv_flags |SV* sv|STRLEN* lp|I32 flags -Apd |void |sv_copypv |SV* dsv|SV* ssv -Ap |char* |my_atof2 |const char *s|NV* value +Apd |void |sv_setsv_flags |NN SV* dsv|SV* ssv|I32 flags +Apd |void |sv_catpvn_flags|NN SV* sv|NN const char* ptr|STRLEN len|I32 flags +Apd |void |sv_catsv_flags |NN SV* dsv|SV* ssv|I32 flags +Apd |STRLEN |sv_utf8_upgrade_flags|NN SV *sv|I32 flags +Apd |char* |sv_pvn_force_flags|SV* sv|NN STRLEN* lp|I32 flags +Apd |void |sv_copypv |NN SV* dsv|NN SV* ssv +Ap |char* |my_atof2 |NN const char *s|NN NV* value Apn |int |my_socketpair |int family|int type|int protocol|int fd[2] #ifdef PERL_COPY_ON_WRITE pMXE |SV* |sv_setsv_cow |SV* dsv|SV* ssv @@ -1356,7 +1361,7 @@ s |void |deb_stack_n |SV** stack_base|I32 stack_min \ pd |PADLIST*|pad_new |int flags pd |void |pad_undef |CV* cv -pd |PADOFFSET|pad_add_name |const char *name\ +pd |PADOFFSET|pad_add_name |NN const char *name\ |HV* typestash|HV* ourstash \ |bool clone pd |PADOFFSET|pad_add_anon |SV* sv|OPCODE op_type diff --git a/embed.pl b/embed.pl index 612e19c..39bd429 100755 --- a/embed.pl +++ b/embed.pl @@ -18,7 +18,7 @@ BEGIN { sub do_not_edit ($) { my $file = shift; - + my $years = '1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005'; $years =~ s/1999,/1999,\n / if length $years > 40; @@ -101,8 +101,8 @@ sub walk_table (&@) { else { @args = split /\s*\|\s*/, $_; } - my @outs = &{$function}(@args); - print $F @outs; # $function->(@args) is not 5.003 + my @outs = &{$function}(@args); + print $F @outs; # $function->(@args) is not 5.003 } print $F $trailer if $trailer; unless (ref $filename) { @@ -113,7 +113,7 @@ sub walk_table (&@) { sub munge_c_files () { my $functions = {}; unless (@ARGV) { - warn "\@ARGV empty, nothing to do\n"; + warn "\@ARGV empty, nothing to do\n"; return; } walk_table { @@ -172,6 +172,8 @@ sub write_protos { } else { my ($flags,$retval,$func,@args) = @_; + my @nonnull; + my $has_context = ( $flags !~ /n/ ); $ret .= '/* ' if $flags =~ /m/; if ($flags =~ /s/) { $retval = "STATIC $retval"; @@ -184,24 +186,35 @@ sub write_protos { } } $ret .= "$retval\t$func("; - unless ($flags =~ /n/) { - $ret .= "pTHX"; - $ret .= "_ " if @args; + if ( $has_context ) { + $ret .= @args ? "pTHX_ " : "pTHX"; } if (@args) { + my $n; + for my $arg ( @args ) { + ++$n; + push( @nonnull, $n ) if ( $arg =~ s/\s*\bNN\b\s+// ); + } $ret .= join ", ", @args; } else { - $ret .= "void" if $flags =~ /n/; + $ret .= "void" if !$has_context; } $ret .= ")"; $ret .= " __attribute__((noreturn))" if $flags =~ /r/; + $ret .= "\n\t\t\t__attribute__((malloc)) __attribute__((warn_unused_result))" if $flags =~ /a/; + $ret .= "\n\t\t\t__attribute__((pure))" if $flags =~ /P/; if( $flags =~ /f/ ) { - my $prefix = $flags =~ /n/ ? '' : 'pTHX_'; + my $prefix = $has_context ? 'pTHX_' : ''; my $args = scalar @args; - $ret .= sprintf "\n\t__attribute__format__(__printf__,%s%d,%s%d)", + $ret .= sprintf "\n\t\t\t__attribute__format__(__printf__,%s%d,%s%d)", $prefix, $args - 1, $prefix, $args; } + $ret .= "\n\t\t\t__attribute__((nonnull))" if $flags =~ /N/; + if ( @nonnull ) { + my @pos = map { $has_context ? "pTHX_ $_" : $_ } @nonnull; + $ret .= sprintf( "\n\t\t\t__attribute__((nonnull(%s)))", join( ",", @pos ) ); + } $ret .= ";"; $ret .= ' */' if $flags =~ /m/; $ret .= "\n"; @@ -231,12 +244,12 @@ walk_table(\&write_global_sym, "global.sym", undef); # hints # copline my @extvars = qw(sv_undef sv_yes sv_no na dowarn - curcop compiling - tainting tainted stack_base stack_sp sv_arenaroot + curcop compiling + tainting tainted stack_base stack_sp sv_arenaroot no_modify - curstash DBsub DBsingle DBassertion debstash - rsfp - stdingv + curstash DBsub DBsingle DBassertion debstash + rsfp + stdingv defgv errgv rsfp_filters diff --git a/op.c b/op.c index f3f7b6a..f72252f 100644 --- a/op.c +++ b/op.c @@ -2366,6 +2366,7 @@ Perl_newBINOP(pTHX_ I32 type, I32 flags, OP *first, OP *last) return fold_constants((OP *)binop); } +static int uvcompare(const void *a, const void *b) __attribute__((nonnull,pure)); static int uvcompare(const void *a, const void *b) { diff --git a/perl.h b/perl.h index a2de563..a0c39f9 100644 --- a/perl.h +++ b/perl.h @@ -162,10 +162,12 @@ # endif # define pTHX_ pTHX, # define aTHX_ aTHX, -# define pTHX_1 2 +# define pTHX_1 2 # define pTHX_2 3 # define pTHX_3 4 # define pTHX_4 5 +# define pTHX_5 6 +# define pTHX_6 7 #endif #define STATIC static diff --git a/pod/perlapi.pod b/pod/perlapi.pod index 3895ae6..ba8b4a8 100644 --- a/pod/perlapi.pod +++ b/pod/perlapi.pod @@ -5471,7 +5471,7 @@ WARNING: do not use the following unless you *know* C is within the UTF-8 data pointed to by C *and* that on entry C is aligned on the first byte of character or just after the last byte of a character. - U8* utf8_hop(U8 *s, I32 off) + U8* utf8_hop(const U8 *s, I32 off) =for hackers Found in file utf8.c diff --git a/proto.h b/proto.h index bd6401c..a210be1 100644 --- a/proto.h +++ b/proto.h @@ -21,10 +21,14 @@ START_EXTERN_C PERL_CALLCONV PerlInterpreter* perl_alloc_using(struct IPerlMem* m, struct IPerlMem* ms, struct IPerlMem* mp, struct IPerlEnv* e, struct IPerlStdIO* io, struct IPerlLIO* lio, struct IPerlDir* d, struct IPerlSock* s, struct IPerlProc* p); #endif PERL_CALLCONV PerlInterpreter* perl_alloc(void); -PERL_CALLCONV void perl_construct(PerlInterpreter* interp); -PERL_CALLCONV int perl_destruct(PerlInterpreter* interp); -PERL_CALLCONV void perl_free(PerlInterpreter* interp); -PERL_CALLCONV int perl_run(PerlInterpreter* interp); +PERL_CALLCONV void perl_construct(PerlInterpreter* interp) + __attribute__((nonnull(1))); +PERL_CALLCONV int perl_destruct(PerlInterpreter* interp) + __attribute__((nonnull(1))); +PERL_CALLCONV void perl_free(PerlInterpreter* interp) + __attribute__((nonnull(1))); +PERL_CALLCONV int perl_run(PerlInterpreter* interp) + __attribute__((nonnull(1))); PERL_CALLCONV int perl_parse(PerlInterpreter* interp, XSINIT_t xsinit, int argc, char** argv, char** env); PERL_CALLCONV bool Perl_doing_taint(int argc, char** argv, char** env); #if defined(USE_ITHREADS) @@ -34,9 +38,12 @@ PERL_CALLCONV PerlInterpreter* perl_clone_using(PerlInterpreter *interp, UV flag # endif #endif -PERL_CALLCONV Malloc_t Perl_malloc(MEM_SIZE nbytes); -PERL_CALLCONV Malloc_t Perl_calloc(MEM_SIZE elements, MEM_SIZE size); -PERL_CALLCONV Malloc_t Perl_realloc(Malloc_t where, MEM_SIZE nbytes); +PERL_CALLCONV Malloc_t Perl_malloc(MEM_SIZE nbytes) + __attribute__((malloc)) __attribute__((warn_unused_result)); +PERL_CALLCONV Malloc_t Perl_calloc(MEM_SIZE elements, MEM_SIZE size) + __attribute__((malloc)) __attribute__((warn_unused_result)); +PERL_CALLCONV Malloc_t Perl_realloc(Malloc_t where, MEM_SIZE nbytes) + __attribute__((malloc)) __attribute__((warn_unused_result)); PERL_CALLCONV Free_t Perl_mfree(Malloc_t where); #if defined(MYMALLOC) PERL_CALLCONV MEM_SIZE Perl_malloced_size(void *p); @@ -80,7 +87,8 @@ PERL_CALLCONV int Perl_block_start(pTHX_ int full); PERL_CALLCONV void Perl_boot_core_UNIVERSAL(pTHX); PERL_CALLCONV void Perl_boot_core_PerlIO(pTHX); PERL_CALLCONV void Perl_call_list(pTHX_ I32 oldscope, AV* av_list); -PERL_CALLCONV bool Perl_cando(pTHX_ Mode_t mode, Uid_t effective, Stat_t* statbufp); +PERL_CALLCONV bool Perl_cando(pTHX_ Mode_t mode, Uid_t effective, const Stat_t* statbufp) + __attribute__((nonnull(pTHX_ 3))); PERL_CALLCONV U32 Perl_cast_ulong(pTHX_ NV f); PERL_CALLCONV I32 Perl_cast_i32(pTHX_ NV f); PERL_CALLCONV IV Perl_cast_iv(pTHX_ NV f); @@ -90,41 +98,42 @@ PERL_CALLCONV I32 Perl_my_chsize(pTHX_ int fd, Off_t length); #endif PERL_CALLCONV OP* Perl_convert(pTHX_ I32 optype, I32 flags, OP* o); PERL_CALLCONV void Perl_croak(pTHX_ const char* pat, ...) __attribute__((noreturn)) - __attribute__format__(__printf__,pTHX_1,pTHX_2); + __attribute__format__(__printf__,pTHX_1,pTHX_2); PERL_CALLCONV void Perl_vcroak(pTHX_ const char* pat, va_list* args) __attribute__((noreturn)); #if defined(PERL_IMPLICIT_CONTEXT) PERL_CALLCONV void Perl_croak_nocontext(const char* pat, ...) __attribute__((noreturn)) - __attribute__format__(__printf__,1,2); + __attribute__format__(__printf__,1,2); PERL_CALLCONV OP* Perl_die_nocontext(const char* pat, ...) - __attribute__format__(__printf__,1,2); + __attribute__format__(__printf__,1,2); PERL_CALLCONV void Perl_deb_nocontext(const char* pat, ...) - __attribute__format__(__printf__,1,2); + __attribute__format__(__printf__,1,2); PERL_CALLCONV char* Perl_form_nocontext(const char* pat, ...) - __attribute__format__(__printf__,1,2); + __attribute__format__(__printf__,1,2); PERL_CALLCONV void Perl_load_module_nocontext(U32 flags, SV* name, SV* ver, ...); PERL_CALLCONV SV* Perl_mess_nocontext(const char* pat, ...) - __attribute__format__(__printf__,1,2); + __attribute__format__(__printf__,1,2); PERL_CALLCONV void Perl_warn_nocontext(const char* pat, ...) - __attribute__format__(__printf__,1,2); + __attribute__format__(__printf__,1,2); PERL_CALLCONV void Perl_warner_nocontext(U32 err, const char* pat, ...) - __attribute__format__(__printf__,2,3); + __attribute__format__(__printf__,2,3); PERL_CALLCONV SV* Perl_newSVpvf_nocontext(const char* pat, ...) - __attribute__format__(__printf__,1,2); + __attribute__format__(__printf__,1,2); PERL_CALLCONV void Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...) - __attribute__format__(__printf__,2,3); + __attribute__format__(__printf__,2,3); PERL_CALLCONV void Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...) - __attribute__format__(__printf__,2,3); + __attribute__format__(__printf__,2,3); PERL_CALLCONV void Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...) - __attribute__format__(__printf__,2,3); + __attribute__format__(__printf__,2,3); PERL_CALLCONV void Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...) - __attribute__format__(__printf__,2,3); + __attribute__format__(__printf__,2,3); PERL_CALLCONV int Perl_fprintf_nocontext(PerlIO* stream, const char* fmt, ...) - __attribute__format__(__printf__,2,3); + __attribute__format__(__printf__,2,3); PERL_CALLCONV int Perl_printf_nocontext(const char* fmt, ...) - __attribute__format__(__printf__,1,2); + __attribute__format__(__printf__,1,2); #endif PERL_CALLCONV void Perl_cv_ckproto(pTHX_ const CV* cv, const GV* gv, const char* p); -PERL_CALLCONV CV* Perl_cv_clone(pTHX_ CV* proto); +PERL_CALLCONV CV* Perl_cv_clone(pTHX_ CV* proto) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV SV* Perl_cv_const_sv(pTHX_ CV* cv); PERL_CALLCONV SV* Perl_op_const_sv(pTHX_ const OP* o, CV* cv); PERL_CALLCONV void Perl_cv_undef(pTHX_ CV* cv); @@ -132,34 +141,48 @@ PERL_CALLCONV void Perl_cx_dump(pTHX_ PERL_CONTEXT* cs); PERL_CALLCONV SV* Perl_filter_add(pTHX_ filter_t funcp, SV* datasv); PERL_CALLCONV void Perl_filter_del(pTHX_ filter_t funcp); PERL_CALLCONV I32 Perl_filter_read(pTHX_ int idx, SV* buffer, int maxlen); -PERL_CALLCONV char** Perl_get_op_descs(pTHX); -PERL_CALLCONV char** Perl_get_op_names(pTHX); -PERL_CALLCONV const char* Perl_get_no_modify(pTHX); -PERL_CALLCONV U32* Perl_get_opargs(pTHX); -PERL_CALLCONV PPADDR_t* Perl_get_ppaddr(pTHX); +PERL_CALLCONV char** Perl_get_op_descs(pTHX) + __attribute__((pure)); +PERL_CALLCONV char** Perl_get_op_names(pTHX) + __attribute__((pure)); +PERL_CALLCONV const char* Perl_get_no_modify(pTHX) + __attribute__((pure)); +PERL_CALLCONV U32* Perl_get_opargs(pTHX) + __attribute__((pure)); +PERL_CALLCONV PPADDR_t* Perl_get_ppaddr(pTHX) + __attribute__((pure)); PERL_CALLCONV I32 Perl_cxinc(pTHX); PERL_CALLCONV void Perl_deb(pTHX_ const char* pat, ...) - __attribute__format__(__printf__,pTHX_1,pTHX_2); + __attribute__format__(__printf__,pTHX_1,pTHX_2); PERL_CALLCONV void Perl_vdeb(pTHX_ const char* pat, va_list* args); PERL_CALLCONV void Perl_debprofdump(pTHX); -PERL_CALLCONV I32 Perl_debop(pTHX_ const OP* o); +PERL_CALLCONV I32 Perl_debop(pTHX_ const OP* o) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV I32 Perl_debstack(pTHX); PERL_CALLCONV I32 Perl_debstackptrs(pTHX); -PERL_CALLCONV char* Perl_delimcpy(pTHX_ char* to, const char* toend, const char* from, const char* fromend, int delim, I32* retlen); -PERL_CALLCONV void Perl_deprecate(pTHX_ const char* s); -PERL_CALLCONV void Perl_deprecate_old(pTHX_ const char* s); +PERL_CALLCONV char* Perl_delimcpy(pTHX_ char* to, const char* toend, const char* from, const char* fromend, int delim, I32* retlen) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2,pTHX_ 3,pTHX_ 4,pTHX_ 6))); +PERL_CALLCONV void Perl_deprecate(pTHX_ const char* s) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV void Perl_deprecate_old(pTHX_ const char* s) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV OP* Perl_die(pTHX_ const char* pat, ...) - __attribute__format__(__printf__,pTHX_1,pTHX_2); + __attribute__format__(__printf__,pTHX_1,pTHX_2); PERL_CALLCONV OP* Perl_vdie(pTHX_ const char* pat, va_list* args); PERL_CALLCONV OP* Perl_die_where(pTHX_ const char* message, STRLEN msglen); PERL_CALLCONV void Perl_dounwind(pTHX_ I32 cxix); PERL_CALLCONV bool Perl_do_aexec(pTHX_ SV* really, SV** mark, SV** sp); PERL_CALLCONV bool Perl_do_aexec5(pTHX_ SV* really, SV** mark, SV** sp, int fd, int flag); -PERL_CALLCONV int Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int mode); -PERL_CALLCONV void Perl_do_chop(pTHX_ SV* asv, SV* sv); -PERL_CALLCONV bool Perl_do_close(pTHX_ GV* gv, bool not_implicit); -PERL_CALLCONV bool Perl_do_eof(pTHX_ GV* gv); -PERL_CALLCONV bool Perl_do_exec(pTHX_ char* cmd); +PERL_CALLCONV int Perl_do_binmode(pTHX_ PerlIO *fp, int iotype, int mode) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV void Perl_do_chop(pTHX_ SV* asv, SV* sv) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +PERL_CALLCONV bool Perl_do_close(pTHX_ GV* gv, bool not_implicit) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_do_eof(pTHX_ GV* gv) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_do_exec(pTHX_ char* cmd) + __attribute__((nonnull(pTHX_ 1))); #if defined(WIN32) || defined(SYMBIAN) PERL_CALLCONV int Perl_do_aspawn(pTHX_ SV* really, SV** mark, SV** sp); PERL_CALLCONV int Perl_do_spawn(pTHX_ char* cmd); @@ -191,8 +214,10 @@ PERL_CALLCONV void Perl_do_sprintf(pTHX_ SV* sv, I32 len, SV** sarg); PERL_CALLCONV Off_t Perl_do_sysseek(pTHX_ GV* gv, Off_t pos, int whence); PERL_CALLCONV Off_t Perl_do_tell(pTHX_ GV* gv); PERL_CALLCONV I32 Perl_do_trans(pTHX_ SV* sv); -PERL_CALLCONV UV Perl_do_vecget(pTHX_ SV* sv, I32 offset, I32 size); -PERL_CALLCONV void Perl_do_vecset(pTHX_ SV* sv); +PERL_CALLCONV UV Perl_do_vecget(pTHX_ SV* sv, I32 offset, I32 size) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV void Perl_do_vecset(pTHX_ SV* sv) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV void Perl_do_vop(pTHX_ I32 optype, SV* sv, SV* left, SV* right); PERL_CALLCONV OP* Perl_dofile(pTHX_ OP* term); PERL_CALLCONV I32 Perl_dowantarray(pTHX); @@ -210,10 +235,12 @@ PERL_CALLCONV void Perl_dump_sub(pTHX_ const GV* gv); PERL_CALLCONV void Perl_fbm_compile(pTHX_ SV* sv, U32 flags); PERL_CALLCONV char* Perl_fbm_instr(pTHX_ unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags); PERL_CALLCONV char* Perl_find_script(pTHX_ const char *scriptname, bool dosearch, const char **search_ext, I32 flags); -PERL_CALLCONV OP* Perl_force_list(pTHX_ OP* arg); -PERL_CALLCONV OP* Perl_fold_constants(pTHX_ OP* arg); +PERL_CALLCONV OP* Perl_force_list(pTHX_ OP* arg) + __attribute__((nonnull(pTHX_ 1))); +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); 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); @@ -265,16 +292,24 @@ PERL_CALLCONV SV** Perl_hv_store(pTHX_ HV* tb, const char* key, I32 klen, SV* va PERL_CALLCONV HE* Perl_hv_store_ent(pTHX_ HV* tb, SV* key, SV* val, U32 hash); PERL_CALLCONV SV** Perl_hv_store_flags(pTHX_ HV* tb, const char* key, I32 klen, SV* val, U32 hash, int flags); PERL_CALLCONV void Perl_hv_undef(pTHX_ HV* tb); -PERL_CALLCONV I32 Perl_ibcmp(pTHX_ const char* a, const char* b, I32 len); -PERL_CALLCONV I32 Perl_ibcmp_locale(pTHX_ const char* a, const char* b, I32 len); -PERL_CALLCONV I32 Perl_ibcmp_utf8(pTHX_ const char* a, char **pe1, UV l1, bool u1, const char* b, char **pe2, UV l2, bool u2); +PERL_CALLCONV I32 Perl_ibcmp(pTHX_ const char* a, const char* b, I32 len) + __attribute__((pure)) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +PERL_CALLCONV I32 Perl_ibcmp_locale(pTHX_ const char* a, const char* b, I32 len) + __attribute__((pure)) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +PERL_CALLCONV I32 Perl_ibcmp_utf8(pTHX_ const char* a, char **pe1, UV l1, bool u1, const char* b, char **pe2, UV l2, bool u2) + __attribute__((nonnull(pTHX_ 1,pTHX_ 5))); PERL_CALLCONV bool Perl_ingroup(pTHX_ Gid_t testgid, Uid_t effective); -PERL_CALLCONV void Perl_init_argv_symbols(pTHX_ int argc, char **argv); +PERL_CALLCONV void Perl_init_argv_symbols(pTHX_ int argc, char **argv) + __attribute__((nonnull(pTHX_ 2))); PERL_CALLCONV void Perl_init_debugger(pTHX); PERL_CALLCONV void Perl_init_stacks(pTHX); PERL_CALLCONV void Perl_init_tm(pTHX_ struct tm *ptm); PERL_CALLCONV U32 Perl_intro_my(pTHX); -PERL_CALLCONV char* Perl_instr(pTHX_ const char* big, const char* little); +PERL_CALLCONV char* Perl_instr(pTHX_ const char* big, const char* little) + __attribute__((pure)) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); PERL_CALLCONV bool Perl_io_close(pTHX_ IO* io, bool not_implicit); PERL_CALLCONV OP* Perl_invert(pTHX_ OP* cmd); PERL_CALLCONV bool Perl_is_gv_magical(pTHX_ const char *name, STRLEN len, U32 flags); @@ -296,10 +331,14 @@ PERL_CALLCONV bool Perl_is_uni_lower(pTHX_ UV c); PERL_CALLCONV bool Perl_is_uni_print(pTHX_ UV c); PERL_CALLCONV bool Perl_is_uni_punct(pTHX_ UV c); PERL_CALLCONV bool Perl_is_uni_xdigit(pTHX_ UV c); -PERL_CALLCONV UV Perl_to_uni_upper(pTHX_ UV c, U8 *p, STRLEN *lenp); -PERL_CALLCONV UV Perl_to_uni_title(pTHX_ UV c, U8 *p, STRLEN *lenp); -PERL_CALLCONV UV Perl_to_uni_lower(pTHX_ UV c, U8 *p, STRLEN *lenp); -PERL_CALLCONV UV Perl_to_uni_fold(pTHX_ UV c, U8 *p, STRLEN *lenp); +PERL_CALLCONV UV Perl_to_uni_upper(pTHX_ UV c, U8 *p, STRLEN *lenp) + __attribute__((nonnull(pTHX_ 2,pTHX_ 3))); +PERL_CALLCONV UV Perl_to_uni_title(pTHX_ UV c, U8 *p, STRLEN *lenp) + __attribute__((nonnull(pTHX_ 2,pTHX_ 3))); +PERL_CALLCONV UV Perl_to_uni_lower(pTHX_ UV c, U8 *p, STRLEN *lenp) + __attribute__((nonnull(pTHX_ 2,pTHX_ 3))); +PERL_CALLCONV UV Perl_to_uni_fold(pTHX_ UV c, U8 *p, STRLEN *lenp) + __attribute__((nonnull(pTHX_ 2,pTHX_ 3))); PERL_CALLCONV bool Perl_is_uni_alnum_lc(pTHX_ UV c); PERL_CALLCONV bool Perl_is_uni_alnumc_lc(pTHX_ UV c); PERL_CALLCONV bool Perl_is_uni_idfirst_lc(pTHX_ UV c); @@ -314,27 +353,48 @@ PERL_CALLCONV bool Perl_is_uni_lower_lc(pTHX_ UV c); PERL_CALLCONV bool Perl_is_uni_print_lc(pTHX_ UV c); PERL_CALLCONV bool Perl_is_uni_punct_lc(pTHX_ UV c); PERL_CALLCONV bool Perl_is_uni_xdigit_lc(pTHX_ UV c); -PERL_CALLCONV STRLEN Perl_is_utf8_char(pTHX_ const U8 *p); -PERL_CALLCONV bool Perl_is_utf8_string(pTHX_ const U8 *s, STRLEN len); -PERL_CALLCONV bool Perl_is_utf8_string_loc(pTHX_ const U8 *s, STRLEN len, const U8 **p); -PERL_CALLCONV bool Perl_is_utf8_alnum(pTHX_ const U8 *p); -PERL_CALLCONV bool Perl_is_utf8_alnumc(pTHX_ const U8 *p); -PERL_CALLCONV bool Perl_is_utf8_idfirst(pTHX_ const U8 *p); -PERL_CALLCONV bool Perl_is_utf8_idcont(pTHX_ const U8 *p); -PERL_CALLCONV bool Perl_is_utf8_alpha(pTHX_ const U8 *p); -PERL_CALLCONV bool Perl_is_utf8_ascii(pTHX_ const U8 *p); -PERL_CALLCONV bool Perl_is_utf8_space(pTHX_ const U8 *p); -PERL_CALLCONV bool Perl_is_utf8_cntrl(pTHX_ const U8 *p); -PERL_CALLCONV bool Perl_is_utf8_digit(pTHX_ const U8 *p); -PERL_CALLCONV bool Perl_is_utf8_graph(pTHX_ const U8 *p); -PERL_CALLCONV bool Perl_is_utf8_upper(pTHX_ const U8 *p); -PERL_CALLCONV bool Perl_is_utf8_lower(pTHX_ const U8 *p); -PERL_CALLCONV bool Perl_is_utf8_print(pTHX_ const U8 *p); -PERL_CALLCONV bool Perl_is_utf8_punct(pTHX_ const U8 *p); -PERL_CALLCONV bool Perl_is_utf8_xdigit(pTHX_ const U8 *p); -PERL_CALLCONV bool Perl_is_utf8_mark(pTHX_ const U8 *p); -PERL_CALLCONV OP* Perl_jmaybe(pTHX_ OP* arg); -PERL_CALLCONV I32 Perl_keyword(pTHX_ char* d, I32 len); +PERL_CALLCONV STRLEN Perl_is_utf8_char(pTHX_ const U8 *p) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_is_utf8_string(pTHX_ const U8 *s, STRLEN len) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_is_utf8_string_loc(pTHX_ const U8 *s, STRLEN len, const U8 **p) + __attribute__((nonnull(pTHX_ 1,pTHX_ 3))); +PERL_CALLCONV bool Perl_is_utf8_alnum(pTHX_ const U8 *p) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_is_utf8_alnumc(pTHX_ const U8 *p) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_is_utf8_idfirst(pTHX_ const U8 *p) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_is_utf8_idcont(pTHX_ const U8 *p) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_is_utf8_alpha(pTHX_ const U8 *p) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_is_utf8_ascii(pTHX_ const U8 *p) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_is_utf8_space(pTHX_ const U8 *p) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_is_utf8_cntrl(pTHX_ const U8 *p) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_is_utf8_digit(pTHX_ const U8 *p) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_is_utf8_graph(pTHX_ const U8 *p) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_is_utf8_upper(pTHX_ const U8 *p) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_is_utf8_lower(pTHX_ const U8 *p) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_is_utf8_print(pTHX_ const U8 *p) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_is_utf8_punct(pTHX_ const U8 *p) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_is_utf8_xdigit(pTHX_ const U8 *p) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV bool Perl_is_utf8_mark(pTHX_ const U8 *p) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV OP* Perl_jmaybe(pTHX_ OP* arg) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV I32 Perl_keyword(pTHX_ char* d, I32 len) + __attribute__((nonnull(pTHX_ 1))); 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); @@ -411,7 +471,7 @@ PERL_CALLCONV void Perl_markstack_grow(pTHX); 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); 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); @@ -428,13 +488,17 @@ PERL_CALLCONV void Perl_mini_mktime(pTHX_ struct tm *pm); PERL_CALLCONV OP* Perl_mod(pTHX_ OP* o, I32 type); PERL_CALLCONV int Perl_mode_from_discipline(pTHX_ SV* discp); PERL_CALLCONV char* Perl_moreswitches(pTHX_ char* s); -PERL_CALLCONV OP* Perl_my(pTHX_ OP* o); -PERL_CALLCONV NV Perl_my_atof(pTHX_ const char *s); +PERL_CALLCONV OP* Perl_my(pTHX_ OP* o) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV NV Perl_my_atof(pTHX_ const char *s) + __attribute__((nonnull(pTHX_ 1))); #if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY)) -PERL_CALLCONV char* Perl_my_bcopy(const char* from, char* to, I32 len); +PERL_CALLCONV char* Perl_my_bcopy(const char* from, char* to, I32 len) + __attribute__((nonnull(1,2))); #endif #if !defined(HAS_BZERO) && !defined(HAS_MEMSET) -PERL_CALLCONV char* Perl_my_bzero(char* loc, I32 len); +PERL_CALLCONV char* Perl_my_bzero(char* loc, I32 len) + __attribute__((nonnull(1))); #endif PERL_CALLCONV void Perl_my_exit(pTHX_ U32 status) __attribute__((noreturn)); PERL_CALLCONV void Perl_my_failure_exit(pTHX) __attribute__((noreturn)); @@ -444,10 +508,13 @@ PERL_CALLCONV void Perl_atfork_lock(void); PERL_CALLCONV void Perl_atfork_unlock(void); PERL_CALLCONV I32 Perl_my_lstat(pTHX); #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP) -PERL_CALLCONV I32 Perl_my_memcmp(const char* s1, const char* s2, I32 len); +PERL_CALLCONV I32 Perl_my_memcmp(const char* s1, const char* s2, I32 len) + __attribute__((pure)) + __attribute__((nonnull(1,2))); #endif #if !defined(HAS_MEMSET) -PERL_CALLCONV void* Perl_my_memset(char* loc, I32 ch, I32 len); +PERL_CALLCONV void* Perl_my_memset(char* loc, I32 ch, I32 len) + __attribute__((nonnull(1))); #endif PERL_CALLCONV I32 Perl_my_pclose(pTHX_ PerlIO* ptr); PERL_CALLCONV PerlIO* Perl_my_popen(pTHX_ char* cmd, char* mode); @@ -456,9 +523,12 @@ PERL_CALLCONV void Perl_my_setenv(pTHX_ const char* nam, const char* val); PERL_CALLCONV I32 Perl_my_stat(pTHX); PERL_CALLCONV char * Perl_my_strftime(pTHX_ const char *fmt, int sec, int min, int hour, int mday, int mon, int year, int wday, int yday, int isdst); #if defined(MYSWAP) -PERL_CALLCONV short Perl_my_swap(pTHX_ short s); -PERL_CALLCONV long Perl_my_htonl(pTHX_ long l); -PERL_CALLCONV long Perl_my_ntohl(pTHX_ long l); +PERL_CALLCONV short Perl_my_swap(pTHX_ short s) + __attribute__((pure)); +PERL_CALLCONV long Perl_my_htonl(pTHX_ long l) + __attribute__((pure)); +PERL_CALLCONV long Perl_my_ntohl(pTHX_ long l) + __attribute__((pure)); #endif PERL_CALLCONV void Perl_my_unexec(pTHX); PERL_CALLCONV OP* Perl_newANONLIST(pTHX_ OP* o); @@ -472,22 +542,26 @@ PERL_CALLCONV OP* Perl_newFOROP(pTHX_ I32 flags, char* label, line_t forline, OP PERL_CALLCONV OP* Perl_newLOGOP(pTHX_ I32 optype, I32 flags, OP* left, OP* right); PERL_CALLCONV OP* Perl_newLOOPEX(pTHX_ I32 type, OP* label); PERL_CALLCONV OP* Perl_newLOOPOP(pTHX_ I32 flags, I32 debuggable, OP* expr, OP* block); -PERL_CALLCONV OP* Perl_newNULLLIST(pTHX); +PERL_CALLCONV OP* Perl_newNULLLIST(pTHX) + __attribute__((malloc)) __attribute__((warn_unused_result)); PERL_CALLCONV OP* Perl_newOP(pTHX_ I32 optype, I32 flags); PERL_CALLCONV void Perl_newPROG(pTHX_ OP* o); PERL_CALLCONV OP* Perl_newRANGE(pTHX_ I32 flags, OP* left, OP* right); PERL_CALLCONV OP* Perl_newSLICEOP(pTHX_ I32 flags, OP* subscript, OP* listop); PERL_CALLCONV OP* Perl_newSTATEOP(pTHX_ I32 flags, char* label, OP* o); PERL_CALLCONV CV* Perl_newSUB(pTHX_ I32 floor, OP* o, OP* proto, OP* block); -PERL_CALLCONV CV* Perl_newXS(pTHX_ const char* name, XSUBADDR_t f, const char* filename); +PERL_CALLCONV CV* Perl_newXS(pTHX_ const char* name, XSUBADDR_t f, const char* filename) + __attribute__((nonnull(pTHX_ 1,pTHX_ 3))); PERL_CALLCONV AV* Perl_newAV(pTHX); -PERL_CALLCONV OP* Perl_newAVREF(pTHX_ OP* o); +PERL_CALLCONV OP* Perl_newAVREF(pTHX_ OP* o) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV OP* Perl_newBINOP(pTHX_ I32 type, I32 flags, OP* first, OP* last); PERL_CALLCONV OP* Perl_newCVREF(pTHX_ I32 flags, OP* o); PERL_CALLCONV OP* Perl_newGVOP(pTHX_ I32 type, I32 flags, GV* gv); PERL_CALLCONV GV* Perl_newGVgen(pTHX_ const char* pack); PERL_CALLCONV OP* Perl_newGVREF(pTHX_ I32 type, OP* o); -PERL_CALLCONV OP* Perl_newHVREF(pTHX_ OP* o); +PERL_CALLCONV OP* Perl_newHVREF(pTHX_ OP* o) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV HV* Perl_newHV(pTHX); PERL_CALLCONV HV* Perl_newHVhv(pTHX_ HV* hv); PERL_CALLCONV IO* Perl_newIO(pTHX); @@ -496,10 +570,13 @@ PERL_CALLCONV OP* Perl_newPADOP(pTHX_ I32 type, I32 flags, SV* sv); PERL_CALLCONV OP* Perl_newPMOP(pTHX_ I32 type, I32 flags); PERL_CALLCONV OP* Perl_newPVOP(pTHX_ I32 type, I32 flags, char* pv); PERL_CALLCONV SV* Perl_newRV(pTHX_ SV* pref); -PERL_CALLCONV SV* Perl_newRV_noinc(pTHX_ SV *sv); +PERL_CALLCONV SV* Perl_newRV_noinc(pTHX_ SV *sv) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV SV* Perl_newSV(pTHX_ STRLEN len); -PERL_CALLCONV OP* Perl_newSVREF(pTHX_ OP* o); -PERL_CALLCONV OP* Perl_newSVOP(pTHX_ I32 type, I32 flags, SV* sv); +PERL_CALLCONV OP* Perl_newSVREF(pTHX_ OP* o) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV OP* Perl_newSVOP(pTHX_ I32 type, I32 flags, SV* sv) + __attribute__((nonnull(pTHX_ 3))); PERL_CALLCONV SV* Perl_newSViv(pTHX_ IV i); PERL_CALLCONV SV* Perl_newSVuv(pTHX_ UV u); PERL_CALLCONV SV* Perl_newSVnv(pTHX_ NV n); @@ -507,32 +584,40 @@ PERL_CALLCONV SV* Perl_newSVpv(pTHX_ const char* s, STRLEN len); PERL_CALLCONV SV* Perl_newSVpvn(pTHX_ const char* s, STRLEN len); PERL_CALLCONV SV* Perl_newSVpvn_share(pTHX_ const char* s, I32 len, U32 hash); PERL_CALLCONV SV* Perl_newSVpvf(pTHX_ const char* pat, ...) - __attribute__format__(__printf__,pTHX_1,pTHX_2); + __attribute__format__(__printf__,pTHX_1,pTHX_2); PERL_CALLCONV SV* Perl_vnewSVpvf(pTHX_ const char* pat, va_list* args); PERL_CALLCONV SV* Perl_newSVrv(pTHX_ SV* rv, const char* classname); PERL_CALLCONV SV* Perl_newSVsv(pTHX_ SV* old); PERL_CALLCONV OP* Perl_newUNOP(pTHX_ I32 type, I32 flags, OP* first); PERL_CALLCONV OP* Perl_newWHILEOP(pTHX_ I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont, I32 has_my); PERL_CALLCONV PERL_SI* Perl_new_stackinfo(pTHX_ I32 stitems, I32 cxitems); -PERL_CALLCONV char* Perl_scan_vstring(pTHX_ const char *vstr, SV *sv); -PERL_CALLCONV char* Perl_scan_version(pTHX_ const char *vstr, SV *sv, bool qv); +PERL_CALLCONV char* Perl_scan_vstring(pTHX_ const char *vstr, SV *sv) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +PERL_CALLCONV char* Perl_scan_version(pTHX_ const char *vstr, SV *sv, bool qv) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); PERL_CALLCONV SV* Perl_new_version(pTHX_ SV *ver); PERL_CALLCONV SV* Perl_upg_version(pTHX_ SV *ver); PERL_CALLCONV SV* Perl_vnumify(pTHX_ SV *vs); PERL_CALLCONV SV* Perl_vnormal(pTHX_ SV *vs); PERL_CALLCONV SV* Perl_vstringify(pTHX_ SV *vs); -PERL_CALLCONV int Perl_vcmp(pTHX_ SV *lvs, SV *rvs); +PERL_CALLCONV int Perl_vcmp(pTHX_ SV *lvs, SV *rvs) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); PERL_CALLCONV PerlIO* Perl_nextargv(pTHX_ GV* gv); -PERL_CALLCONV char* Perl_ninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend); +PERL_CALLCONV char* Perl_ninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend) + __attribute__((pure)); PERL_CALLCONV OP* Perl_oopsCV(pTHX_ OP* o) __attribute__((noreturn)); PERL_CALLCONV void Perl_op_free(pTHX_ OP* arg); PERL_CALLCONV void Perl_package(pTHX_ OP* o); PERL_CALLCONV PADOFFSET Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype); -PERL_CALLCONV PADOFFSET Perl_allocmy(pTHX_ char* name); -PERL_CALLCONV PADOFFSET Perl_pad_findmy(pTHX_ const char* name); +PERL_CALLCONV PADOFFSET Perl_allocmy(pTHX_ char* name) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV PADOFFSET Perl_pad_findmy(pTHX_ const char* name) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV PADOFFSET Perl_find_rundefsvoffset(pTHX); -PERL_CALLCONV OP* Perl_oopsAV(pTHX_ OP* o); -PERL_CALLCONV OP* Perl_oopsHV(pTHX_ OP* o); +PERL_CALLCONV OP* Perl_oopsAV(pTHX_ OP* o) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV OP* Perl_oopsHV(pTHX_ OP* o) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV void Perl_pad_leavemy(pTHX); PERL_CALLCONV SV* Perl_pad_sv(pTHX_ PADOFFSET po); PERL_CALLCONV void Perl_pad_free(pTHX_ PADOFFSET po); @@ -547,49 +632,68 @@ PERL_CALLCONV void Perl_reentrant_free(pTHX); PERL_CALLCONV void* Perl_reentrant_retry(const char*, ...); #endif PERL_CALLCONV void Perl_call_atexit(pTHX_ ATEXIT_t fn, void *ptr); -PERL_CALLCONV I32 Perl_call_argv(pTHX_ const char* sub_name, I32 flags, char** argv); -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); +PERL_CALLCONV I32 Perl_call_argv(pTHX_ const char* sub_name, I32 flags, char** argv) + __attribute__((nonnull(pTHX_ 1,pTHX_ 3))); +PERL_CALLCONV I32 Perl_call_method(pTHX_ const char* methname, I32 flags) + __attribute__((nonnull(pTHX_ 1))); +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 void Perl_despatch_signals(pTHX); -PERL_CALLCONV SV* Perl_eval_pv(pTHX_ const char* p, I32 croak_on_error); -PERL_CALLCONV I32 Perl_eval_sv(pTHX_ SV* sv, I32 flags); -PERL_CALLCONV SV* Perl_get_sv(pTHX_ const char* name, I32 create); -PERL_CALLCONV AV* Perl_get_av(pTHX_ const char* name, I32 create); +PERL_CALLCONV SV* Perl_eval_pv(pTHX_ const char* p, I32 croak_on_error) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV I32 Perl_eval_sv(pTHX_ SV* sv, I32 flags) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV SV* Perl_get_sv(pTHX_ const char* name, I32 create) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV AV* Perl_get_av(pTHX_ const char* name, I32 create) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV HV* Perl_get_hv(pTHX_ const char* name, I32 create); PERL_CALLCONV CV* Perl_get_cv(pTHX_ const char* name, I32 create); PERL_CALLCONV int Perl_init_i18nl10n(pTHX_ int printwarn); PERL_CALLCONV int Perl_init_i18nl14n(pTHX_ int printwarn); -PERL_CALLCONV void Perl_new_collate(pTHX_ char* newcoll); -PERL_CALLCONV void Perl_new_ctype(pTHX_ char* newctype); -PERL_CALLCONV void Perl_new_numeric(pTHX_ char* newcoll); +PERL_CALLCONV void Perl_new_collate(pTHX_ char* newcoll) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV void Perl_new_ctype(pTHX_ char* newctype) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV void Perl_new_numeric(pTHX_ char* newcoll) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV void Perl_set_numeric_local(pTHX); PERL_CALLCONV void Perl_set_numeric_radix(pTHX); PERL_CALLCONV void Perl_set_numeric_standard(pTHX); -PERL_CALLCONV void Perl_require_pv(pTHX_ const char* pv); +PERL_CALLCONV void Perl_require_pv(pTHX_ const char* pv) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV void Perl_pack_cat(pTHX_ SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist, SV ***next_in_list, U32 flags); PERL_CALLCONV void Perl_packlist(pTHX_ SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist); PERL_CALLCONV void Perl_pidgone(pTHX_ Pid_t pid, int status); -PERL_CALLCONV void Perl_pmflag(pTHX_ U32* pmfl, int ch); -PERL_CALLCONV OP* Perl_pmruntime(pTHX_ OP* pm, OP* expr, bool isreg); -PERL_CALLCONV OP* Perl_pmtrans(pTHX_ OP* o, OP* expr, OP* repl); +PERL_CALLCONV void Perl_pmflag(pTHX_ U32* pmfl, int ch) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV OP* Perl_pmruntime(pTHX_ OP* pm, OP* expr, bool isreg) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +PERL_CALLCONV OP* Perl_pmtrans(pTHX_ OP* o, OP* expr, OP* repl) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); PERL_CALLCONV void Perl_pop_scope(pTHX); PERL_CALLCONV OP* Perl_prepend_elem(pTHX_ I32 optype, OP* head, OP* tail); PERL_CALLCONV void Perl_push_scope(pTHX); PERL_CALLCONV OP* Perl_ref(pTHX_ OP* o, I32 type); PERL_CALLCONV OP* Perl_refkids(pTHX_ OP* o, I32 type); -PERL_CALLCONV void Perl_regdump(pTHX_ regexp* r); +PERL_CALLCONV void Perl_regdump(pTHX_ regexp* r) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV SV* Perl_regclass_swash(pTHX_ struct regnode *n, bool doinit, SV **listsvp, SV **altsvp); -PERL_CALLCONV I32 Perl_pregexec(pTHX_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave); +PERL_CALLCONV I32 Perl_pregexec(pTHX_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2,pTHX_ 3,pTHX_ 4,pTHX_ 6))); PERL_CALLCONV void Perl_pregfree(pTHX_ struct regexp* r); -PERL_CALLCONV regexp* Perl_pregcomp(pTHX_ char* exp, char* xend, PMOP* pm); +PERL_CALLCONV regexp* Perl_pregcomp(pTHX_ char* exp, char* xend, PMOP* pm) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2,pTHX_ 3))); PERL_CALLCONV char* Perl_re_intuit_start(pTHX_ regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data); PERL_CALLCONV SV* Perl_re_intuit_string(pTHX_ regexp* prog); PERL_CALLCONV I32 Perl_regexec_flags(pTHX_ regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags); PERL_CALLCONV regnode* Perl_regnext(pTHX_ regnode* p); PERL_CALLCONV void Perl_regprop(pTHX_ SV* sv, regnode* o); -PERL_CALLCONV void Perl_repeatcpy(pTHX_ char* to, const char* from, I32 len, I32 count); -PERL_CALLCONV char* Perl_rninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend); +PERL_CALLCONV void Perl_repeatcpy(pTHX_ char* to, const char* from, I32 len, I32 count) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +PERL_CALLCONV char* Perl_rninstr(pTHX_ const char* big, const char* bigend, const char* little, const char* lend) + __attribute__((pure)); PERL_CALLCONV Sighandler_t Perl_rsignal(pTHX_ int i, Sighandler_t t); PERL_CALLCONV int Perl_rsignal_restore(pTHX_ int i, Sigsave_t* t); PERL_CALLCONV int Perl_rsignal_save(pTHX_ int i, Sighandler_t t1, Sigsave_t* t2); @@ -598,7 +702,8 @@ PERL_CALLCONV void Perl_rxres_free(pTHX_ void** rsp); PERL_CALLCONV void Perl_rxres_restore(pTHX_ void** rsp, REGEXP* prx); PERL_CALLCONV void Perl_rxres_save(pTHX_ void** rsp, REGEXP* prx); #if !defined(HAS_RENAME) -PERL_CALLCONV I32 Perl_same_dirent(pTHX_ char* a, char* b); +PERL_CALLCONV I32 Perl_same_dirent(pTHX_ const char* a, const char* b) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); #endif PERL_CALLCONV char* Perl_savepv(pTHX_ const char* pv); PERL_CALLCONV char* Perl_savesharedpv(pTHX_ const char* pv); @@ -662,34 +767,50 @@ PERL_CALLCONV void Perl_setdefout(pTHX_ GV* gv); PERL_CALLCONV HEK* Perl_share_hek(pTHX_ const char* sv, I32 len, U32 hash); 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); +PERL_CALLCONV SV** Perl_stack_grow(pTHX_ SV** sp, SV**p, int n) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); PERL_CALLCONV I32 Perl_start_subparse(pTHX_ I32 is_format, U32 flags); PERL_CALLCONV void Perl_sub_crush_depth(pTHX_ CV* cv); -PERL_CALLCONV bool Perl_sv_2bool(pTHX_ SV* sv); +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); PERL_CALLCONV IO* Perl_sv_2io(pTHX_ SV* sv); /* PERL_CALLCONV IV sv_2iv(pTHX_ SV* sv); */ PERL_CALLCONV IV Perl_sv_2iv_flags(pTHX_ SV* sv, I32 flags); PERL_CALLCONV SV* Perl_sv_2mortal(pTHX_ SV* sv); PERL_CALLCONV NV Perl_sv_2nv(pTHX_ SV* sv); -/* PERL_CALLCONV char* sv_2pv(pTHX_ SV* sv, STRLEN* lp); */ -PERL_CALLCONV char* Perl_sv_2pvutf8(pTHX_ SV* sv, STRLEN* lp); -PERL_CALLCONV char* Perl_sv_2pvbyte(pTHX_ SV* sv, STRLEN* lp); -PERL_CALLCONV char* Perl_sv_pvn_nomg(pTHX_ SV* sv, STRLEN* lp); -/* PERL_CALLCONV UV sv_2uv(pTHX_ SV* sv); */ -PERL_CALLCONV UV Perl_sv_2uv_flags(pTHX_ SV* sv, I32 flags); -PERL_CALLCONV IV Perl_sv_iv(pTHX_ SV* sv); -PERL_CALLCONV UV Perl_sv_uv(pTHX_ SV* sv); -PERL_CALLCONV NV Perl_sv_nv(pTHX_ SV* sv); -PERL_CALLCONV char* Perl_sv_pvn(pTHX_ SV *sv, STRLEN *len); -PERL_CALLCONV char* Perl_sv_pvutf8n(pTHX_ SV *sv, STRLEN *len); -PERL_CALLCONV char* Perl_sv_pvbyten(pTHX_ SV *sv, STRLEN *len); +/* PERL_CALLCONV char* sv_2pv(pTHX_ SV* sv, STRLEN* lp) + __attribute__((nonnull(pTHX_ 2))); */ +PERL_CALLCONV char* Perl_sv_2pv_flags(pTHX_ SV* sv, STRLEN* lp, I32 flags) + __attribute__((nonnull(pTHX_ 2))); +PERL_CALLCONV char* Perl_sv_2pvutf8(pTHX_ SV* sv, STRLEN* lp) + __attribute__((nonnull(pTHX_ 2))); +PERL_CALLCONV char* Perl_sv_2pvbyte(pTHX_ SV* sv, STRLEN* lp) + __attribute__((nonnull(pTHX_ 2))); +PERL_CALLCONV char* Perl_sv_pvn_nomg(pTHX_ SV* sv, STRLEN* lp) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +/* PERL_CALLCONV UV sv_2uv(pTHX_ SV* sv) + __attribute__((nonnull(pTHX_ 1))); */ +PERL_CALLCONV UV Perl_sv_2uv_flags(pTHX_ SV* sv, I32 flags) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV IV Perl_sv_iv(pTHX_ SV* sv) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV UV Perl_sv_uv(pTHX_ SV* sv) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV NV Perl_sv_nv(pTHX_ SV* sv) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV char* Perl_sv_pvn(pTHX_ SV *sv, STRLEN *len) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +PERL_CALLCONV char* Perl_sv_pvutf8n(pTHX_ SV *sv, STRLEN *len) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +PERL_CALLCONV char* Perl_sv_pvbyten(pTHX_ SV *sv, STRLEN *len) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); PERL_CALLCONV I32 Perl_sv_true(pTHX_ SV *sv); PERL_CALLCONV void Perl_sv_add_arena(pTHX_ char* ptr, U32 size, U32 flags); PERL_CALLCONV int Perl_sv_backoff(pTHX_ SV* sv); 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__format__(__printf__,pTHX_2,pTHX_3); PERL_CALLCONV void Perl_sv_vcatpvf(pTHX_ SV* sv, const char* pat, va_list* args); PERL_CALLCONV void Perl_sv_catpv(pTHX_ SV* sv, const char* ptr); /* PERL_CALLCONV void sv_catpvn(pTHX_ SV* sv, const char* ptr, STRLEN len); */ @@ -703,26 +824,35 @@ PERL_CALLCONV I32 Perl_sv_cmp_locale(pTHX_ SV* sv1, SV* sv2); #if defined(USE_LOCALE_COLLATE) PERL_CALLCONV char* Perl_sv_collxfrm(pTHX_ SV* sv, STRLEN* nxp); #endif -PERL_CALLCONV OP* Perl_sv_compile_2op(pTHX_ SV* sv, OP** startp, const char* code, PAD** padp); -PERL_CALLCONV int Perl_getcwd_sv(pTHX_ SV* sv); +PERL_CALLCONV OP* Perl_sv_compile_2op(pTHX_ SV* sv, OP** startp, const char* code, PAD** padp) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2,pTHX_ 3,pTHX_ 4))); +PERL_CALLCONV int Perl_getcwd_sv(pTHX_ SV* sv) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV void Perl_sv_dec(pTHX_ SV* sv); PERL_CALLCONV void Perl_sv_dump(pTHX_ SV* sv); -PERL_CALLCONV bool Perl_sv_derived_from(pTHX_ SV* sv, const char* name); -PERL_CALLCONV I32 Perl_sv_eq(pTHX_ SV* sv1, SV* sv2); +PERL_CALLCONV bool Perl_sv_derived_from(pTHX_ SV* sv, const char* name) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +PERL_CALLCONV I32 Perl_sv_eq(pTHX_ SV* sv1, SV* sv2) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); PERL_CALLCONV void Perl_sv_free(pTHX_ SV* sv); -PERL_CALLCONV void Perl_sv_free2(pTHX_ SV* sv); +PERL_CALLCONV void Perl_sv_free2(pTHX_ SV* sv) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV void Perl_sv_free_arenas(pTHX); -PERL_CALLCONV char* Perl_sv_gets(pTHX_ SV* sv, PerlIO* fp, I32 append); -PERL_CALLCONV char* Perl_sv_grow(pTHX_ SV* sv, STRLEN newlen); +PERL_CALLCONV char* Perl_sv_gets(pTHX_ SV* sv, PerlIO* fp, I32 append) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +PERL_CALLCONV char* Perl_sv_grow(pTHX_ SV* sv, STRLEN newlen) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV void Perl_sv_inc(pTHX_ SV* sv); -PERL_CALLCONV void Perl_sv_insert(pTHX_ SV* bigsv, STRLEN offset, STRLEN len, const char* little, STRLEN littlelen); +PERL_CALLCONV void Perl_sv_insert(pTHX_ SV* bigsv, STRLEN offset, STRLEN len, const char* little, STRLEN littlelen) + __attribute__((nonnull(pTHX_ 1,pTHX_ 4))); PERL_CALLCONV int Perl_sv_isa(pTHX_ SV* sv, const char* name); 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); PERL_CALLCONV MAGIC * Perl_sv_magicext(pTHX_ SV* sv, SV* obj, int how, const MGVTBL *vtbl, const char* name, I32 namlen); -PERL_CALLCONV SV* Perl_sv_mortalcopy(pTHX_ SV* oldsv); +PERL_CALLCONV SV* Perl_sv_mortalcopy(pTHX_ SV* oldsv) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV SV* Perl_sv_newmortal(pTHX); PERL_CALLCONV SV* Perl_sv_newref(pTHX_ SV* sv); PERL_CALLCONV char* Perl_sv_peek(pTHX_ SV* sv); @@ -738,7 +868,7 @@ PERL_CALLCONV void Perl_sv_replace(pTHX_ SV* sv, SV* nsv); PERL_CALLCONV void Perl_sv_report_used(pTHX); PERL_CALLCONV void Perl_sv_reset(pTHX_ const char* s, HV* stash); 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); 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); @@ -750,7 +880,8 @@ 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 SV* Perl_sv_setref_pvn(pTHX_ SV* rv, const char* classname, char* pv, STRLEN n); PERL_CALLCONV void Perl_sv_setpv(pTHX_ SV* sv, const char* ptr); -PERL_CALLCONV void Perl_sv_setpvn(pTHX_ SV* sv, const char* ptr, STRLEN len); +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 bool Perl_sv_tainted(pTHX_ SV* sv); @@ -782,20 +913,31 @@ 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 STRLEN Perl_utf8_length(pTHX_ const U8* s, const U8 *e); -PERL_CALLCONV IV Perl_utf8_distance(pTHX_ const U8 *a, const U8 *b); -PERL_CALLCONV U8* Perl_utf8_hop(pTHX_ U8 *s, I32 off); -PERL_CALLCONV U8* Perl_utf8_to_bytes(pTHX_ U8 *s, STRLEN *len); +PERL_CALLCONV STRLEN Perl_utf8_length(pTHX_ const U8* s, const U8 *e) + __attribute__((pure)) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +PERL_CALLCONV IV Perl_utf8_distance(pTHX_ const U8 *a, const U8 *b) + __attribute__((pure)) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +PERL_CALLCONV U8* Perl_utf8_hop(pTHX_ const U8 *s, I32 off) + __attribute__((pure)) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV U8* Perl_utf8_to_bytes(pTHX_ U8 *s, STRLEN *len) + __attribute__((nonnull(pTHX_ 1,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_uvchr_to_utf8(pTHX_ U8 *d, UV uv); -PERL_CALLCONV U8* Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv); -PERL_CALLCONV U8* Perl_uvchr_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags); -PERL_CALLCONV U8* Perl_uvuni_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags); +PERL_CALLCONV U8* Perl_uvchr_to_utf8(pTHX_ U8 *d, UV uv) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV U8* Perl_uvuni_to_utf8(pTHX_ U8 *d, UV uv) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV U8* Perl_uvchr_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV U8* Perl_uvuni_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV char* Perl_pv_uni_display(pTHX_ SV *dsv, const U8 *spv, STRLEN len, STRLEN pvlim, UV flags); PERL_CALLCONV char* Perl_sv_uni_display(pTHX_ SV *dsv, SV *ssv, STRLEN pvlim, UV flags); PERL_CALLCONV void Perl_vivify_defelem(pTHX_ SV* sv); @@ -807,10 +949,10 @@ 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); 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); 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); @@ -823,9 +965,12 @@ PERL_CALLCONV int Perl_yywarn(pTHX_ const char* s); PERL_CALLCONV void Perl_dump_mstats(pTHX_ char* s); PERL_CALLCONV int Perl_get_mstats(pTHX_ perl_mstats_t *buf, int buflen, int level); #endif -PERL_CALLCONV Malloc_t Perl_safesysmalloc(MEM_SIZE nbytes); -PERL_CALLCONV Malloc_t Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size); -PERL_CALLCONV Malloc_t Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes); +PERL_CALLCONV Malloc_t Perl_safesysmalloc(MEM_SIZE nbytes) + __attribute__((malloc)) __attribute__((warn_unused_result)); +PERL_CALLCONV Malloc_t Perl_safesyscalloc(MEM_SIZE elements, MEM_SIZE size) + __attribute__((malloc)) __attribute__((warn_unused_result)); +PERL_CALLCONV Malloc_t Perl_safesysrealloc(Malloc_t where, MEM_SIZE nbytes) + __attribute__((malloc)) __attribute__((warn_unused_result)); PERL_CALLCONV Free_t Perl_safesysfree(Malloc_t where); #if defined(PERL_GLOBAL_STRUCT) PERL_CALLCONV struct perl_vars * Perl_GetVars(pTHX); @@ -835,13 +980,13 @@ 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); 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); 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); @@ -854,7 +999,7 @@ 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_dump_indent(pTHX_ I32 level, PerlIO *file, const char* pat, ...) - __attribute__format__(__printf__,pTHX_3,pTHX_4); + __attribute__format__(__printf__,pTHX_3,pTHX_4); PERL_CALLCONV void Perl_dump_vindent(pTHX_ I32 level, PerlIO *file, const char* pat, va_list *args); PERL_CALLCONV void Perl_do_gv_dump(pTHX_ I32 level, PerlIO *file, const char *name, GV *sv); PERL_CALLCONV void Perl_do_gvgv_dump(pTHX_ I32 level, PerlIO *file, const char *name, GV *sv); @@ -883,7 +1028,8 @@ PERL_CALLCONV int Perl_magic_killbackrefs(pTHX_ SV *sv, MAGIC *mg); PERL_CALLCONV OP* Perl_newANONATTRSUB(pTHX_ I32 floor, OP *proto, OP *attrs, OP *block); PERL_CALLCONV CV* Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block); PERL_CALLCONV void Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) __attribute__((noreturn)); -PERL_CALLCONV OP * Perl_my_attrs(pTHX_ OP *o, OP *attrs); +PERL_CALLCONV OP * Perl_my_attrs(pTHX_ OP *o, OP *attrs) + __attribute__((nonnull(pTHX_ 1))); 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); @@ -902,9 +1048,12 @@ PERL_CALLCONV void Perl_rvpv_dup(pTHX_ SV* dstr, SV *sstr, CLONE_PARAMS* param); PERL_CALLCONV void Perl_sys_intern_dup(pTHX_ struct interp_intern* src, struct interp_intern* dst); #endif PERL_CALLCONV PTR_TBL_t* Perl_ptr_table_new(pTHX); -PERL_CALLCONV void* Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, void *sv); -PERL_CALLCONV void Perl_ptr_table_store(pTHX_ PTR_TBL_t *tbl, void *oldsv, void *newsv); -PERL_CALLCONV void Perl_ptr_table_split(pTHX_ PTR_TBL_t *tbl); +PERL_CALLCONV void* Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, void *sv) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +PERL_CALLCONV void Perl_ptr_table_store(pTHX_ PTR_TBL_t *tbl, void *oldsv, void *newsv) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV void Perl_ptr_table_split(pTHX_ PTR_TBL_t *tbl) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV void Perl_ptr_table_clear(pTHX_ PTR_TBL_t *tbl); PERL_CALLCONV void Perl_ptr_table_free(pTHX_ PTR_TBL_t *tbl); #endif @@ -913,8 +1062,10 @@ PERL_CALLCONV void Perl_sys_intern_clear(pTHX); PERL_CALLCONV void Perl_sys_intern_init(pTHX); #endif -PERL_CALLCONV char * Perl_custom_op_name(pTHX_ const OP* op); -PERL_CALLCONV char * Perl_custom_op_desc(pTHX_ const OP* op); +PERL_CALLCONV char * Perl_custom_op_name(pTHX_ const OP* op) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV char * Perl_custom_op_desc(pTHX_ const OP* op) + __attribute__((nonnull(pTHX_ 1))); #if defined(PERL_COPY_ON_WRITE) PERL_CALLCONV int Perl_sv_release_IVX(pTHX_ SV *sv); @@ -1018,13 +1169,20 @@ STATIC SV* S_refto(pTHX_ SV* sv); #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 SV* S_mul128(pTHX_ SV *sv, U8 m); -STATIC I32 S_measure_struct(pTHX_ struct tempsym* symptr); -STATIC bool S_next_symbol(pTHX_ struct tempsym* symptr); -STATIC SV* S_is_an_int(pTHX_ const char *s, STRLEN l); -STATIC int S_div128(pTHX_ SV *pnum, bool *done); -STATIC const char * S_group_end(pTHX_ const char *pat, const char *patend, char ender); -STATIC const char * S_get_num(pTHX_ const char *ppat, I32 *lenptr); +STATIC SV* S_mul128(pTHX_ SV *sv, U8 m) + __attribute__((nonnull(pTHX_ 1))); +STATIC I32 S_measure_struct(pTHX_ struct tempsym* symptr) + __attribute__((nonnull(pTHX_ 1))); +STATIC bool S_next_symbol(pTHX_ struct tempsym* symptr) + __attribute__((nonnull(pTHX_ 1))); +STATIC SV* S_is_an_int(pTHX_ const char *s, STRLEN l) + __attribute__((nonnull(pTHX_ 1))); +STATIC int S_div128(pTHX_ SV *pnum, bool *done) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +STATIC const char * S_group_end(pTHX_ const char *pat, const char *patend, char ender) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +STATIC const char * S_get_num(pTHX_ const char *ppat, I32 *lenptr) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); #endif #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT) @@ -1034,14 +1192,16 @@ STATIC OP* S_dofindlabel(pTHX_ OP *o, const char *label, OP **opstack, OP **opli STATIC OP* S_doparseform(pTHX_ SV *sv); STATIC bool S_num_overflow(NV value, I32 fldsize, I32 frcsize); STATIC I32 S_dopoptoeval(pTHX_ I32 startingblock); -STATIC I32 S_dopoptolabel(pTHX_ const char *label); +STATIC I32 S_dopoptolabel(pTHX_ const char *label) + __attribute__((nonnull(pTHX_ 1))); STATIC I32 S_dopoptoloop(pTHX_ I32 startingblock); STATIC I32 S_dopoptosub(pTHX_ I32 startingblock); STATIC I32 S_dopoptosub_at(pTHX_ PERL_CONTEXT* cxstk, I32 startingblock); STATIC void S_save_lines(pTHX_ AV *array, SV *sv); STATIC OP* S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq); STATIC PerlIO * S_doopen_pm(pTHX_ const char *name, const char *mode); -STATIC bool S_path_is_absolute(pTHX_ const char *name); +STATIC bool S_path_is_absolute(pTHX_ const char *name) + __attribute__((nonnull(pTHX_ 1))); #endif #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT) @@ -1254,14 +1414,20 @@ STATIC NV S_mulexp10(NV value, I32 exponent); START_EXTERN_C -PERL_CALLCONV void Perl_sv_setsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags); -PERL_CALLCONV void Perl_sv_catpvn_flags(pTHX_ SV* sv, const char* ptr, STRLEN len, I32 flags); -PERL_CALLCONV void Perl_sv_catsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags); -PERL_CALLCONV STRLEN Perl_sv_utf8_upgrade_flags(pTHX_ SV *sv, I32 flags); -PERL_CALLCONV char* Perl_sv_pvn_force_flags(pTHX_ SV* sv, STRLEN* lp, I32 flags); -PERL_CALLCONV char* Perl_sv_2pv_flags(pTHX_ SV* sv, STRLEN* lp, I32 flags); -PERL_CALLCONV void Perl_sv_copypv(pTHX_ SV* dsv, SV* ssv); -PERL_CALLCONV char* Perl_my_atof2(pTHX_ const char *s, NV* value); +PERL_CALLCONV void Perl_sv_setsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV void Perl_sv_catpvn_flags(pTHX_ SV* sv, const char* ptr, STRLEN len, I32 flags) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +PERL_CALLCONV void Perl_sv_catsv_flags(pTHX_ SV* dsv, SV* ssv, I32 flags) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV STRLEN Perl_sv_utf8_upgrade_flags(pTHX_ SV *sv, I32 flags) + __attribute__((nonnull(pTHX_ 1))); +PERL_CALLCONV char* Perl_sv_pvn_force_flags(pTHX_ SV* sv, STRLEN* lp, I32 flags) + __attribute__((nonnull(pTHX_ 2))); +PERL_CALLCONV void Perl_sv_copypv(pTHX_ SV* dsv, SV* ssv) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); +PERL_CALLCONV char* Perl_my_atof2(pTHX_ const char *s, NV* value) + __attribute__((nonnull(pTHX_ 1,pTHX_ 2))); PERL_CALLCONV int Perl_my_socketpair(int family, int type, int protocol, int fd[2]); #ifdef PERL_COPY_ON_WRITE PERL_CALLCONV SV* Perl_sv_setsv_cow(pTHX_ SV* dsv, SV* ssv); @@ -1301,7 +1467,8 @@ STATIC void S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32 stack_max, I PERL_CALLCONV PADLIST* Perl_pad_new(pTHX_ int flags); PERL_CALLCONV void Perl_pad_undef(pTHX_ CV* cv); -PERL_CALLCONV PADOFFSET Perl_pad_add_name(pTHX_ const char *name, HV* typestash, HV* ourstash, bool clone); +PERL_CALLCONV PADOFFSET Perl_pad_add_name(pTHX_ const char *name, HV* typestash, HV* ourstash, bool clone) + __attribute__((nonnull(pTHX_ 1))); PERL_CALLCONV PADOFFSET Perl_pad_add_anon(pTHX_ SV* sv, OPCODE op_type); PERL_CALLCONV void Perl_pad_check_dup(pTHX_ const char* name, bool is_our, const HV* ourstash); #ifdef DEBUGGING diff --git a/regcomp.c b/regcomp.c index bc324ed..aa71b78 100644 --- a/regcomp.c +++ b/regcomp.c @@ -6105,7 +6105,7 @@ Perl_re_intuit_string(pTHX_ regexp *prog) GET_RE_DEBUG_FLAGS_DECL; DEBUG_COMPILE_r( { STRLEN n_a; - char *s = SvPV(prog->check_substr + const char *s = SvPV(prog->check_substr ? prog->check_substr : prog->check_utf8, n_a); if (!PL_colorset) reginitcolors(); diff --git a/sv.c b/sv.c index be65857..2c80f0c 100644 --- a/sv.c +++ b/sv.c @@ -10473,7 +10473,7 @@ void * Perl_ptr_table_fetch(pTHX_ PTR_TBL_t *tbl, void *sv) { PTR_TBL_ENT_t *tblent; - UV hash = PTR_TABLE_HASH(sv); + const UV hash = PTR_TABLE_HASH(sv); assert(tbl); tblent = tbl->tbl_ary[hash & tbl->tbl_max]; for (; tblent; tblent = tblent->next) { @@ -10492,7 +10492,7 @@ Perl_ptr_table_store(pTHX_ PTR_TBL_t *tbl, void *oldv, void *newv) /* XXX this may be pessimal on platforms where pointers aren't good * hash values e.g. if they grow faster in the most significant * bits */ - UV hash = PTR_TABLE_HASH(oldv); + const UV hash = PTR_TABLE_HASH(oldv); bool empty = 1; assert(tbl); @@ -10519,7 +10519,7 @@ void Perl_ptr_table_split(pTHX_ PTR_TBL_t *tbl) { PTR_TBL_ENT_t **ary = tbl->tbl_ary; - UV oldsize = tbl->tbl_max + 1; + const UV oldsize = tbl->tbl_max + 1; UV newsize = oldsize * 2; UV i; @@ -10552,7 +10552,6 @@ Perl_ptr_table_clear(pTHX_ PTR_TBL_t *tbl) { register PTR_TBL_ENT_t **array; register PTR_TBL_ENT_t *entry; - register PTR_TBL_ENT_t *oentry = Null(PTR_TBL_ENT_t*); UV riter = 0; UV max; @@ -10566,7 +10565,7 @@ Perl_ptr_table_clear(pTHX_ PTR_TBL_t *tbl) for (;;) { if (entry) { - oentry = entry; + PTR_TBL_ENT_t *oentry = entry; entry = entry->next; S_del_pte(aTHX_ oentry); } diff --git a/utf8.c b/utf8.c index 20f94df..0ac044e 100644 --- a/utf8.c +++ b/utf8.c @@ -611,7 +611,7 @@ Perl_utf8_length(pTHX_ const U8 *s, const U8 *e) return 0; } while (s < e) { - U8 t = UTF8SKIP(s); + const U8 t = UTF8SKIP(s); if (e - s < t) { if (ckWARN_d(WARN_UTF8)) { @@ -671,7 +671,7 @@ Perl_utf8_distance(pTHX_ const U8 *a, const U8 *b) } else { while (b < a) { - U8 c = UTF8SKIP(b); + const U8 c = UTF8SKIP(b); if (a - b < c) { if (ckWARN_d(WARN_UTF8)) { @@ -705,7 +705,7 @@ on the first byte of character or just after the last byte of a character. */ U8 * -Perl_utf8_hop(pTHX_ U8 *s, I32 off) +Perl_utf8_hop(pTHX_ const U8 *s, I32 off) { /* Note: cannot use UTF8_IS_...() too eagerly here since e.g * the bitops (especially ~) can create illegal UTF-8. @@ -722,7 +722,7 @@ Perl_utf8_hop(pTHX_ U8 *s, I32 off) s--; } } - return s; + return (U8 *)s; } /* diff --git a/util.c b/util.c index 9d8a0c1..5ad01e8 100644 --- a/util.c +++ b/util.c @@ -2710,7 +2710,7 @@ Perl_repeatcpy(pTHX_ register char *to, register const char *from, I32 len, regi #ifndef HAS_RENAME I32 -Perl_same_dirent(pTHX_ char *a, char *b) +Perl_same_dirent(pTHX_ const char *a, const char *b) { char *fa = strrchr(a,'/'); char *fb = strrchr(b,'/'); @@ -3682,8 +3682,7 @@ Perl_getcwd_sv(pTHX_ register SV *sv) * size from the heap if they are given a NULL buffer pointer. * The problem is that this behaviour is not portable. */ if (getcwd(buf, sizeof(buf) - 1)) { - STRLEN len = strlen(buf); - sv_setpvn(sv, buf, len); + sv_setpvn(sv, buf, strlen(buf)); return TRUE; } else { @@ -3696,8 +3695,7 @@ Perl_getcwd_sv(pTHX_ register SV *sv) Stat_t statbuf; int orig_cdev, orig_cino, cdev, cino, odev, oino, tdev, tino; - int namelen, pathlen=0; - DIR *dir; + int pathlen=0; Direntry_t *dp; (void)SvUPGRADE(sv, SVt_PV); @@ -3712,6 +3710,7 @@ Perl_getcwd_sv(pTHX_ register SV *sv) cino = orig_cino; for (;;) { + DIR *dir; odev = cdev; oino = cino; @@ -3734,9 +3733,9 @@ Perl_getcwd_sv(pTHX_ register SV *sv) while ((dp = PerlDir_read(dir)) != NULL) { #ifdef DIRNAMLEN - namelen = dp->d_namlen; + const int namelen = dp->d_namlen; #else - namelen = strlen(dp->d_name); + const int namelen = strlen(dp->d_name); #endif /* skip . and .. */ if (SV_CWD_ISDOT(dp)) { @@ -4354,7 +4353,7 @@ S_socketpair_udp (int fd[2]) { errno = ECONNABORTED; tidy_up_and_fail: { - int save_errno = errno; + const int save_errno = errno; if (sockets[0] != -1) PerlLIO_close(sockets[0]); if (sockets[1] != -1) diff --git a/xsutils.c b/xsutils.c index c37c12b..490988b 100644 --- a/xsutils.c +++ b/xsutils.c @@ -57,14 +57,14 @@ static int modify_SV_attributes(pTHX_ SV *sv, SV **retlist, SV **attrlist, int numattrs) { SV *attr; - char *name; - STRLEN len; - bool negated; int nret; for (nret = 0 ; numattrs && (attr = *attrlist++); numattrs--) { - name = SvPV(attr, len); - if ((negated = (*name == '-'))) { + STRLEN len; + const char *name = SvPV(attr, len); + const bool negated = (*name == '-'); + + if (negated) { name++; len--; }