Silence a couple of compile warnings.

p4raw-id: //depot/perl@30372

diff --git a/regcomp.c b/regcomp.c
index b42cbbd..3fe99c9 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -8001,6 +8001,7 @@ S_reginsert(pTHX_ RExC_state_t *pRExC_state, U8 op, regnode *opnd, U32 depth)
     register regnode *place;
     const int offset = regarglen[(U8)op];
     const int size = NODE_STEP_REGNODE + offset;
+    PERL_UNUSED_ARG(depth);
     GET_RE_DEBUG_FLAGS_DECL;
 /* (PL_regkind[(U8)op] == CURLY ? EXTRA_STEP_2ARGS : 0); */
     DEBUG_PARSE_FMT("inst"," - %s",reg_name[op]);

diff --git a/regexec.c b/regexec.c
index 8c3365a..3c3c01f 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -5169,6 +5169,9 @@ S_regrepeat(pTHX_ const regexp *prog, const regnode *p, I32 max, int depth)
     register char *loceol = PL_regeol;
     register I32 hardcount = 0;
     register bool do_utf8 = PL_reg_match_utf8;
+#ifndef DEBUGGING
+    PERL_UNUSED_ARG(depth);
+#endif
 
     scan = PL_reginput;
     if (max == REG_INFTY)