From 886343e50b064acf649c4bdabd7ebbe269249485 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Tue, 19 Feb 2019 20:12:06 +0000 Subject: Fix some comments: "upper" -> "high" (when talking about surrogates) --- generic/tclStringObj.c | 2 +- generic/tclStubInit.c | 4 ++-- win/tclWin32Dll.c | 4 ++-- 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)); -- cgit v0.12