diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-09-01 15:05:10 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-09-01 15:05:10 +0000 |
| commit | 006bba40b64d69fcc85f3e7a0fe4b845e93164c0 (patch) | |
| tree | c750def4369bc917d9b2fdc096f32e338dc79bdc /sv.c | |
| parent | 78c72037c327e2cd8ede6cf098324435a670ca67 (diff) | |
| download | perl-006bba40b64d69fcc85f3e7a0fe4b845e93164c0.tar.gz | |
Access cx->blk_sub.hasargs via a pair of macros (as it's about to
move)
p4raw-id: //depot/perl@28772
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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: |