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 /scope.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 'scope.c')
| -rw-r--r-- | scope.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1033,7 +1033,7 @@ Perl_cx_dump(pTHX_ PERL_CONTEXT *cx) PerlIO_printf(Perl_debug_log, "BLK_SUB.DFOUTGV = 0x%"UVxf"\n", PTR2UV(cx->blk_sub.dfoutgv)); PerlIO_printf(Perl_debug_log, "BLK_SUB.HASARGS = %d\n", - (int)cx->blk_sub.hasargs); + (int)CX_SUB_HASARGS_GET(cx)); PerlIO_printf(Perl_debug_log, "BLK_SUB.RETOP = 0x%"UVxf"\n", PTR2UV(cx->blk_sub.retop)); break; @@ -1043,7 +1043,7 @@ Perl_cx_dump(pTHX_ PERL_CONTEXT *cx) PerlIO_printf(Perl_debug_log, "BLK_SUB.OLDDEPTH = %ld\n", (long)cx->blk_sub.olddepth); PerlIO_printf(Perl_debug_log, "BLK_SUB.HASARGS = %d\n", - (int)cx->blk_sub.hasargs); + (int)CX_SUB_HASARGS_GET(cx)); PerlIO_printf(Perl_debug_log, "BLK_SUB.LVAL = %d\n", (int)cx->blk_sub.lval); PerlIO_printf(Perl_debug_log, "BLK_SUB.RETOP = 0x%"UVxf"\n", |