diff options
author | David Mitchell <davem@iabyn.com> | 2015-12-30 13:09:36 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:19:20 +0000 |
commit | 6a7d52ccb6c2daf79e90e6cb93bbc5f3d516509a (patch) | |
tree | 118e85f44600a59694d1bb574f4ee4d1ac028af8 /pp_sys.c | |
parent | a73d8813ef7582a7040306de412d61e841271675 (diff) | |
download | perl-6a7d52ccb6c2daf79e90e6cb93bbc5f3d516509a.tar.gz |
convert CX_PUSHFORMAT/POPFORMAT to inline fns
Replace CX_PUSHFORMAT() with cx_pushformat() etc.
No functional changes.
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1390,7 +1390,7 @@ S_doform(pTHX_ CV *cv, GV *gv, OP *retop) cv = MUTABLE_CV(sv_2mortal(MUTABLE_SV(cv_clone(cv)))); cx = cx_pushblock(CXt_FORMAT, gimme, PL_stack_sp, PL_savestack_ix); - CX_PUSHFORMAT(cx, cv, gv, retop); + cx_pushformat(cx, cv, retop, gv); if (CvDEPTH(cv) >= 2) pad_push(CvPADLIST(cv), CvDEPTH(cv)); PAD_SET_CUR_NOSAVE(CvPADLIST(cv), CvDEPTH(cv)); @@ -1525,7 +1525,7 @@ PP(pp_leavewrite) assert(CxTYPE(cx) == CXt_FORMAT); SP = PL_stack_base + cx->blk_oldsp; /* ignore retval of formline */ CX_LEAVE_SCOPE(cx); - CX_POPFORMAT(cx); + cx_popformat(cx); cx_popblock(cx); retop = cx->blk_sub.retop; CX_POP(cx); |