diff options
| author | David Mitchell <davem@iabyn.com> | 2015-12-26 12:30:25 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:19:18 +0000 |
| commit | 274ed8ae511aa4c52d0c3e975eb44853d4f5336f (patch) | |
| tree | 77967bff39296f7b4c6519c6b7618fa3d8da5555 /cop.h | |
| parent | fb2f5dcb57b41dc6ca1183fbeb492312ff40ed58 (diff) | |
| download | perl-274ed8ae511aa4c52d0c3e975eb44853d4f5336f.tar.gz | |
PUSHEVAL: make retop a parameter
Rather than doing cx->blk_eval.retop = NULL in PUSHEVAL, then relying on
the caller to subsequently change it to something more useful, make it an
arg to PUSHEVAL.
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -747,7 +747,7 @@ struct block_eval { #define CxOLD_IN_EVAL(cx) (((cx)->blk_u16) & 0x7F) #define CxOLD_OP_TYPE(cx) (((cx)->blk_u16) >> 7) -#define PUSHEVAL(cx,n) \ +#define PUSHEVAL(cx, op, n) \ STMT_START { \ assert(!(PL_in_eval & ~0x7F)); \ assert(!(PL_op->op_type & ~0x1FF)); \ @@ -756,7 +756,7 @@ struct block_eval { cx->blk_eval.old_eval_root = PL_eval_root; \ cx->blk_eval.cur_text = PL_parser ? PL_parser->linestr : NULL; \ cx->blk_eval.cv = NULL; /* set by doeval_compile() as applicable */ \ - cx->blk_eval.retop = NULL; \ + cx->blk_eval.retop = op; \ cx->blk_eval.cur_top_env = PL_top_env; \ } STMT_END |