From 32251b26ec0781f53d9925938cad5bd9e89c80f2 Mon Sep 17 00:00:00 2001 From: Ilya Zakharevich Date: Fri, 15 Dec 2000 00:26:57 -0500 Subject: speeding up object creation/destruction 4x times Message-ID: <20001215052657.A8319@math.mps.ohio-state.edu> p4raw-id: //depot/perl@8131 --- embed.h | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'embed.h') diff --git a/embed.h b/embed.h index 70d4c36f6b..45283825f9 100644 --- a/embed.h +++ b/embed.h @@ -68,6 +68,7 @@ #endif #define amagic_call Perl_amagic_call #define Gv_AMupdate Perl_Gv_AMupdate +#define gv_handler Perl_gv_handler #define append_elem Perl_append_elem #define append_list Perl_append_list #define apply Perl_apply @@ -1556,6 +1557,7 @@ #endif #define amagic_call(a,b,c,d) Perl_amagic_call(aTHX_ a,b,c,d) #define Gv_AMupdate(a) Perl_Gv_AMupdate(aTHX_ a) +#define gv_handler(a,b) Perl_gv_handler(aTHX_ a,b) #define append_elem(a,b,c) Perl_append_elem(aTHX_ a,b,c) #define append_list(a,b,c) Perl_append_list(aTHX_ a,b,c) #define apply(a,b,c) Perl_apply(aTHX_ a,b,c) @@ -3021,6 +3023,8 @@ #define amagic_call Perl_amagic_call #define Perl_Gv_AMupdate CPerlObj::Perl_Gv_AMupdate #define Gv_AMupdate Perl_Gv_AMupdate +#define Perl_gv_handler CPerlObj::Perl_gv_handler +#define gv_handler Perl_gv_handler #define Perl_append_elem CPerlObj::Perl_append_elem #define append_elem Perl_append_elem #define Perl_append_list CPerlObj::Perl_append_list -- cgit v1.2.1