diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-30 15:21:22 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-30 15:21:22 (GMT) |
| commit | c03e89cf0daae12964f5a4e606a39128725c1e06 (patch) | |
| tree | 34bc5305ee42cba631f58e069d00b718192b82c0 | |
| parent | f2e39886dc9ac10747e5d878241ed4562ad1daf3 (diff) | |
| download | tcl-c03e89cf0daae12964f5a4e606a39128725c1e06.zip tcl-c03e89cf0daae12964f5a4e606a39128725c1e06.tar.gz tcl-c03e89cf0daae12964f5a4e606a39128725c1e06.tar.bz2 | |
Add comments so I'll know again later why this is here.
| -rw-r--r-- | generic/tclUtf.c | 4 |
1 files changed, 4 insertions, 0 deletions
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; |