Differences From Artifact [fedd72072a]:

• File win/tclWinSock.c — part of check-in [3ec419f7df] at 2020-03-31 07:09:46 on branch trunk — Internal API simplifications: Don't use types like HINSTANCE/HMODULE any more, just void*. Has effect only on Win32 and Cygwin. (user: jan.nijtmans size: 89899) [more...]

To Artifact [e5cac478cf]:

• File win/tclWinSock.c — part of check-in [948dd75b36] at 2020-04-30 19:25:27 on branch trunk — merge 8.7 (user: dgp size: 89907) [more...]

364
365
366
367
368
369
370
371
372
373
374
375
376
377
378

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

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

	Tcl_UtfToLower(Tcl_WCharToUtfDString(wbuf, -1, &ds));

    } else {

|

364
365
366
367
368
369
370
371
372
373
374
375
376
377
378

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

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

	Tcl_UtfToLower(Tcl_WCharToUtfDString(wbuf, -1, &ds));

    } else {