diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-02 22:05:52 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-02 22:05:52 (GMT) |
| commit | 6d656d18330f1b128b4587401e2bd4be7afbb0df (patch) | |
| tree | 35c25c5692e040830ddd8834e04a92f08d2a496a /generic/tclUtf.c | |
| parent | 2f92315df0eafedcd9c06b98df46e3ce71701cb2 (diff) | |
| download | tcl-6d656d18330f1b128b4587401e2bd4be7afbb0df.zip tcl-6d656d18330f1b128b4587401e2bd4be7afbb0df.tar.gz tcl-6d656d18330f1b128b4587401e2bd4be7afbb0df.tar.bz2 | |
typo
Diffstat (limited to 'generic/tclUtf.c')
| -rw-r--r-- | generic/tclUtf.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index 8f02790..c5dc30a 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -2179,7 +2179,7 @@ TclUtfToUCS4( #if TCL_UTF_MAX == 4 /* 4-byte UTF-8 is supported; decode surrogates */ - if ((ch >= 0xD800) && len < 3) + if ((ch >= 0xD800) && len < 3) { len += Tcl_UtfToUniChar(src + len, &ch); fullchar = (((fullchar & 0x3FF) << 10) | (ch & 0x3FF)) + 0x10000; } |