diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-23 13:03:28 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-02-23 13:03:28 (GMT) |
commit | 4723df2a35ce7e7a2d460213d01c361be26a1772 (patch) | |
tree | a2730203d5c9c697bc44c7b13c2959fd3466a250 /win/tclWinFile.c | |
parent | 8242d1a544d685846fe49557be8c9fd628d42329 (diff) | |
parent | c0f6db4b8165a139a30bd801ca3d8ffb56210940 (diff) | |
download | tcl-4723df2a35ce7e7a2d460213d01c361be26a1772.zip tcl-4723df2a35ce7e7a2d460213d01c361be26a1772.tar.gz tcl-4723df2a35ce7e7a2d460213d01c361be26a1772.tar.bz2 |
Merge 8.5
Diffstat (limited to 'win/tclWinFile.c')
-rw-r--r-- | win/tclWinFile.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index fba82d7..476911d 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -888,7 +888,7 @@ TclpFindExecutable( Tcl_SetPanicProc(tclWinDebugPanic); } - GetModuleFileNameW(NULL, wName, MAX_PATH); + GetModuleFileNameW(NULL, wName, sizeof(wName)/sizeof(WCHAR)); WideCharToMultiByte(CP_UTF8, 0, wName, -1, name, sizeof(name), NULL, NULL); TclWinNoBackslash(name); TclSetObjNameOfExecutable(Tcl_NewStringObj(name, -1), NULL); |