From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 13 Jul 2006 14:04:18 +0000 (+0000)
Subject: Clear up a few more warnings from blead.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6148ee2554e208993e4b3b3dea9cb9e0cc61fdf0;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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
--- 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
--- 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(