summaryrefslogtreecommitdiff
path: root/objXSUB.h
diff options
context:
space:
mode:
authorChip Salzenberg <chip@pobox.com>1999-07-22 09:43:36 -0400
committerGurusamy Sarathy <gsar@cpan.org>1999-07-26 11:03:07 +0000
commitf5d5a27c761624409884a263632e1a922439502b (patch)
treec60b2eb2941b78a30c58667c88e3e27b071a5417 /objXSUB.h
parentfad39ff13c300fe483c6155ea2883280e12fc89c (diff)
downloadperl-f5d5a27c761624409884a263632e1a922439502b.tar.gz
optimize method name lookup
Message-ID: <19990722134336.Q391@perlsupport.com> Subject: [PATCH] OP_METHOD_NAMED p4raw-id: //depot/perl@3768
Diffstat (limited to 'objXSUB.h')
-rw-r--r--objXSUB.h8
1 files changed, 8 insertions, 0 deletions
diff --git a/objXSUB.h b/objXSUB.h
index 9f2e517c92..7246cb6eae 100644
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -3626,6 +3626,10 @@
#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
@@ -4434,6 +4438,10 @@
#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