This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.h: Add comment
authorKarl Williamson <khw@cpan.org>
Wed, 2 Oct 2019 22:43:50 +0000 (16:43 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 6 Oct 2019 16:18:17 +0000 (10:18 -0600)
utf8.h

diff --git a/utf8.h b/utf8.h
index 5ff24fd..472527c 100644 (file)
--- a/utf8.h
+++ b/utf8.h
@@ -355,7 +355,9 @@ C<cp> is Unicode if above 255; otherwise is platform-native.
 
 #endif /* EBCDIC vs ASCII */
 
 
 #endif /* EBCDIC vs ASCII */
 
-/* 2**UTF_ACCUMULATION_SHIFT - 1 */
+/* 2**UTF_ACCUMULATION_SHIFT - 1.  This masks out all but the bits that carry
+ * real information in a continuation byte.  This turns out to be 0x3F in
+ * UTF-8, 0x1F in UTF-EBCDIC. */
 #define UTF_CONTINUATION_MASK  ((U8) ((1U << UTF_ACCUMULATION_SHIFT) - 1))
 
 /* Internal macro to be used only in this file to aid in constructing other
 #define UTF_CONTINUATION_MASK  ((U8) ((1U << UTF_ACCUMULATION_SHIFT) - 1))
 
 /* Internal macro to be used only in this file to aid in constructing other