diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-09-16 17:07:03 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-09-16 17:07:03 +0000 |
| commit | cc8d50a7c6a04d7a7e152c0e2861bc370cc6c9e6 (patch) | |
| tree | e85ad458b84c9cc33619f4a01a8dbe660d7af67c /scope.c | |
| parent | 44abc943eb062867457a44655d95023ddfb75877 (diff) | |
| download | perl-cc8d50a7c6a04d7a7e152c0e2861bc370cc6c9e6.tar.gz | |
Revert changes 28772, 28773, 28774 as they won't gain us anything - I
failed to realise that struct block_sub is not the largest of the
4 structures in the block.blk_u union. (It's actually block_loop)
p4raw-id: //depot/perl@28853
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 6 |
1 files changed, 3 insertions, 3 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_SUB_HASARGS_GET(cx)); + (int)cx->blk_sub.hasargs); PerlIO_printf(Perl_debug_log, "BLK_SUB.RETOP = 0x%"UVxf"\n", PTR2UV(cx->blk_sub.retop)); break; @@ -1043,9 +1043,9 @@ 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_SUB_HASARGS_GET(cx)); + (int)cx->blk_sub.hasargs); PerlIO_printf(Perl_debug_log, "BLK_SUB.LVAL = %d\n", - (int)CX_SUB_LVAL(cx)); + (int)cx->blk_sub.lval); PerlIO_printf(Perl_debug_log, "BLK_SUB.RETOP = 0x%"UVxf"\n", PTR2UV(cx->blk_sub.retop)); break; |