diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-18 12:51:30 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-18 12:51:30 (GMT) |
| commit | af7fa225c1d0ec592c7af29ead5922f45c1c15fb (patch) | |
| tree | 3582411900a7dd47db3f96290226a1dea37804e4 /generic/tclCmdMZ.c | |
| parent | 27c27e941a08c8ea873a5de4333a498788a22c33 (diff) | |
| download | tcl-af7fa225c1d0ec592c7af29ead5922f45c1c15fb.zip tcl-af7fa225c1d0ec592c7af29ead5922f45c1c15fb.tar.gz tcl-af7fa225c1d0ec592c7af29ead5922f45c1c15fb.tar.bz2 | |
More uppercase HEX representations in source-code.
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 193eac4..75989c7 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -1088,7 +1088,7 @@ Tcl_SplitObjCmd( #if TCL_UTF_MAX == 4 if ((ch >= 0xD800) && (len < 3)) { len += TclUtfToUniChar(stringPtr + len, &ch); - fullchar = (((fullchar & 0x3ff) << 10) | (ch & 0x3ff)) + 0x10000; + fullchar = (((fullchar & 0x3FF) << 10) | (ch & 0x3FF)) + 0x10000; } #endif @@ -1803,7 +1803,7 @@ StringIsCmd( #if TCL_UTF_MAX == 4 if ((ch >= 0xD800) && (length2 < 3)) { length2 += TclUtfToUniChar(string1 + length2, &ch); - fullchar = (((fullchar & 0x3ff) << 10) | (ch & 0x3ff)) + 0x10000; + fullchar = (((fullchar & 0x3FF) << 10) | (ch & 0x3FF)) + 0x10000; } #endif if (!chcomp(fullchar)) { |