diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-24 22:31:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-24 22:31:13 (GMT) |
| commit | f2e56cab06bb6e9e9aeea7e59db993350c99a997 (patch) | |
| tree | 646a1ad25d1ee8f38e36ede30d881c915f1dfc31 /generic/tclStringObj.c | |
| parent | 66ffdbf0ec22d179161e49cec7b256b06f246b27 (diff) | |
| parent | b788457ad48d5cc34b431418f7d076d83f78b5ff (diff) | |
| download | tcl-f2e56cab06bb6e9e9aeea7e59db993350c99a997.zip tcl-f2e56cab06bb6e9e9aeea7e59db993350c99a997.tar.gz tcl-f2e56cab06bb6e9e9aeea7e59db993350c99a997.tar.bz2 | |
Merge 8.7
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 9d28868..db2a402 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)) { |