Change 14989 by jhi@alpha on 2002/03/04 13:04:06
Needed by #14985.
Affected files ...
.... //depot/perl/embed.h#340 edit
.... //depot/perl/global.sym#208 edit
.... //depot/perl/proto.h#382 edit
Differences ...
==== //depot/perl/embed.h#340 (text+w) ====
Index: perl/embed.h
--- perl/embed.h.~1~ Mon Mar 4 06:15:05 2002
+++ perl/embed.h Mon Mar 4 06:15:05 2002
@@ -237,6 +237,7 @@
#define gv_efullname4 Perl_gv_efullname4
#define gv_fetchfile Perl_gv_fetchfile
#define gv_fetchmeth Perl_gv_fetchmeth
+#define gv_fetchmeth_autoload Perl_gv_fetchmeth_autoload
#define gv_fetchmethod Perl_gv_fetchmethod
#define gv_fetchmethod_autoload Perl_gv_fetchmethod_autoload
#define gv_fetchpv Perl_gv_fetchpv
@@ -409,6 +410,7 @@
#if defined(USE_LOCALE_COLLATE)
#define mem_collxfrm Perl_mem_collxfrm
#endif
+#define memcmp_byte_utf8 Perl_memcmp_byte_utf8
#define mess Perl_mess
#define vmess Perl_vmess
#define qerror Perl_qerror
@@ -1794,6 +1796,7 @@
#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)
+#define gv_fetchmeth_autoload(a,b,c,d) Perl_gv_fetchmeth_autoload(aTHX_ a,b,c,d)
#define gv_fetchmethod(a,b) Perl_gv_fetchmethod(aTHX_ a,b)
#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)
@@ -1965,6 +1968,7 @@
#if defined(USE_LOCALE_COLLATE)
#define mem_collxfrm(a,b,c) Perl_mem_collxfrm(aTHX_ a,b,c)
#endif
+#define memcmp_byte_utf8(a,b,c,d) Perl_memcmp_byte_utf8(aTHX_ a,b,c,d)
#define vmess(a,b) Perl_vmess(aTHX_ a,b)
#define qerror(a) Perl_qerror(aTHX_ a)
#define sortsv(a,b,c) Perl_sortsv(aTHX_ a,b,c)
==== //depot/perl/global.sym#208 (text+w) ====
Index: perl/global.sym
--- perl/global.sym.~1~ Mon Mar 4 06:15:05 2002
+++ perl/global.sym Mon Mar 4 06:15:05 2002
@@ -128,6 +128,7 @@
Perl_gv_efullname4
Perl_gv_fetchfile
Perl_gv_fetchmeth
+Perl_gv_fetchmeth_autoload
Perl_gv_fetchmethod
Perl_gv_fetchmethod_autoload
Perl_gv_fetchpv
@@ -228,6 +229,7 @@
Perl_grok_numeric_radix
Perl_grok_oct
Perl_markstack_grow
+Perl_memcmp_byte_utf8
Perl_mess
Perl_vmess
Perl_sortsv
==== //depot/perl/proto.h#382 (text+w) ====
Index: perl/proto.h
--- perl/proto.h.~1~ Mon Mar 4 06:15:05 2002
+++ perl/proto.h Mon Mar 4 06:15:05 2002
@@ -289,6 +289,7 @@
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);
+PERL_CALLCONV GV* Perl_gv_fetchmeth_autoload(pTHX_ HV* stash, const char* name,
+STRLEN len, I32 level);
PERL_CALLCONV GV* Perl_gv_fetchmethod(pTHX_ HV* stash, const char* name);
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);
@@ -461,6 +462,7 @@
#if defined(USE_LOCALE_COLLATE)
PERL_CALLCONV char* Perl_mem_collxfrm(pTHX_ const char* s, STRLEN len, STRLEN*
xlen);
#endif
+PERL_CALLCONV int Perl_memcmp_byte_utf8(pTHX_ char *sbyte, STRLEN lbyte, char
+*sutf, STRLEN lutf);
PERL_CALLCONV SV* Perl_mess(pTHX_ const char* pat, ...)
#ifdef CHECK_FORMAT
__attribute__((format(printf,pTHX_1,pTHX_2)))
End of Patch.
