summaryrefslogtreecommitdiff
path: root/scope.c
diff options
context:
space:
mode:
authorBenjamin Smith <bsmith@cabbage.org.uk>2008-01-24 21:55:37 +0000
committerNicholas Clark <nick@ccl4.org>2008-01-26 09:34:13 +0000
commitd01136d6c9d281873ffd814253bf0fec93cf20f4 (patch)
tree1d686afa4f955300820e856e6f76720530fbe106 /scope.c
parent167f2c4d08e1e8002713cb8693577f1ea3ac7b70 (diff)
downloadperl-d01136d6c9d281873ffd814253bf0fec93cf20f4.tar.gz
Re: struct context now 12.5% smaller than 5.10
Message-ID: <20080124215537.GB10198@vtrl.co.uk> Date: Thu, 24 Jan 2008 21:55:37 +0000 p4raw-id: //depot/perl@33070
Diffstat (limited to 'scope.c')
-rw-r--r--scope.c11
1 files changed, 5 insertions, 6 deletions
diff --git a/scope.c b/scope.c
index c78c33c76a..c6a3fd51e8 100644
--- a/scope.c
+++ b/scope.c
@@ -1084,7 +1084,7 @@ Perl_cx_dump(pTHX_ PERL_CONTEXT *cx)
break;
case CXt_LOOP_LAZYIV:
- case CXt_LOOP_STACK:
+ case CXt_LOOP_LAZYSV:
case CXt_LOOP_FOR:
case CXt_LOOP_PLAIN:
PerlIO_printf(Perl_debug_log, "BLK_LOOP.LABEL = %s\n", CxLABEL(cx));
@@ -1094,17 +1094,16 @@ Perl_cx_dump(pTHX_ PERL_CONTEXT *cx)
PTR2UV(cx->blk_loop.my_op));
PerlIO_printf(Perl_debug_log, "BLK_LOOP.NEXT_OP = 0x%"UVxf"\n",
PTR2UV(CX_LOOP_NEXTOP_GET(cx)));
- PerlIO_printf(Perl_debug_log, "BLK_LOOP.ITERIX = %ld\n",
- (long)cx->blk_loop.iterix);
+ /* XXX: not accurate for LAZYSV/IV */
PerlIO_printf(Perl_debug_log, "BLK_LOOP.ITERARY = 0x%"UVxf"\n",
- PTR2UV(cx->blk_loop.ary_min_u.iterary));
+ PTR2UV(cx->blk_loop.state_u.ary.ary));
+ PerlIO_printf(Perl_debug_log, "BLK_LOOP.ITERIX = %ld\n",
+ (long)cx->blk_loop.state_u.ary.ix);
PerlIO_printf(Perl_debug_log, "BLK_LOOP.ITERVAR = 0x%"UVxf"\n",
PTR2UV(CxITERVAR(cx)));
if (CxITERVAR(cx))
PerlIO_printf(Perl_debug_log, "BLK_LOOP.ITERSAVE = 0x%"UVxf"\n",
PTR2UV(cx->blk_loop.itersave));
- PerlIO_printf(Perl_debug_log, "BLK_LOOP.ITERLVAL = 0x%"UVxf"\n",
- PTR2UV(cx->blk_loop.lval_max_u.iterlval));
break;
case CXt_SUBST: