From c03e89cf0daae12964f5a4e606a39128725c1e06 Mon Sep 17 00:00:00 2001 From: dgp Date: Thu, 30 Apr 2020 15:21:22 +0000 Subject: Add comments so I'll know again later why this is here. --- generic/tclUtf.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/generic/tclUtf.c b/generic/tclUtf.c index 2f12015..32fb743 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -1274,6 +1274,7 @@ Tcl_UniCharToUpper( } #if TCL_UTF_MAX > 3 } + /* Clear away extension bits, if any */ ch &= 0x1FFFFF; #endif return (Tcl_UniChar) ch; @@ -1310,6 +1311,7 @@ Tcl_UniCharToLower( } #if TCL_UTF_MAX > 3 } + /* Clear away extension bits, if any */ ch &= 0x1FFFFF; #endif return (Tcl_UniChar) ch; @@ -1354,6 +1356,7 @@ Tcl_UniCharToTitle( } #if TCL_UTF_MAX > 3 } + /* Clear away extension bits, if any */ ch &= 0x1FFFFF; #endif return (Tcl_UniChar) ch; @@ -1548,6 +1551,7 @@ Tcl_UniCharIsControl( { #if TCL_UTF_MAX > 3 if (UNICODE_OUT_OF_RANGE(ch)) { + /* Clear away extension bits, if any */ ch &= 0x1FFFFF; if ((ch == 0xE0001) || ((ch >= 0xE0020) && (ch <= 0xE007F))) { return 1; -- cgit v0.12