diff options
| author | David Mitchell <davem@iabyn.com> | 2015-12-24 21:48:23 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:18:37 +0000 |
| commit | 42b5eca038b6d3e4e05a1ec14af44641f12b87f0 (patch) | |
| tree | 6efa1a304c481e7b0054ca5fccb4f3f19414380e /pp_ctl.c | |
| parent | dc7f00ca0320049fbdbe13c328d09f8bf980b6d3 (diff) | |
| download | perl-42b5eca038b6d3e4e05a1ec14af44641f12b87f0.tar.gz | |
S_unwind_loop(): remove opname param
This is only used for error messages, and can be derived from
OP_NAME(PL_op); so for efficiency, don't pass it.
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -2473,18 +2473,18 @@ PP(pp_return) } } -/* find the enclosing loop or labelled loop and dounwind() back to it. - * opname is for errors */ +/* find the enclosing loop or labelled loop and dounwind() back to it. */ PERL_CONTEXT * -S_unwind_loop(pTHX_ const char * const opname) +S_unwind_loop(pTHX) { I32 cxix; if (PL_op->op_flags & OPf_SPECIAL) { cxix = dopoptoloop(cxstack_ix); if (cxix < 0) /* diag_listed_as: Can't "last" outside a loop block */ - Perl_croak(aTHX_ "Can't \"%s\" outside a loop block", opname); + Perl_croak(aTHX_ "Can't \"%s\" outside a loop block", + OP_NAME(PL_op)); } else { dSP; @@ -2502,7 +2502,7 @@ S_unwind_loop(pTHX_ const char * const opname) if (cxix < 0) /* diag_listed_as: Label not found for "last %s" */ Perl_croak(aTHX_ "Label not found for \"%s %"SVf"\"", - opname, + OP_NAME(PL_op), SVfARG(PL_op->op_flags & OPf_STACKED && !SvGMAGICAL(TOPp1s) ? TOPp1s @@ -2521,7 +2521,7 @@ PP(pp_last) PERL_CONTEXT *cx; OP* nextop; - cx = S_unwind_loop(aTHX_ "last"); + cx = S_unwind_loop(aTHX); assert(CxTYPE_is_LOOP(cx)); PL_stack_sp = PL_stack_base @@ -2546,7 +2546,7 @@ PP(pp_next) { PERL_CONTEXT *cx; - cx = S_unwind_loop(aTHX_ "next"); + cx = S_unwind_loop(aTHX); TOPBLOCK(cx); PL_curcop = cx->blk_oldcop; @@ -2556,7 +2556,7 @@ PP(pp_next) PP(pp_redo) { - PERL_CONTEXT *cx = S_unwind_loop(aTHX_ "redo"); + PERL_CONTEXT *cx = S_unwind_loop(aTHX); OP* redo_op = cx->blk_loop.my_op->op_redoop; if (redo_op->op_type == OP_ENTER) { |