diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-02-19 20:12:06 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-02-19 20:12:06 (GMT) |
| commit | 886343e50b064acf649c4bdabd7ebbe269249485 (patch) | |
| tree | 0c01cd4867f5c8ce637ff9f3c95efa305473ae30 /generic | |
| parent | d273753223b504a1eb70d83aad730a74d1f95d9a (diff) | |
| download | tcl-886343e50b064acf649c4bdabd7ebbe269249485.zip tcl-886343e50b064acf649c4bdabd7ebbe269249485.tar.gz tcl-886343e50b064acf649c4bdabd7ebbe269249485.tar.bz2 | |
Fix some comments: "upper" -> "high" (when talking about surrogates)
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclStringObj.c | 2 | ||||
| -rw-r--r-- | generic/tclStubInit.c | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 493378c..72e4a3d 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -2003,7 +2003,7 @@ Tcl_AppendFormatToObj( length = Tcl_UniCharToUtf(code, buf); #if TCL_UTF_MAX > 3 if (!length) { - /* Special case for handling upper surrogates. */ + /* Special case for handling high surrogates. */ length = Tcl_UniCharToUtf(-1, buf); } #endif diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 3de8de1..690e801 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -282,7 +282,7 @@ Tcl_WinTCharToUtf( wEnd = (wchar_t *)string + len; for (w = (wchar_t *)string; w < wEnd; ) { if (!blen && ((*w & 0xFC00) != 0xDC00)) { - /* Special case for handling upper surrogates. */ + /* Special case for handling high surrogates. */ p += Tcl_UniCharToUtf(-1, p); } blen = Tcl_UniCharToUtf(*w, p); @@ -290,7 +290,7 @@ Tcl_WinTCharToUtf( w++; } if (!blen) { - /* Special case for handling upper surrogates. */ + /* Special case for handling high surrogates. */ p += Tcl_UniCharToUtf(-1, p); } Tcl_DStringSetLength(dsPtr, oldLength + (p - result)); |