diff options
| author | Andy Lester <andy@petdance.com> | 2006-02-20 18:27:11 -0600 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-02-24 10:41:53 +0000 |
| commit | 96a5add60f1f39d38341c09c11f0542e68f782b0 (patch) | |
| tree | 13f30a43f69671f51be60eec2b59f84e6d4679ca /regcomp.c | |
| parent | 1e7f542f0732947deb78e87eb5c42a3ee9fa9418 (diff) | |
| download | perl-96a5add60f1f39d38341c09c11f0542e68f782b0.tar.gz | |
unused context warnings
Message-ID: <20060221062711.GA16160@petdance.com>
p4raw-id: //depot/perl@27300
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -5758,6 +5758,7 @@ Perl_regdump(pTHX_ regexp *r) }); } #else + PERL_UNUSED_CONTEXT; PERL_UNUSED_ARG(r); #endif /* DEBUGGING */ } @@ -5963,6 +5964,7 @@ Perl_regprop(pTHX_ SV *sv, const regnode *o) else if (k == BRANCHJ && (OP(o) == UNLESSM || OP(o) == IFMATCH)) Perl_sv_catpvf(aTHX_ sv, "[-%d]", o->flags); #else + PERL_UNUSED_CONTEXT; PERL_UNUSED_ARG(sv); PERL_UNUSED_ARG(o); #endif /* DEBUGGING */ @@ -5973,6 +5975,8 @@ Perl_re_intuit_string(pTHX_ regexp *prog) { /* Assume that RE_INTUIT is set */ dVAR; GET_RE_DEBUG_FLAGS_DECL; + PERL_UNUSED_CONTEXT; + DEBUG_COMPILE_r( { const char * const s = SvPV_nolen_const(prog->check_substr |