GCC attributes!

diff --git a/autodoc.pl b/autodoc.pl

index 6126f9f..4c5c60f 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (executable)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- a/pod/perlapi.pod
+++ b/pod/perlapi.pod
@@ -5471,7 +5471,7 @@ WARNING: do not use the following unless you *know* C<off> is within
 the UTF-8 data pointed to by C<s> *and* that on entry C<s> 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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--;
        }
autodoc.pl		patch \| blob \| blame \| history
av.c		patch \| blob \| blame \| history
doio.c		patch \| blob \| blame \| history
doop.c		patch \| blob \| blame \| history
embed.fnc		patch \| blob \| blame \| history
embed.pl		patch \| blob \| blame \| history
op.c		patch \| blob \| blame \| history
perl.h		patch \| blob \| blame \| history
pod/perlapi.pod		patch \| blob \| blame \| history
proto.h		patch \| blob \| blame \| history
regcomp.c		patch \| blob \| blame \| history
sv.c		patch \| blob \| blame \| history
utf8.c		patch \| blob \| blame \| history
util.c		patch \| blob \| blame \| history
xsutils.c		patch \| blob \| blame \| history