diff options
| author | David Mitchell <davem@iabyn.com> | 2015-12-30 14:33:51 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:19:20 +0000 |
| commit | 2a7b7c61f9476ae461c8590ca7e251e214462420 (patch) | |
| tree | f780393403401d32bbddc422632f6327593ec170 /pp_ctl.c | |
| parent | d1b6bf721ad0fafb5a1632854990581d1c7c00d6 (diff) | |
| download | perl-2a7b7c61f9476ae461c8590ca7e251e214462420.tar.gz | |
convert CX_{PUSH|POP}{WHEN|GIVEN} to inline fns
Replace CX_PUSHGIVEN() with cx_pushgiven() etc.
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -1544,10 +1544,10 @@ Perl_dounwind(pTHX_ I32 cxix) cx_poploop(cx); break; case CXt_WHEN: - CX_POPWHEN(cx); + cx_popwhen(cx); break; case CXt_GIVEN: - CX_POPGIVEN(cx); + cx_popgiven(cx); break; case CXt_BLOCK: case CXt_NULL: @@ -4349,7 +4349,7 @@ PP(pp_entergiven) GvSV(PL_defgv) = SvREFCNT_inc(newsv); cx = cx_pushblock(CXt_GIVEN, gimme, SP, PL_savestack_ix); - CX_PUSHGIVEN(cx, origsv); + cx_pushgiven(cx, origsv); RETURN; } @@ -4372,7 +4372,7 @@ PP(pp_leavegiven) leave_adjust_stacks(oldsp, oldsp, gimme, 1); CX_LEAVE_SCOPE(cx); - CX_POPGIVEN(cx); + cx_popgiven(cx); cx_popblock(cx); CX_POP(cx); @@ -4929,7 +4929,7 @@ PP(pp_enterwhen) RETURNOP(cLOGOP->op_other->op_next); cx = cx_pushblock(CXt_WHEN, gimme, SP, PL_savestack_ix); - CX_PUSHWHEN(cx); + cx_pushwhen(cx); RETURN; } @@ -4995,7 +4995,7 @@ PP(pp_continue) assert(CxTYPE(cx) == CXt_WHEN); PL_stack_sp = PL_stack_base + cx->blk_oldsp; CX_LEAVE_SCOPE(cx); - CX_POPWHEN(cx); + cx_popwhen(cx); cx_popblock(cx); nextop = cx->blk_givwhen.leave_op->op_next; CX_POP(cx); |