Clear up a few more warnings from blead.

p4raw-id: //depot/perl@28565

diff --git a/op.c b/op.c
index ad110e1..36aaf4b 100644 (file)
--- a/op.c
+++ b/op.c
@@ -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;

diff --git a/perl.c b/perl.c
index 554a3c0..be381b9 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -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);
                }
            }

diff --git a/reentr.c b/reentr.c
index 4dcaf80..9be6f7f 100644 (file)
--- a/reentr.c
+++ b/reentr.c
@@ -533,6 +533,8 @@ Perl_reentrant_retry(const char *f, ...)
     }
 
     va_end(ap);
+#else
+    PERL_UNUSED_ARG(f);
 #endif
     return retptr;
 }

diff --git a/reentr.pl b/reentr.pl
index 58a574e..13cf4d1 100644 (file)
--- a/reentr.pl
+++ b/reentr.pl
@@ -1051,6 +1051,8 @@ Perl_reentrant_retry(const char *f, ...)
     }
 
     va_end(ap);
+#else
+    PERL_UNUSED_ARG(f);
 #endif
     return retptr;
 }

diff --git a/regexec.c b/regexec.c
index edf9bc9..a13449f 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -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(