diff options
| author | syber <syber@crazypanda.ru> | 2014-11-28 21:22:25 +0300 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-28 18:10:58 -0800 |
| commit | 7d6c333c75cb0519428c389de3894edcb394d3a0 (patch) | |
| tree | d03a03a0aaa68b1a8348aea290600d0d7bee4e48 /pp_proto.h | |
| parent | 5ec005187f9529697da2ef026ddf0a3758600148 (diff) | |
| download | perl-7d6c333c75cb0519428c389de3894edcb394d3a0.tar.gz | |
speedup for SUPER::method() calls.
In ck_method:
Scan for '/::. If found SUPER::, create OP_METHOD_SUPER op
with precomputed hash value for method name.
In B::*, added support for method_super
In pp_hot.c, pp_method_*:
S_method_common removed, code related to getting stash is
moved to S_opmethod_stash, other code is moved to
pp_method_* functions.
As a result, SUPER::func() calls speeded up by 50%.
Diffstat (limited to 'pp_proto.h')
| -rw-r--r-- | pp_proto.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/pp_proto.h b/pp_proto.h index 9a399645e4..781050a865 100644 --- a/pp_proto.h +++ b/pp_proto.h @@ -152,6 +152,7 @@ PERL_CALLCONV OP *Perl_pp_mapwhile(pTHX); PERL_CALLCONV OP *Perl_pp_match(pTHX); PERL_CALLCONV OP *Perl_pp_method(pTHX); PERL_CALLCONV OP *Perl_pp_method_named(pTHX); +PERL_CALLCONV OP *Perl_pp_method_super(pTHX); PERL_CALLCONV OP *Perl_pp_mkdir(pTHX); PERL_CALLCONV OP *Perl_pp_modulo(pTHX); PERL_CALLCONV OP *Perl_pp_multiply(pTHX); |