From: Steve Peters <steve@fisharerojo.org>
Date: Tue, 20 Feb 2007 13:24:38 +0000 (+0000)
Subject: Silence a couple of compile warnings.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4f55667c12ebe5fc04eddfc4074d7d78730cc30e;p=p5sagit%2Fp5-mst-13.2.git

Silence a couple of compile warnings.

p4raw-id: //depot/perl@30372
---

diff --git a/regcomp.c b/regcomp.c
index b42cbbd..3fe99c9 100644
--- 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
--- 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)