diff options
| author | David Mitchell <davem@iabyn.com> | 2015-12-26 11:39:30 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-02-03 09:19:18 +0000 |
| commit | fd9b7244731b18bb1794c4ff6540e4040e51879b (patch) | |
| tree | cafd34f6763a5bbb13041545bfaa905b62363fc8 /cop.h | |
| parent | 47878d9caf766872f9956edf713aa65c5b6383aa (diff) | |
| download | perl-fd9b7244731b18bb1794c4ff6540e4040e51879b.tar.gz | |
PUSHBLOCK: don't use implicit args
Make gimme a parameter of PUSHBLOCK() rather than just assuming that
there's a 'gimme' var in scope.
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -961,7 +961,7 @@ struct block { __FILE__, __LINE__)); /* Enter a block. */ -#define PUSHBLOCK(cx,t,sp, saveix) \ +#define PUSHBLOCK(cx, t, gimme, sp, saveix) \ CXINC, \ cx = CX_CUR(), \ cx->cx_type = t, \ @@ -1343,8 +1343,8 @@ See L<perlcall/LIGHTWEIGHT CALLBACKS>. multicall_oldcatch = CATCH_GET; \ CATCH_SET(TRUE); \ PUSHSTACKi(PERLSI_MULTICALL); \ - PUSHBLOCK(cx, (CXt_SUB|CXp_MULTICALL|flags), PL_stack_sp, \ - PL_savestack_ix); \ + PUSHBLOCK(cx, (CXt_SUB|CXp_MULTICALL|flags), gimme, \ + PL_stack_sp, PL_savestack_ix); \ PUSHSUB(cx); \ SAVEOP(); \ saveix_floor = PL_savestack_ix; \ |