Differences From Artifact [d8bf88f68a]:

• File win/tclWinInit.c — part of check-in [175029b594] at 2025-09-22 10:34:22 on branch bug-c9e68eb6ca — Bug [c9e68eb6ca] - Windows version (user: apnadkarni size: 18016) [more...]

To Artifact [2df6602813]:

• File win/tclWinInit.c — part of check-in [e094a6d47b] at 2025-09-24 02:38:12 on branch core-8-6-branch — Fix buffer size check for GetEnvironmentVariable. Tx @cjmcdonald (user: apnadkarni size: 17994)

243
244
245
246
247
248
249
250

251
252
253
254
255
256
257

243
244
245
246
247
248
249

250
251
252
253
254
255
256
257

-
+

	}
    }
    if (shortlib == lib) {
	Tcl_Panic("no '/' character found in lib");
    }

    dw = GetEnvironmentVariableW(L"TCL_LIBRARY", wBuf, MAX_PATH);
    if (dw <= 0 || dw >= (sizeof(buf) / sizeof(buf[0]))) {
    if (dw <= 0 || dw >= MAX_PATH) {
	return;
    }
    if (WideCharToMultiByte(
	    CP_UTF8, 0, wBuf, -1, buf, MAX_PATH * 3, NULL, NULL) == 0) {
	return;
    }