From c03e89cf0daae12964f5a4e606a39128725c1e06 Mon Sep 17 00:00:00 2001 From: dgp Date: Thu, 30 Apr 2020 15:21:22 +0000 Subject: Add comments so I'll know again later why this is here. --- generic/tclUtf.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/generic/tclUtf.c b/generic/tclUtf.c index 2f12015..32fb743 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -1274,6 +1274,7 @@ Tcl_UniCharToUpper( } #if TCL_UTF_MAX > 3 } + /* Clear away extension bits, if any */ ch &= 0x1FFFFF; #endif return (Tcl_UniChar) ch; @@ -1310,6 +1311,7 @@ Tcl_UniCharToLower( } #if TCL_UTF_MAX > 3 } + /* Clear away extension bits, if any */ ch &= 0x1FFFFF; #endif return (Tcl_UniChar) ch; @@ -1354,6 +1356,7 @@ Tcl_UniCharToTitle( } #if TCL_UTF_MAX > 3 } + /* Clear away extension bits, if any */ ch &= 0x1FFFFF; #endif return (Tcl_UniChar) ch; @@ -1548,6 +1551,7 @@ Tcl_UniCharIsControl( { #if TCL_UTF_MAX > 3 if (UNICODE_OUT_OF_RANGE(ch)) { + /* Clear away extension bits, if any */ ch &= 0x1FFFFF; if ((ch == 0xE0001) || ((ch >= 0xE0020) && (ch <= 0xE007F))) { return 1; -- cgit v0.12 From 032a198c31a28d021f89780cf07fad0c71a12557 Mon Sep 17 00:00:00 2001 From: oehhar Date: Thu, 30 Apr 2020 15:35:25 +0000 Subject: Win: use physical host DNS name instead cluster name. Ticket [da235271f1] --- win/tclWinSock.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/win/tclWinSock.c b/win/tclWinSock.c index 1fa9f73..fdb7e12 100644 --- a/win/tclWinSock.c +++ b/win/tclWinSock.c @@ -347,7 +347,7 @@ InitializeHostName( DWORD length = sizeof(wbuf)/sizeof(WCHAR); Tcl_DString ds; - if (GetComputerNameExW(ComputerNameDnsFullyQualified, wbuf, &length) != 0) { + if (GetComputerNameExW(ComputerNamePhysicalDnsFullyQualified, wbuf, &length) != 0) { /* * Convert string from native to UTF then change to lowercase. */ -- cgit v0.12 From 8c072488a00f4e5095531ff7a09fcadc20ec97bb Mon Sep 17 00:00:00 2001 From: dgp Date: Thu, 30 Apr 2020 18:53:50 +0000 Subject: Revise constraints to where expectations are met. --- tests/utf.test | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/tests/utf.test b/tests/utf.test index 7f83eb7..2a468f9 100644 --- a/tests/utf.test +++ b/tests/utf.test @@ -1324,7 +1324,7 @@ test utf-19.1 {TclUniCharLen} -body { unset -nocomplain foo } -result {1 4} -test utf-20.1 {TclUniCharNcmp} {fullutf} { +test utf-20.1 {TclUniCharNcmp} {ucs4} { string compare [string range [format %c 0xFFFF] 0 0] [string range [format %c 0x10000] 0 0] } -1 @@ -1445,8 +1445,10 @@ UniCharCaseCmpTest < a b UniCharCaseCmpTest > b a UniCharCaseCmpTest > B a UniCharCaseCmpTest > aBcB abca -UniCharCaseCmpTest < \uFFFF [format %c 0x10000] fullutf -UniCharCaseCmpTest < \uFFFF \U10000 {Uesc fullutf} +UniCharCaseCmpTest < \uFFFF [format %c 0x10000] ucs4 +UniCharCaseCmpTest < \uFFFF \U10000 {Uesc ucs4} +UniCharCaseCmpTest > [format %c 0x10000] \uFFFF ucs4 +UniCharCaseCmpTest > \U10000 \uFFFF {Uesc ucs4} -- cgit v0.12