Differences From Artifact [3d11fa036d]:

• File unix/tclUnixFile.c — part of check-in [4fea51245c] at 2025-08-27 05:57:12 on branch apn-early-zipfs-mounts — Mount ALL zipfs archives before ANY library searches (user: apnadkarni size: 33242) [more...]

To Artifact [d33776926a]:

• File unix/tclUnixFile.c — part of check-in [f16fa8ec9a] at 2025-09-26 15:41:50 on branch core-9-0-branch — Further fix [https://core.tcl-lang.org/tk/tktview/832c2047bb|832c2047bb]: Windows: new compiler, new warnings... (user: jan.nijtmans size: 33240) [more...]

42
43
44
45
46
47
48
49

50
51
52
53
54
55
56

42
43
44
45
46
47
48

49
50
51
52
53
54
55
56

-
+

 */
#ifdef __CYGWIN__
void
TclpFindExecutable(
    TCL_UNUSED(const char *) /*argv0*/)
{
    size_t length;
    wchar_t buf[PATH_MAX] = L"";
    WCHAR buf[PATH_MAX] = L"";
    char name[PATH_MAX * TCL_UTF_MAX + 1];

    GetModuleFileNameW(NULL, buf, PATH_MAX);
    cygwin_conv_path(3, buf, name, sizeof(name));
    length = strlen(name);
    if ((length > 4) && !strcasecmp(name + length - 4, ".exe")) {
	/* Strip '.exe' part. */