This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PUSH_MULTICALL: use SAVEOP()
authorDavid Mitchell <davem@iabyn.com>
Fri, 25 Dec 2015 23:12:29 +0000 (23:12 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 3 Feb 2016 09:19:18 +0000 (09:19 +0000)
SAVEOP() should be more efficient than SAVEVPTR(PL_op), since it
uses the dedicated SAVEt_OP.

cop.h

diff --git a/cop.h b/cop.h
index 45a39c1..5df3564 100644 (file)
--- a/cop.h
+++ b/cop.h
@@ -1347,7 +1347,7 @@ See L<perlcall/LIGHTWEIGHT CALLBACKS>.
        PUSHBLOCK(cx, (CXt_SUB|CXp_MULTICALL|flags), PL_stack_sp);      \
        PUSHSUB(cx);                                                    \
         cx->blk_oldsaveix = PL_savestack_ix;                            \
-       SAVEVPTR(PL_op);                                                \
+       SAVEOP();                                                       \
         saveix_floor = PL_savestack_ix;                                 \
         if (!(flags & CXp_SUB_RE_FAKE))                                 \
             CvDEPTH(cv)++;                                             \