diff options
-rw-r--r-- | doio.c | 2 | ||||
-rw-r--r-- | op.c | 14 | ||||
-rw-r--r-- | pad.c | 2 | ||||
-rw-r--r-- | util.c | 2 |
4 files changed, 10 insertions, 10 deletions
@@ -1943,7 +1943,7 @@ Perl_cando(pTHX_ Mode_t mode, bool effective, register const Stat_t *statbufp) } #endif /* ! VMS */ -bool +static bool S_ingroup(pTHX_ Gid_t testgid, bool effective) { #ifdef MACOS_TRADITIONAL @@ -785,7 +785,7 @@ Perl_op_refcnt_unlock(pTHX) #define LINKLIST(o) ((o)->op_next ? (o)->op_next : linklist((OP*)o)) -OP * +static OP * S_linklist(pTHX_ OP *o) { OP *first; @@ -817,7 +817,7 @@ S_linklist(pTHX_ OP *o) return o->op_next; } -OP * +static OP * S_scalarkids(pTHX_ OP *o) { if (o && o->op_flags & OPf_KIDS) { @@ -1207,7 +1207,7 @@ Perl_scalarvoid(pTHX_ OP *o) return o; } -OP * +static OP * S_listkids(pTHX_ OP *o) { if (o && o->op_flags & OPf_KIDS) { @@ -1296,7 +1296,7 @@ Perl_list(pTHX_ OP *o) return o; } -OP * +static OP * S_scalarseq(pTHX_ OP *o) { dVAR; @@ -2430,7 +2430,7 @@ Perl_jmaybe(pTHX_ OP *o) return o; } -OP * +static OP * S_fold_constants(pTHX_ register OP *o) { dVAR; @@ -2571,7 +2571,7 @@ S_fold_constants(pTHX_ register OP *o) return o; } -OP * +static OP * S_gen_constant_list(pTHX_ register OP *o) { dVAR; @@ -2985,7 +2985,7 @@ Perl_newNULLLIST(pTHX) return newOP(OP_STUB, 0); } -OP * +static OP * S_force_list(pTHX_ OP *o) { if (!o || o->op_type != OP_LIST) @@ -1150,7 +1150,7 @@ Mark all the current temporaries for reuse * to a shared TARG. Such an alias will change randomly and unpredictably. * We avoid doing this until we can think of a Better Way. * GSAR 97-10-29 */ -void +static void S_pad_reset(pTHX) { dVAR; @@ -1362,7 +1362,7 @@ S_vdie_croak_common(pTHX_ const char* pat, va_list* args, STRLEN* msglen, return message; } -OP * +static OP * S_vdie(pTHX_ const char* pat, va_list *args) { dVAR; |