diff options
| author | Andy Lester <andy@petdance.com> | 2005-06-22 04:41:00 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-23 08:39:44 +0000 |
| commit | 1b6737cc10a847650f574c35f419cbd680a5a5ef (patch) | |
| tree | b96d16d5faf3db00f9c9488a814c8a8d6a217387 /pp_ctl.c | |
| parent | 89e33a0587050e7ef2e88ba45c87444d8506f821 (diff) | |
| download | perl-1b6737cc10a847650f574c35f419cbd680a5a5ef.tar.gz | |
Const Boy II: The Localizing
Message-ID: <20050622144059.GA19598@petdance.com>
p4raw-id: //depot/perl@24945
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -1374,6 +1374,7 @@ Perl_dounwind(pTHX_ I32 cxix) } cxstack_ix--; } + PERL_UNUSED_VAR(optype); } void @@ -2068,6 +2069,7 @@ PP(pp_last) dounwind(cxix); POPBLOCK(cx,newpm); + PERL_UNUSED_VAR(optype); cxstack_ix++; /* temporarily protect top context */ mark = newsp; switch (CxTYPE(cx)) { @@ -2380,6 +2382,9 @@ PP(pp_goto) PUSHMARK(mark); PUTBACK; (void)(*CvXSUB(cv))(aTHX_ cv); + /* Put these at the bottom since the vars are set but not used */ + PERL_UNUSED_VAR(newsp); + PERL_UNUSED_VAR(gimme); } LEAVE; return retop; @@ -2857,7 +2862,7 @@ Perl_find_runcv(pTHX_ U32 *db_seqp) for (ix = si->si_cxix; ix >= 0; ix--) { const PERL_CONTEXT *cx = &(si->si_cxstack[ix]); if (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT) { - CV *cv = cx->blk_sub.cv; + CV * const cv = cx->blk_sub.cv; /* skip DB:: code */ if (db_seqp && PL_debstash && CvSTASH(cv) == PL_debstash) { *db_seqp = cx->blk_oldcop->cop_seq; |