Check-in [2ee45c3227]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix buffer size check for GetEnvironmentVariable. Tx @cjmcdonald
Timelines: family | ancestors | descendants | both | trunk | main
Files: files | file ages | folders
SHA3-256: 2ee45c322773a7970fb74fd7abfd2f42e9cfdde1f53bf2dd58b4865cd794ae0f
User & Date: apnadkarni 2025-09-24 03:08:05.710
Original Comment: Fix buffer size check for GetEnvironmentVariable. Tx @cmc
Context
2025-09-24
20:55
Fix some -Wconversion warnings. Clock simplifications check-in: c742d8d60b user: jan.nijtmans tags: trunk, main
08:14
Merge trunk check-in: ed77f7a9b6 user: apnadkarni tags: apn-init-refactor
03:08
Fix buffer size check for GetEnvironmentVariable. Tx @cjmcdonald check-in: 2ee45c3227 user: apnadkarni tags: trunk, main
02:56
Fix buffer size check for GetEnvironmentVariable. Tx @cjmcdonald check-in: bbbcaac096 user: apnadkarni tags: core-9-0-branch
2025-09-23
17:55
Merge 9.0 check-in: c033fe6282 user: jan.nijtmans tags: trunk, main
Changes
Unified Diff Ignore Whitespace Patch
Changes to win/tclWinInit.c.
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
	}
    }
    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]))) {
	return;
    }
    if (WideCharToMultiByte(
	    CP_UTF8, 0, wBuf, -1, buf, MAX_PATH * 3, NULL, NULL) == 0) {
	return;
    }








|







353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
	}
    }
    if (shortlib == lib) {
	Tcl_Panic("no '/' character found in lib");
    }

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