This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
optimize method name lookup
[perl5.git] / objXSUB.h
index 9f2e517..7246cb6 100644 (file)
--- a/objXSUB.h
+++ b/objXSUB.h
 #define Perl_ck_match          pPerl->Perl_ck_match
 #undef  ck_match
 #define ck_match               Perl_ck_match
+#undef  Perl_ck_method
+#define Perl_ck_method         pPerl->Perl_ck_method
+#undef  ck_method
+#define ck_method              Perl_ck_method
 #undef  Perl_ck_null
 #define Perl_ck_null           pPerl->Perl_ck_null
 #undef  ck_null
 #define Perl_pp_method         pPerl->Perl_pp_method
 #undef  pp_method
 #define pp_method              Perl_pp_method
+#undef  Perl_pp_method_named
+#define Perl_pp_method_named   pPerl->Perl_pp_method_named
+#undef  pp_method_named
+#define pp_method_named                Perl_pp_method_named
 #undef  Perl_pp_mkdir
 #define Perl_pp_mkdir          pPerl->Perl_pp_mkdir
 #undef  pp_mkdir