Differences From Artifact [a4bffa6490]:

• File win/tclWinSock.c — part of check-in [afe11ea5cc] at 2020-04-17 13:09:59 on branch core-8-6-branch — Merge-mark 8.5. Remove some ARGSUSED usage. (user: jan.nijtmans size: 87822) [more...]

To Artifact [0ac0ef166c]:

• File win/tclWinSock.c — part of check-in [2ba1cd687f] at 2020-04-30 15:35:25 on branch core-8-6-branch — Win: use physical host DNS name instead cluster name. Ticket [da235271f1] (user: oehhar size: 87830) [more...]

343
344
345
346
347
348
349
350
351
352
353
354
355
356
357

    int *lengthPtr,
    Tcl_Encoding *encodingPtr)
{
    WCHAR wbuf[256];
    DWORD length = sizeof(wbuf)/sizeof(WCHAR);
    Tcl_DString ds;

    if (GetComputerNameExW(ComputerNameDnsFullyQualified, wbuf, &length) != 0) {
	/*
	 * Convert string from native to UTF then change to lowercase.
	 */

	Tcl_UtfToLower(Tcl_WinTCharToUtf((TCHAR *)wbuf, -1, &ds));

    } else {

|

343
344
345
346
347
348
349
350
351
352
353
354
355
356
357

    int *lengthPtr,
    Tcl_Encoding *encodingPtr)
{
    WCHAR wbuf[256];
    DWORD length = sizeof(wbuf)/sizeof(WCHAR);
    Tcl_DString ds;

    if (GetComputerNameExW(ComputerNamePhysicalDnsFullyQualified, wbuf, &length) != 0) {
	/*
	 * Convert string from native to UTF then change to lowercase.
	 */

	Tcl_UtfToLower(Tcl_WinTCharToUtf((TCHAR *)wbuf, -1, &ds));

    } else {