diff options
author | David Mitchell <davem@iabyn.com> | 2015-10-21 09:28:52 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:18:31 +0000 |
commit | 4ebe6e957149a0288810b6241653721d805397aa (patch) | |
tree | ed141b6705ef0a1c15337babf3bdce722b665105 /perl.c | |
parent | 77189b8c243837b664cb444e867999e67e87ca44 (diff) | |
download | perl-4ebe6e957149a0288810b6241653721d805397aa.tar.gz |
add CX_CUR() macro
This is simply
#define CX_CUR() (&cxstack[cxstack_ix])
Diffstat (limited to 'perl.c')
-rw-r--r-- | perl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2824,7 +2824,7 @@ Perl_call_sv(pTHX_ SV *sv, VOL I32 flags) * may or may not have already been popped */ if (cxstack_ix > old_cxix) { assert(cxstack_ix == old_cxix + 1); - assert(CxTYPE(&cxstack[cxstack_ix]) == CXt_EVAL); + assert(CxTYPE(CX_CUR()) == CXt_EVAL); delete_eval_scope(); } JMPENV_POP; |