From 006bba40b64d69fcc85f3e7a0fe4b845e93164c0 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Fri, 1 Sep 2006 15:05:10 +0000 Subject: Access cx->blk_sub.hasargs via a pair of macros (as it's about to move) p4raw-id: //depot/perl@28772 --- sv.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'sv.c') diff --git a/sv.c b/sv.c index 32939d288a..56d292e577 100644 --- a/sv.c +++ b/sv.c @@ -10286,12 +10286,12 @@ Perl_cx_dup(pTHX_ PERL_CONTEXT *cxs, I32 ix, I32 max, CLONE_PARAMS* param) ncx->blk_sub.cv = (cx->blk_sub.olddepth == 0 ? cv_dup_inc(cx->blk_sub.cv, param) : cv_dup(cx->blk_sub.cv,param)); - ncx->blk_sub.argarray = (cx->blk_sub.hasargs + ncx->blk_sub.argarray = (CX_SUB_HASARGS_GET(cx) ? av_dup_inc(cx->blk_sub.argarray, param) : NULL); ncx->blk_sub.savearray = av_dup_inc(cx->blk_sub.savearray, param); ncx->blk_sub.olddepth = cx->blk_sub.olddepth; - ncx->blk_sub.hasargs = cx->blk_sub.hasargs; + CX_SUB_HASARGS_SET(ncx, CX_SUB_HASARGS_GET(cx)); ncx->blk_sub.lval = cx->blk_sub.lval; ncx->blk_sub.retop = cx->blk_sub.retop; ncx->blk_sub.oldcomppad = (PAD*)ptr_table_fetch(PL_ptr_table, @@ -10327,7 +10327,7 @@ Perl_cx_dup(pTHX_ PERL_CONTEXT *cxs, I32 ix, I32 max, CLONE_PARAMS* param) ncx->blk_sub.cv = cv_dup(cx->blk_sub.cv, param); ncx->blk_sub.gv = gv_dup(cx->blk_sub.gv, param); ncx->blk_sub.dfoutgv = gv_dup_inc(cx->blk_sub.dfoutgv, param); - ncx->blk_sub.hasargs = cx->blk_sub.hasargs; + CX_SUB_HASARGS_SET(ncx, CX_SUB_HASARGS_GET(cx)); ncx->blk_sub.retop = cx->blk_sub.retop; break; case CXt_BLOCK: -- cgit v1.2.1