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 /op.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 'op.c')
| -rw-r--r-- | op.c | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -485,6 +485,7 @@ void Perl_op_refcnt_lock(pTHX) { dVAR; + PERL_UNUSED_CONTEXT; OP_REFCNT_LOCK; } @@ -492,6 +493,7 @@ void Perl_op_refcnt_unlock(pTHX) { dVAR; + PERL_UNUSED_CONTEXT; OP_REFCNT_UNLOCK; } @@ -1792,6 +1794,7 @@ Perl_my(pTHX_ OP *o) OP * Perl_sawparens(pTHX_ OP *o) { + PERL_UNUSED_CONTEXT; if (o) o->op_flags |= OPf_PARENS; return o; @@ -4296,7 +4299,7 @@ Perl_cv_undef(pTHX_ CV *cv) CvCONST_off(cv); } if (CvISXSUB(cv) && CvXSUB(cv)) { - CvXSUB(cv) = 0; + CvXSUB(cv) = NULL; } /* delete all flags except WEAKOUTSIDE */ CvFLAGS(cv) &= CVf_WEAKOUTSIDE; @@ -4346,6 +4349,7 @@ L<perlsub/"Constant Functions">. SV * Perl_cv_const_sv(pTHX_ CV *cv) { + PERL_UNUSED_CONTEXT; if (!cv) return NULL; if (!(SvTYPE(cv) == SVt_PVCV || SvTYPE(cv) == SVt_PVFM)) @@ -5205,6 +5209,7 @@ OP * Perl_ck_concat(pTHX_ OP *o) { const OP * const kid = cUNOPo->op_first; + PERL_UNUSED_CONTEXT; if (kid->op_type == OP_CONCAT && !(kid->op_private & OPpTARGET_MY) && !(kUNOP->op_first->op_flags & OPf_MOD)) o->op_flags |= OPf_STACKED; @@ -6125,6 +6130,7 @@ Perl_ck_method(pTHX_ OP *o) OP * Perl_ck_null(pTHX_ OP *o) { + PERL_UNUSED_CONTEXT; return o; } @@ -6759,6 +6765,7 @@ Perl_ck_subr(pTHX_ OP *o) OP * Perl_ck_svconst(pTHX_ OP *o) { + PERL_UNUSED_CONTEXT; SvREADONLY_on(cSVOPo->op_sv); return o; } |