-Wall cleanup continues.

p4raw-id: //depot/perl@10392

1 files changed, 8 insertions, 2 deletions

diff --git a/regcomp.c b/regcomp.c
index 7a713aef8f..cb2bce0a3f 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -4175,10 +4175,11 @@ S_regcurly(pTHX_ register char *s)
 }
 
 
+#ifdef DEBUGGING
+
 STATIC regnode *
 S_dumpuntil(pTHX_ regnode *start, regnode *node, regnode *last, SV* sv, I32 l)
 {
-#ifdef DEBUGGING
     register U8 op = EXACT;	/* Arbitrary non-END op. */
     register regnode *next;
 
@@ -4244,10 +4245,11 @@ S_dumpuntil(pTHX_ regnode *start, regnode *node, regnode *last, SV* sv, I32 l)
 	else if (op == WHILEM)
 	    l--;
     }
-#endif	/* DEBUGGING */
     return node;
 }
 
+#endif	/* DEBUGGING */
+
 /*
  - regdump - dump a regexp onto Perl_debug_log in vaguely comprehensible form
  */
@@ -4328,6 +4330,8 @@ Perl_regdump(pTHX_ regexp *r)
 #endif	/* DEBUGGING */
 }
 
+#ifdef DEBUGGING
+
 STATIC void
 S_put_byte(pTHX_ SV *sv, int c)
 {
@@ -4339,6 +4343,8 @@ S_put_byte(pTHX_ SV *sv, int c)
 	Perl_sv_catpvf(aTHX_ sv, "%c", c);
 }
 
+#endif	/* DEBUGGING */
+
 /*
 - regprop - printable representation of opcode
 */