diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2005-06-04 16:40:15 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-04 16:55:27 +0000 |
| commit | 646ca15d5cf720a2af3a258d7092a967f3a80550 (patch) | |
| tree | aaeb71a847a7f7821fbe4b337d1d88f9f5c2ad4b /embed.h | |
| parent | a433f3d2dda4db41b26d144e96f50f2022801470 (diff) | |
| download | perl-646ca15d5cf720a2af3a258d7092a967f3a80550.tar.gz | |
further speeding up of is_utf8_string()
Message-ID: <42A1850F.4040109@gmail.com>
p4raw-id: //depot/perl@24706
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -1417,6 +1417,11 @@ #define mulexp10 S_mulexp10 #endif #endif +#if defined(PERL_IN_UTF8_C) || defined(PERL_DECL_PROT) +#ifdef PERL_CORE +#define is_utf8_char_slow S_is_utf8_char_slow +#endif +#endif #define sv_setsv_flags Perl_sv_setsv_flags #define sv_catpvn_flags Perl_sv_catpvn_flags #define sv_catsv_flags Perl_sv_catsv_flags @@ -3399,6 +3404,11 @@ #define mulexp10 S_mulexp10 #endif #endif +#if defined(PERL_IN_UTF8_C) || defined(PERL_DECL_PROT) +#ifdef PERL_CORE +#define is_utf8_char_slow(a,b) S_is_utf8_char_slow(aTHX_ a,b) +#endif +#endif #define sv_setsv_flags(a,b,c) Perl_sv_setsv_flags(aTHX_ a,b,c) #define sv_catpvn_flags(a,b,c,d) Perl_sv_catpvn_flags(aTHX_ a,b,c,d) #define sv_catsv_flags(a,b,c) Perl_sv_catsv_flags(aTHX_ a,b,c) |