diff options
| author | Karl Williamson <khw@cpan.org> | 2014-05-05 18:50:01 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2014-05-31 11:34:56 -0600 |
| commit | a1b2a50fb33671d2474d83dc6a3d62dbcb99965b (patch) | |
| tree | 9a895b677f79428804017ffa979c0576ba42dc80 /utf8.h | |
| parent | 09be812375d15ad2e53923ffde9ee8117d89d3ef (diff) | |
| download | perl-a1b2a50fb33671d2474d83dc6a3d62dbcb99965b.tar.gz | |
regen/regcharclass.pl: Update to use EBCDIC utilities
This causes the generated regcharclass.h to be valid on all
supported platforms
Diffstat (limited to 'utf8.h')
| -rw-r--r-- | utf8.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -631,7 +631,7 @@ Perl's extended UTF-8 means we can have start bytes up to FF. /* 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) <= 5) +# define IS_UTF8_CHAR_FAST(n) ((n) <= 3) #else # define IS_UTF8_CHAR_FAST(n) ((n) <= 4) #endif |