diff options
| -rw-r--r-- | embed.h | 4 | ||||
| -rw-r--r-- | global.sym | 2 | ||||
| -rw-r--r-- | proto.h | 2 |
3 files changed, 8 insertions, 0 deletions
@@ -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) diff --git a/global.sym b/global.sym index 4b5eca17d6..a477a0bf3d 100644 --- a/global.sym +++ b/global.sym @@ -128,6 +128,7 @@ Perl_gv_efullname3 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_number Perl_grok_numeric_radix Perl_grok_oct Perl_markstack_grow +Perl_memcmp_byte_utf8 Perl_mess Perl_vmess Perl_sortsv @@ -289,6 +289,7 @@ PERL_CALLCONV void Perl_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); +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 @@ PERL_CALLCONV void Perl_markstack_grow(pTHX); #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))) |