diff options
author | David Mitchell <davem@iabyn.com> | 2015-12-30 11:46:22 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:19:19 +0000 |
commit | ed8ff0f310e9159df865ecc2e1d316816e8cc11e (patch) | |
tree | d33dd28d8a6105f5eb425782a96960c4ad14bfc6 /pp_sys.c | |
parent | 56e049cab541dc6047fb5dc83d9073b2034de541 (diff) | |
download | perl-ed8ff0f310e9159df865ecc2e1d316816e8cc11e.tar.gz |
convert CX_PUSH/POP/TOPBLOCK to inline fns
Replace CX_PUSHBLOCK() with cx_pushblock() etc.
No functional changes.
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1389,7 +1389,7 @@ S_doform(pTHX_ CV *cv, GV *gv, OP *retop) if (CvCLONE(cv)) cv = MUTABLE_CV(sv_2mortal(MUTABLE_SV(cv_clone(cv)))); - CX_PUSHBLOCK(cx, CXt_FORMAT, gimme, PL_stack_sp, PL_savestack_ix); + cx = cx_pushblock(CXt_FORMAT, gimme, PL_stack_sp, PL_savestack_ix); CX_PUSHFORMAT(cx, cv, gv, retop); if (CvDEPTH(cv) >= 2) pad_push(CvPADLIST(cv), CvDEPTH(cv)); @@ -1526,7 +1526,7 @@ PP(pp_leavewrite) SP = PL_stack_base + cx->blk_oldsp; /* ignore retval of formline */ CX_LEAVE_SCOPE(cx); CX_POPFORMAT(cx); - CX_POPBLOCK(cx); + cx_popblock(cx); retop = cx->blk_sub.retop; CX_POP(cx); |