diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-30 18:58:50 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-30 18:58:50 (GMT) |
| commit | 0e720e42dbb7507bf45068b77413f95dfc20271d (patch) | |
| tree | 276981ec9897a13351a2556fa821183ed684c8de /generic | |
| parent | 032a198c31a28d021f89780cf07fad0c71a12557 (diff) | |
| parent | 8c072488a00f4e5095531ff7a09fcadc20ec97bb (diff) | |
| download | tcl-0e720e42dbb7507bf45068b77413f95dfc20271d.zip tcl-0e720e42dbb7507bf45068b77413f95dfc20271d.tar.gz tcl-0e720e42dbb7507bf45068b77413f95dfc20271d.tar.bz2 | |
merge 8.5
Diffstat (limited to 'generic')
| -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 02952cb..712beaa 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -1398,6 +1398,7 @@ UCS4ToUpper( ch -= GetDelta(info); } } + /* Clear away extension bits, if any */ return ch & 0x1FFFFF; } @@ -1436,6 +1437,7 @@ UCS4ToLower( ch += GetDelta(info); } } + /* Clear away extension bits, if any */ return ch & 0x1FFFFF; } @@ -1482,6 +1484,7 @@ UCS4ToTitle( ch -= GetDelta(info); } } + /* Clear away extension bits, if any */ return ch & 0x1FFFFF; } @@ -1681,6 +1684,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; |