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 /cop.h | |
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 'cop.h')
-rw-r--r-- | cop.h | 20 |
1 files changed, 0 insertions, 20 deletions
@@ -707,26 +707,6 @@ struct block_givwhen { SV *defsv_save; /* the original $_ */ }; -#define CX_PUSHWHEN(cx) \ - cx->blk_givwhen.leave_op = cLOGOP->op_other; - -#define CX_PUSHGIVEN(cx, orig_var) \ - CX_PUSHWHEN(cx); \ - cx->blk_givwhen.defsv_save = orig_var; - -#define CX_POPWHEN(cx) \ - assert(CxTYPE(cx) == CXt_WHEN); \ - NOOP; - -#define CX_POPGIVEN(cx) \ - STMT_START { \ - SV *sv = GvSV(PL_defgv); \ - assert(CxTYPE(cx) == CXt_GIVEN); \ - GvSV(PL_defgv) = cx->blk_givwhen.defsv_save; \ - cx->blk_givwhen.defsv_save = NULL; \ - SvREFCNT_dec(sv); \ - } STMT_END - /* context common to subroutines, evals and loops */ |