From 3c77ea2bace63b1ad27d15a6366cb938bdd158cb Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Mon, 7 Feb 2000 06:26:30 +0000 Subject: allow 64-bit utf8-encoded integers (from Ilya Zakharevich) p4raw-id: //depot/perl@5011 --- utf8.h | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'utf8.h') diff --git a/utf8.h b/utf8.h index e864316fac..8f69fef91e 100644 --- a/utf8.h +++ b/utf8.h @@ -18,7 +18,8 @@ EXTCONST unsigned char PL_utf8skip[] = { 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* bogus */ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* bogus */ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, /* scripts */ -3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,6,6,7,8, /* cjk etc. */ +3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,6,6, /* cjk etc. */ +7,13, /* Perl extended (not UTF-8). Up to 72bit allowed (64-bit + reserved). */ }; #else EXTCONST unsigned char PL_utf8skip[]; -- cgit v1.2.1