Differences From Artifact [9e6ee368d6]:

• File win/tclWinSock.c — part of check-in [1f9f6b8596] at 2020-01-30 13:52:58 on branch core-8-6-branch — Reset WSAGetLastError()/errno always, even when this error is not reported due to the earlier error. (user: jan.nijtmans size: 87935)

To Artifact [d6a48c6f76]:

• File win/tclWinSock.c — part of check-in [632704e948] at 2020-02-21 09:25:03 on branch core-8-6-branch — Fix [da235271f1]: [info hostname] on Windows is limited to max NetBIOS name length (user: jan.nijtmans size: 87943)

339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357

void
InitializeHostName(
    char **valuePtr,
    int *lengthPtr,
    Tcl_Encoding *encodingPtr)
{
    WCHAR wbuf[MAX_COMPUTERNAME_LENGTH + 1];
    DWORD length = MAX_COMPUTERNAME_LENGTH + 1;
    Tcl_DString ds;

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

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

    } else {

|
|


|

339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357

void
InitializeHostName(
    char **valuePtr,
    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 {