summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2019-02-19 20:12:06 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2019-02-19 20:12:06 (GMT)
commit886343e50b064acf649c4bdabd7ebbe269249485 (patch)
tree0c01cd4867f5c8ce637ff9f3c95efa305473ae30
parentd273753223b504a1eb70d83aad730a74d1f95d9a (diff)
downloadtcl-886343e50b064acf649c4bdabd7ebbe269249485.zip
tcl-886343e50b064acf649c4bdabd7ebbe269249485.tar.gz
tcl-886343e50b064acf649c4bdabd7ebbe269249485.tar.bz2
Fix some comments: "upper" -> "high" (when talking about surrogates)
-rw-r--r--generic/tclStringObj.c2
-rw-r--r--generic/tclStubInit.c4
-rw-r--r--win/tclWin32Dll.c4
3 files changed, 5 insertions, 5 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));
diff --git a/win/tclWin32Dll.c b/win/tclWin32Dll.c
index 3fb8796..0fa86c9 100644
--- a/win/tclWin32Dll.c
+++ b/win/tclWin32Dll.c
@@ -643,7 +643,7 @@ Tcl_WinTCharToUtf(
wEnd = (TCHAR *)string + len;
for (w = (TCHAR *)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);
@@ -651,7 +651,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));