This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
move blku_old_savestack_ix to base of cxt struct
[perl5.git] / pp_hot.c
index 147f9cb..5f2523c 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -3551,7 +3551,7 @@ PP(pp_entersub)
         hasargs = cBOOL(PL_op->op_flags & OPf_STACKED);
        PUSHSUB(cx);
        cx->blk_sub.retop = PL_op->op_next;
-        cx->cx_u.cx_blk.blku_old_savestack_ix = old_savestack_ix;
+        cx->cx_old_savestack_ix = old_savestack_ix;
 
        padlist = CvPADLIST(cv);
        if (UNLIKELY((depth = ++CvDEPTH(cv)) >= 2)) {