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 /dump.c | |
| 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 'dump.c')
| -rw-r--r-- | dump.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -955,6 +955,7 @@ Perl_do_op_dump(pTHX_ I32 level, PerlIO *file, const OP *o) case OP_CONST: case OP_HINTSEVAL: case OP_METHOD_NAMED: + case OP_METHOD_SUPER: #ifndef USE_ITHREADS /* with ITHREADS, consts are stored in the pad, and the right pad * may not be active here, so skip */ |