summaryrefslogtreecommitdiff
path: root/utf8.h
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2019-10-02 15:29:05 -0600
committerKarl Williamson <khw@cpan.org>2019-11-06 19:11:45 -0700
commit24b4c3036718873ce304c8bf491d5643364fa897 (patch)
treedfc56eae4ac954df51e27a7f006f893511852d4a /utf8.h
parenta9269870d0bdf863ca3ff8c0027e0894d4847393 (diff)
downloadperl-24b4c3036718873ce304c8bf491d5643364fa897.tar.gz
Allow core to work with code points above IV_MAX
Higher has been reserved for core use, and a future commit will want to finally do this.
Diffstat (limited to 'utf8.h')
-rw-r--r--utf8.h4
1 files changed, 4 insertions, 0 deletions
diff --git a/utf8.h b/utf8.h
index 7ef1102917..6a11ce0c9b 100644
--- a/utf8.h
+++ b/utf8.h
@@ -940,6 +940,10 @@ Evaluates to 0xFFFD, the code point of the Unicode REPLACEMENT CHARACTER
#define UNICODE_DISALLOW_NONCHAR 0x0020
#define UNICODE_DISALLOW_SUPER 0x0040
#define UNICODE_DISALLOW_PERL_EXTENDED 0x0080
+
+#ifdef PERL_CORE
+# define UNICODE_ALLOW_ABOVE_IV_MAX 0x0100
+#endif
#define UNICODE_DISALLOW_ABOVE_31_BIT UNICODE_DISALLOW_PERL_EXTENDED
#define UNICODE_GOT_SURROGATE UNICODE_DISALLOW_SURROGATE