diff options
-rw-r--r-- | op.c | 2 | ||||
-rw-r--r-- | perl.c | 2 | ||||
-rw-r--r-- | reentr.c | 2 | ||||
-rw-r--r-- | reentr.pl | 2 | ||||
-rw-r--r-- | regexec.c | 4 |
5 files changed, 10 insertions, 2 deletions
@@ -2118,7 +2118,7 @@ Perl_fold_constants(pTHX_ register OP *o) dVAR; register OP *curop; OP *newop; - I32 type = o->op_type; + volatile I32 type = o->op_type; SV *sv = NULL; int ret = 0; I32 oldscope; @@ -5071,7 +5071,7 @@ S_incpush(pTHX_ const char *dir, bool addsubdirs, bool addoldvers, bool usesep, if (addoldvers) { for (incver = incverlist; *incver; incver++) { /* .../xxx if -d .../xxx */ - Perl_sv_setpvf(aTHX_ subdir, "%"SVf PERL_ARCH_FMT, libdir, *incver); + Perl_sv_setpvf(aTHX_ subdir, "%"SVf PERL_ARCH_FMT, (void *)libdir, *incver); subdir = S_incpush_if_exists(aTHX_ subdir); } } @@ -533,6 +533,8 @@ Perl_reentrant_retry(const char *f, ...) } va_end(ap); +#else + PERL_UNUSED_ARG(f); #endif return retptr; } @@ -1051,6 +1051,8 @@ Perl_reentrant_retry(const char *f, ...) } va_end(ap); +#else + PERL_UNUSED_ARG(f); #endif return retptr; } @@ -1346,7 +1346,9 @@ S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s, reg_trie_data *trie=aho->trie; const char *last_start = strend - trie->minlen; +#ifdef DEBUGGING const char *real_start = s; +#endif STRLEN maxlen = trie->maxlen; SV *sv_points; U8 **points; /* map of where we were in the input string @@ -1409,7 +1411,9 @@ S_find_byclass(pTHX_ regexp * prog, const regnode *c, char *s, uc += len; do { +#ifdef DEBUGGING U32 word = aho->states[ state ].wordnum; +#endif base = aho->states[ state ].trans.base; DEBUG_TRIE_EXECUTE_r( |