diff options
| author | syber <syber@crazypanda.ru> | 2014-12-01 23:20:27 +0300 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-02 17:56:48 -0800 |
| commit | 810bd8b704e337dfba3e46eaea33244c1b0afce3 (patch) | |
| tree | 1b45d1d145ccd5b7eecbb14ef57f69da2e5bdb3f /pp_proto.h | |
| parent | 11f9ab1a291e36ad40cb66d0bd0aedce897c06c3 (diff) | |
| download | perl-810bd8b704e337dfba3e46eaea33244c1b0afce3.tar.gz | |
Speed up method calls like $o->Other::method() and $o->Other::SUPER::method().
It was done by adding new OP_METHOD_REDIR and OP_METHOD_REDIR_SUPER optypes.
Class name to redirect is saved into METHOP as a shared hash string.
Method name is changed (class name removed) an saved into op_meth_sv as
a shared string hash.
So there is no need now to scan for '::' and calculate class and method names
at runtime (in gv_fetchmethod_*) and searching cache HV without precomputed hash.
B::* modules are changed to support new op types.
method_redir is now printed by Concise like (for threaded perl)
$obj->AAA::meth
5 <.> method_redir[PACKAGE "AAA", PV "meth"] ->6
Diffstat (limited to 'pp_proto.h')
| -rw-r--r-- | pp_proto.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/pp_proto.h b/pp_proto.h index 781050a865..6959357dd2 100644 --- a/pp_proto.h +++ b/pp_proto.h @@ -152,6 +152,8 @@ 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_redir(pTHX); +PERL_CALLCONV OP *Perl_pp_method_redir_super(pTHX); PERL_CALLCONV OP *Perl_pp_method_super(pTHX); PERL_CALLCONV OP *Perl_pp_mkdir(pTHX); PERL_CALLCONV OP *Perl_pp_modulo(pTHX); |