diff options
author | David Mitchell <davem@iabyn.com> | 2015-07-13 16:31:20 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2016-02-03 08:59:37 +0000 |
commit | c53244caeb28065953103125ef150410ab20987f (patch) | |
tree | 017e12c7f7e02936af3367291086c477aaaeb36e /pp_hot.c | |
parent | 4f25d0428094926f0ab6631db6e1b03ae1fe0c87 (diff) | |
download | perl-c53244caeb28065953103125ef150410ab20987f.tar.gz |
pp_entersub(): reduce life of padlist var
only set it when it's needed
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -3515,7 +3515,7 @@ PP(pp_entersub) if (!(CvISXSUB(cv))) { /* This path taken at least 75% of the time */ dMARK; - PADLIST * const padlist = CvPADLIST(cv); + PADLIST *padlist; I32 depth; bool hasargs; I32 gimme; @@ -3544,6 +3544,7 @@ PP(pp_entersub) cx->blk_sub.retop = PL_op->op_next; cx->blk_sub.old_savestack_ix = old_savestack_ix; + padlist = CvPADLIST(cv); if (UNLIKELY((depth = ++CvDEPTH(cv)) >= 2)) { PERL_STACK_OVERFLOW_CHECK(); pad_push(padlist, depth); |