This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
regcomp.c: Pack EXACTish nodes more fully
[perl5.git]
/
utfebcdic.h
diff --git
a/utfebcdic.h
b/utfebcdic.h
index
0f81d1f
..
c2f0788
100644
(file)
--- a/
utfebcdic.h
+++ b/
utfebcdic.h
@@
-511,6
+511,8
@@
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:
*/