diff options
author | Karl Williamson <khw@cpan.org> | 2014-05-05 20:13:31 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2014-05-31 11:39:32 -0600 |
commit | d9f92374c5f4b19ed46c29c6710922b80429de59 (patch) | |
tree | d118a97cc6ad7eda0fbbaca5c3210706fd35c7b4 /utf8.h | |
parent | e123187a1c7666bc2bf1eab209057d9d3fe83f66 (diff) | |
download | perl-d9f92374c5f4b19ed46c29c6710922b80429de59.tar.gz |
utf8.h: Move macro within file
This places it in a better situated spot for later commits
Diffstat (limited to 'utf8.h')
-rw-r--r-- | utf8.h | 15 |
1 files changed, 8 insertions, 7 deletions
@@ -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 */ |