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 /cop.h | |
| 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 'cop.h')
| -rw-r--r-- | cop.h | 27 |
1 files changed, 0 insertions, 27 deletions
@@ -606,17 +606,6 @@ struct block_format { ? 0 : (U8)func(aTHX) \ ) -#define CX_PUSHFORMAT(cx, cv, gv, retop) \ - cx->blk_format.cv = cv; \ - cx->blk_format.gv = gv; \ - cx->blk_format.retop = (retop); \ - cx->blk_format.dfoutgv = PL_defoutgv; \ - cx->blk_format.prevcomppad = PL_comppad; \ - cx->blk_u16 = 0; \ - SvREFCNT_inc_simple_void_NN(cv); \ - CvDEPTH(cv)++; \ - SvREFCNT_inc_void(cx->blk_format.dfoutgv) - /* Restore old @_ */ #define CX_POP_SAVEARRAY(cx) \ STMT_START { \ @@ -636,22 +625,6 @@ struct block_format { } STMT_END -#define CX_POPFORMAT(cx) \ - STMT_START { \ - CV *cv; \ - GV * const dfout = cx->blk_format.dfoutgv; \ - assert(CxTYPE(cx) == CXt_FORMAT); \ - setdefout(dfout); \ - cx->blk_format.dfoutgv = NULL; \ - SvREFCNT_dec_NN(dfout); /* the cx->defoutgv ref */ \ - PL_comppad = cx->blk_format.prevcomppad; \ - PL_curpad = LIKELY(PL_comppad) ? AvARRAY(PL_comppad) : NULL; \ - cv = cx->blk_format.cv; \ - cx->blk_format.cv = NULL;; \ - --CvDEPTH(cv); \ - SvREFCNT_dec_NN(cv); \ - } STMT_END - /* eval context */ struct block_eval { OP * retop; /* op to execute on exit from eval */ |