diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-09-17 00:06:53 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-09-17 00:06:53 +0000 |
| commit | 022eaa24f0f108e678e18c854c6eb92c735188c5 (patch) | |
| tree | f7fa1f84dbfad01af797e9d57590d92ee5396ef7 /sv.c | |
| parent | 26844e2782d7192ed739172c5303bb52947596dc (diff) | |
| download | perl-022eaa24f0f108e678e18c854c6eb92c735188c5.tar.gz | |
Store a pointer to the op in struct block_loop, rather than the
pointers to last and redo. (for ithreads also drop the next pointer,
as pp_ctl.c doesn't re-write it for ithreads). This shrinks the struct
to 40 bytes on ILP32 systems, and therefore struct block to 64 bytes.
p4raw-id: //depot/perl@28858
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -10309,9 +10309,7 @@ Perl_cx_dup(pTHX_ PERL_CONTEXT *cxs, I32 ix, I32 max, CLONE_PARAMS* param) case CXt_LOOP: ncx->blk_loop.label = cx->blk_loop.label; ncx->blk_loop.resetsp = cx->blk_loop.resetsp; - ncx->blk_loop.redo_op = cx->blk_loop.redo_op; - ncx->blk_loop.next_op = cx->blk_loop.next_op; - ncx->blk_loop.last_op = cx->blk_loop.last_op; + ncx->blk_loop.my_op = cx->blk_loop.my_op; ncx->blk_loop.iterdata = (CxPADLOOP(cx) ? cx->blk_loop.iterdata : gv_dup((GV*)cx->blk_loop.iterdata, param)); |