diff options
author | David Mitchell <davem@iabyn.com> | 2015-12-30 14:18:05 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:19:20 +0000 |
commit | d1b6bf721ad0fafb5a1632854990581d1c7c00d6 (patch) | |
tree | 6ad37972647230373c3bbbc7bae0299eaf7d6614 /pp_ctl.c | |
parent | 13febba5a2bae013e49242ccd6e373d7e12d0c78 (diff) | |
download | perl-d1b6bf721ad0fafb5a1632854990581d1c7c00d6.tar.gz |
convert CX_PUSHLOOP*/POPLOOP to inline fns
Replace CX_PUSHLOOP_FOR() with cx_pushfloop_for() etc.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1541,7 +1541,7 @@ Perl_dounwind(pTHX_ I32 cxix) case CXt_LOOP_LAZYSV: case CXt_LOOP_LIST: case CXt_LOOP_ARY: - CX_POPLOOP(cx); + cx_poploop(cx); break; case CXt_WHEN: CX_POPWHEN(cx); @@ -2142,7 +2142,7 @@ PP(pp_enteriter) * freeing or undoing, in case we die in the meantime. And vice-versa. */ cx = cx_pushblock(cxflags, gimme, MARK, PL_savestack_ix); - CX_PUSHLOOP_FOR(cx, itervarp, itersave); + cx_pushloop_for(cx, itervarp, itersave); if (PL_op->op_flags & OPf_STACKED) { /* OPf_STACKED implies either a single array: for(@), with a @@ -2217,7 +2217,7 @@ PP(pp_enterloop) const I32 gimme = GIMME_V; cx = cx_pushblock(CXt_LOOP_PLAIN, gimme, SP, PL_savestack_ix); - CX_PUSHLOOP_PLAIN(cx); + cx_pushloop_plain(cx); RETURN; } @@ -2244,7 +2244,7 @@ PP(pp_leaveloop) PL_op->op_private & OPpLVALUE ? 3 : 1); CX_LEAVE_SCOPE(cx); - CX_POPLOOP(cx); /* Stack values are safe: release loop vars ... */ + cx_poploop(cx); /* Stack values are safe: release loop vars ... */ cx_popblock(cx); CX_POP(cx); @@ -2533,7 +2533,7 @@ PP(pp_last) /* Stack values are safe: */ CX_LEAVE_SCOPE(cx); - CX_POPLOOP(cx); /* release loop vars ... */ + cx_poploop(cx); /* release loop vars ... */ cx_popblock(cx); nextop = cx->blk_loop.my_op->op_lastop->op_next; CX_POP(cx); |