diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-24 22:20:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-24 22:20:17 (GMT) |
| commit | b788457ad48d5cc34b431418f7d076d83f78b5ff (patch) | |
| tree | b5b8e6cbd9ce48ba6967a7cd9942760afd16405c /generic/tclStringObj.c | |
| parent | 671915641bb91ac0aed5250cf92efbfc30f9e0a4 (diff) | |
| download | tcl-b788457ad48d5cc34b431418f7d076d83f78b5ff.zip tcl-b788457ad48d5cc34b431418f7d076d83f78b5ff.tar.gz tcl-b788457ad48d5cc34b431418f7d076d83f78b5ff.tar.bz2 | |
3 more files with TCL_UTF_MAX checks
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 bee1e3e..f240bc0 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -571,7 +571,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) { @@ -785,7 +785,7 @@ Tcl_GetRange( TclNewObj(newObjPtr); return newObjPtr; } -#if TCL_UTF_MAX <= 3 +#if TCL_UTF_MAX < 4 /* See: bug [11ae2be95dac9417] */ if ((first > 0) && ((stringPtr->unicode[first] & 0xFC00) == 0xDC00) && ((stringPtr->unicode[first-1] & 0xFC00) == 0xD800)) { |