summaryrefslogtreecommitdiff
path: root/cop.h
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2015-12-30 14:33:51 +0000
committerDavid Mitchell <davem@iabyn.com>2016-02-03 09:19:20 +0000
commit2a7b7c61f9476ae461c8590ca7e251e214462420 (patch)
treef780393403401d32bbddc422632f6327593ec170 /cop.h
parentd1b6bf721ad0fafb5a1632854990581d1c7c00d6 (diff)
downloadperl-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.h20
1 files changed, 0 insertions, 20 deletions
diff --git a/cop.h b/cop.h
index d346d87fc7..b62e84c136 100644
--- a/cop.h
+++ b/cop.h
@@ -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 */