diff options
| author | Karl Williamson <khw@cpan.org> | 2019-10-02 20:42:19 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2019-10-09 10:34:18 -0600 |
| commit | f6a6c46da220c16c019f733c278df05c4a333fd9 (patch) | |
| tree | c3866ca311e50c7251740fbffdd840c12396ecc7 /utfebcdic.h | |
| parent | ee0ff0f58536ba7975a4b8f1d21309ae9f451df7 (diff) | |
| download | perl-f6a6c46da220c16c019f733c278df05c4a333fd9.tar.gz | |
utfebcdic.h: Move some #defines
Diffstat (limited to 'utfebcdic.h')
| -rw-r--r-- | utfebcdic.h | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/utfebcdic.h b/utfebcdic.h index 4a66637bbb..085013ab19 100644 --- a/utfebcdic.h +++ b/utfebcdic.h @@ -205,14 +205,17 @@ explicitly forbidden, and the shortest possible encoding should always be used /* Comments as to the meaning of each are given at their corresponding utf8.h * definitions. */ +#define UTF_ACCUMULATION_SHIFT 5 + #define isUTF8_POSSIBLY_PROBLEMATIC(c) \ _generic_isCC(c, _CC_UTF8_START_BYTE_IS_FOR_AT_LEAST_SURROGATE) -#define UTF_ACCUMULATION_SHIFT 5 /* ^? is defined to be APC on EBCDIC systems. See the definition of toCTRL() * for more */ #define QUESTION_MARK_CTRL LATIN1_TO_NATIVE(0x9F) +#define UNICODE_IS_PERL_EXTENDED(uv) UNLIKELY((UV) (uv) > 0x3FFFFFFF) + /* Helper macros for isUTF8_CHAR_foo, so use those instead of this. These were * generated by regen/regcharclass.pl, and then moved here. Then they were * hand-edited to add some LIKELY() calls, presuming that malformations are @@ -456,8 +459,6 @@ explicitly forbidden, and the shortest possible encoding should always be used * has this start byte (expressed in I8) as the maximum */ #define _IS_UTF8_CHAR_HIGHEST_START_BYTE 0xF9 -#define UNICODE_IS_PERL_EXTENDED(uv) UNLIKELY((UV) (uv) > 0x3FFFFFFF) - /* * ex: set ts=8 sts=4 sw=4 et: */ |