Change 23612 by [EMAIL PROTECTED] on 2004/12/06 13:01:36
Turn gv_fullname3 and gv_efullname3 into macros that call
gv_fullname4 and gv_efullname4 directly, saving overhead.
Affected files ...
... //depot/perl/embed.fnc#138 edit
... //depot/perl/embed.h#447 edit
... //depot/perl/gv.h#29 edit
... //depot/perl/proto.h#486 edit
Differences ...
==== //depot/perl/embed.fnc#138 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#137~23567~ Tue Nov 30 04:57:30 2004
+++ perl/embed.fnc Mon Dec 6 05:01:36 2004
@@ -245,7 +245,7 @@
|I32 method
Ap |void |gv_check |HV* stash
Ap |void |gv_efullname |SV* sv|GV* gv
-Ap |void |gv_efullname3 |SV* sv|GV* gv|const char* prefix
+Amb |void |gv_efullname3 |SV* sv|GV* gv|const char* prefix
Ap |void |gv_efullname4 |SV* sv|GV* gv|const char* prefix|bool keepmain
Ap |GV* |gv_fetchfile |const char* name
Apd |GV* |gv_fetchmeth |HV* stash|const char* name|STRLEN len \
@@ -257,7 +257,7 @@
|I32 autoload
Ap |GV* |gv_fetchpv |const char* name|I32 add|I32 sv_type
Ap |void |gv_fullname |SV* sv|GV* gv
-Ap |void |gv_fullname3 |SV* sv|GV* gv|const char* prefix
+Amb |void |gv_fullname3 |SV* sv|GV* gv|const char* prefix
Ap |void |gv_fullname4 |SV* sv|GV* gv|const char* prefix|bool keepmain
Ap |void |gv_init |GV* gv|HV* stash|const char* name \
|STRLEN len|int multi
==== //depot/perl/embed.h#447 (text+w) ====
Index: perl/embed.h
--- perl/embed.h#446~23499~ Tue Nov 16 01:42:50 2004
+++ perl/embed.h Mon Dec 6 05:01:36 2004
@@ -307,7 +307,6 @@
#define gv_autoload4 Perl_gv_autoload4
#define gv_check Perl_gv_check
#define gv_efullname Perl_gv_efullname
-#define gv_efullname3 Perl_gv_efullname3
#define gv_efullname4 Perl_gv_efullname4
#define gv_fetchfile Perl_gv_fetchfile
#define gv_fetchmeth Perl_gv_fetchmeth
@@ -316,7 +315,6 @@
#define gv_fetchmethod_autoload Perl_gv_fetchmethod_autoload
#define gv_fetchpv Perl_gv_fetchpv
#define gv_fullname Perl_gv_fullname
-#define gv_fullname3 Perl_gv_fullname3
#define gv_fullname4 Perl_gv_fullname4
#define gv_init Perl_gv_init
#define gv_stashpv Perl_gv_stashpv
@@ -2933,7 +2931,6 @@
#define gv_autoload4(a,b,c,d) Perl_gv_autoload4(aTHX_ a,b,c,d)
#define gv_check(a) Perl_gv_check(aTHX_ a)
#define gv_efullname(a,b) Perl_gv_efullname(aTHX_ a,b)
-#define gv_efullname3(a,b,c) Perl_gv_efullname3(aTHX_ a,b,c)
#define gv_efullname4(a,b,c,d) Perl_gv_efullname4(aTHX_ a,b,c,d)
#define gv_fetchfile(a) Perl_gv_fetchfile(aTHX_ a)
#define gv_fetchmeth(a,b,c,d) Perl_gv_fetchmeth(aTHX_ a,b,c,d)
@@ -2942,7 +2939,6 @@
#define gv_fetchmethod_autoload(a,b,c) Perl_gv_fetchmethod_autoload(aTHX_
a,b,c)
#define gv_fetchpv(a,b,c) Perl_gv_fetchpv(aTHX_ a,b,c)
#define gv_fullname(a,b) Perl_gv_fullname(aTHX_ a,b)
-#define gv_fullname3(a,b,c) Perl_gv_fullname3(aTHX_ a,b,c)
#define gv_fullname4(a,b,c,d) Perl_gv_fullname4(aTHX_ a,b,c,d)
#define gv_init(a,b,c,d,e) Perl_gv_init(aTHX_ a,b,c,d,e)
#define gv_stashpv(a,b) Perl_gv_stashpv(aTHX_ a,b)
==== //depot/perl/gv.h#29 (text) ====
Index: perl/gv.h
--- perl/gv.h#28~19242~ Wed Apr 16 13:14:01 2003
+++ perl/gv.h Mon Dec 6 05:01:36 2004
@@ -153,3 +153,6 @@
#define GV_ADDWARN 0x04 /* add, but warn if symbol wasn't already there
*/
#define GV_ADDINEVAL 0x08 /* add, as though we're doing so within an eval
*/
#define GV_NOINIT 0x10 /* add, but don't init symbol, if type != PVGV
*/
+
+#define gv_fullname3(sv,gv,prefix) gv_fullname4(sv,gv,prefix,TRUE);
+#define gv_efullname3(sv,gv,prefix) gv_efullname4(sv,gv,prefix,TRUE);
==== //depot/perl/proto.h#486 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#485~23567~ Tue Nov 30 04:57:30 2004
+++ perl/proto.h Mon Dec 6 05:01:36 2004
@@ -228,7 +228,7 @@
PERL_CALLCONV GV* Perl_gv_autoload4(pTHX_ HV* stash, const char* name,
STRLEN len, I32 method);
PERL_CALLCONV void Perl_gv_check(pTHX_ HV* stash);
PERL_CALLCONV void Perl_gv_efullname(pTHX_ SV* sv, GV* gv);
-PERL_CALLCONV void Perl_gv_efullname3(pTHX_ SV* sv, GV* gv, const char*
prefix);
+/* PERL_CALLCONV void gv_efullname3(pTHX_ SV* sv, GV* gv, const char*
prefix); */
PERL_CALLCONV void Perl_gv_efullname4(pTHX_ SV* sv, GV* gv, const char*
prefix, bool keepmain);
PERL_CALLCONV GV* Perl_gv_fetchfile(pTHX_ const char* name);
PERL_CALLCONV GV* Perl_gv_fetchmeth(pTHX_ HV* stash, const char* name,
STRLEN len, I32 level);
@@ -237,7 +237,7 @@
PERL_CALLCONV GV* Perl_gv_fetchmethod_autoload(pTHX_ HV* stash, const
char* name, I32 autoload);
PERL_CALLCONV GV* Perl_gv_fetchpv(pTHX_ const char* name, I32 add, I32
sv_type);
PERL_CALLCONV void Perl_gv_fullname(pTHX_ SV* sv, GV* gv);
-PERL_CALLCONV void Perl_gv_fullname3(pTHX_ SV* sv, GV* gv, const char*
prefix);
+/* PERL_CALLCONV void gv_fullname3(pTHX_ SV* sv, GV* gv, const char* prefix);
*/
PERL_CALLCONV void Perl_gv_fullname4(pTHX_ SV* sv, GV* gv, const char*
prefix, bool keepmain);
PERL_CALLCONV void Perl_gv_init(pTHX_ GV* gv, HV* stash, const char* name,
STRLEN len, int multi);
PERL_CALLCONV HV* Perl_gv_stashpv(pTHX_ const char* name, I32 create);
End of Patch.
