Change 28565: Clear up a few more warnings from blead.

[Steve Peters]

Change 28565 by [EMAIL PROTECTED] on 2006/07/13 14:04:18

        Clear up a few more warnings from blead.

Affected files ...

... //depot/perl/op.c#834 edit
... //depot/perl/perl.c#763 edit
... //depot/perl/reentr.c#27 edit
... //depot/perl/reentr.pl#43 edit
... //depot/perl/regexec.c#440 edit

Differences ...

==== //depot/perl/op.c#834 (text) ====
Index: perl/op.c
--- perl/op.c#833~28499~        2006-07-07 02:50:35.000000000 -0700
+++ perl/op.c   2006-07-13 07:04:18.000000000 -0700
@@ -2118,7 +2118,7 @@
     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;

==== //depot/perl/perl.c#763 (text) ====
Index: perl/perl.c
--- perl/perl.c#762~28457~      2006-06-30 06:09:40.000000000 -0700
+++ perl/perl.c 2006-07-13 07:04:18.000000000 -0700
@@ -5071,7 +5071,7 @@
            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);
                }
            }

==== //depot/perl/reentr.c#27 (text+w) ====
Index: perl/reentr.c
--- perl/reentr.c#26~28490~     2006-07-06 02:01:16.000000000 -0700
+++ perl/reentr.c       2006-07-13 07:04:18.000000000 -0700
@@ -533,6 +533,8 @@
     }
 
     va_end(ap);
+#else
+    PERL_UNUSED_ARG(f);
 #endif
     return retptr;
 }

==== //depot/perl/reentr.pl#43 (text) ====
Index: perl/reentr.pl
--- perl/reentr.pl#42~26572~    2006-01-02 06:43:37.000000000 -0800
+++ perl/reentr.pl      2006-07-13 07:04:18.000000000 -0700
@@ -1051,6 +1051,8 @@
     }
 
     va_end(ap);
+#else
+    PERL_UNUSED_ARG(f);
 #endif
     return retptr;
 }

==== //depot/perl/regexec.c#440 (text) ====
Index: perl/regexec.c
--- perl/regexec.c#439~28512~   2006-07-08 11:08:07.000000000 -0700
+++ perl/regexec.c      2006-07-13 07:04:18.000000000 -0700
@@ -1346,7 +1346,9 @@
                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 @@
                         uc += len;
 
                         do {
+#ifdef DEBUGGING
                             U32 word = aho->states[ state ].wordnum;
+#endif
                             base = aho->states[ state ].trans.base;
 
                             DEBUG_TRIE_EXECUTE_r(
End of Patch.