diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-24 22:35:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-24 22:35:18 (GMT) |
| commit | 8e7251e7cf02ac28ef38ad37d024227bb4d29e48 (patch) | |
| tree | c4de3a03d277249c7dfb6cd07cc709c1d62af69a /generic/tclStringObj.c | |
| parent | d3ceeeb761536b195c0d26cf4f84ac262dd94e97 (diff) | |
| parent | f2e56cab06bb6e9e9aeea7e59db993350c99a997 (diff) | |
| download | tcl-8e7251e7cf02ac28ef38ad37d024227bb4d29e48.zip tcl-8e7251e7cf02ac28ef38ad37d024227bb4d29e48.tar.gz tcl-8e7251e7cf02ac28ef38ad37d024227bb4d29e48.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 9fa9290..4cf3bdd 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -556,7 +556,7 @@ Tcl_GetUniChar( return -1; } ch = stringPtr->unicode[index]; -#if TCL_UTF_MAX <= 3 +#if TCL_UTF_MAX < 4 /* See: bug [11ae2be95dac9417] */ if ((ch & 0xF800) == 0xD800) { if (ch & 0x400) { @@ -740,7 +740,7 @@ Tcl_GetRange( TclNewObj(newObjPtr); return newObjPtr; } -#if TCL_UTF_MAX <= 3 +#if TCL_UTF_MAX < 4 /* See: bug [11ae2be95dac9417] */ if ((first + 1 > 1) && ((stringPtr->unicode[first] & 0xFC00) == 0xDC00) && ((stringPtr->unicode[first-1] & 0xFC00) == 0xD800)) { |