In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/d9f92374c5f4b19ed46c29c6710922b80429de59?hp=e123187a1c7666bc2bf1eab209057d9d3fe83f66>
- Log ----------------------------------------------------------------- commit d9f92374c5f4b19ed46c29c6710922b80429de59 Author: Karl Williamson <[email protected]> Date: Mon May 5 20:13:31 2014 -0600 utf8.h: Move macro within file This places it in a better situated spot for later commits ----------------------------------------------------------------------- Summary of changes: utf8.h | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/utf8.h b/utf8.h index 97bcb96..a6b2127 100644 --- a/utf8.h +++ b/utf8.h @@ -582,6 +582,14 @@ Perl's extended UTF-8 means we can have start bytes up to FF. /* If you want to exclude surrogates, and beyond legal Unicode, see the blame * log for earlier versions which gave details for these */ +/* regen/regcharclass.pl generates is_UTF8_CHAR_utf8() macros for up to these + * number of bytes. So this has to be coordinated with that file */ +#ifdef EBCDIC +# define IS_UTF8_CHAR_FAST(n) ((n) <= 3) +#else +# define IS_UTF8_CHAR_FAST(n) ((n) <= 4) +#endif + #ifndef EBCDIC /* This was generated by regen/regcharclass.pl, and then moved here. The lines * that generated it were then commented out. This was done solely because it @@ -628,13 +636,6 @@ Perl's extended UTF-8 means we can have start bytes up to FF. * "extended UTF-8". */ #define IS_UTF8_CHAR(p, n) (is_UTF8_CHAR_utf8_safe(p, (p) + (n)) == n) -/* regen/regcharclass.pl generates is_UTF8_CHAR_utf8_safe() macros for up to - * these number of bytes. So this has to be coordinated with it */ -#ifdef EBCDIC -# define IS_UTF8_CHAR_FAST(n) ((n) <= 3) -#else -# define IS_UTF8_CHAR_FAST(n) ((n) <= 4) -#endif #endif /* H_UTF8 */ -- Perl5 Master Repository
