diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-11-20 14:38:08 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2013-11-20 14:38:08 (GMT) |
| commit | 2d0c99ac930df51f12813107e23d61c56b6954d3 (patch) | |
| tree | 7779bc8951689ba965bd2be88e9912bee7b40bd0 /win/tclWinInit.c | |
| parent | cef2663a817441d70beab461d1fcdad54ef85f8b (diff) | |
| download | tcl-2d0c99ac930df51f12813107e23d61c56b6954d3.zip tcl-2d0c99ac930df51f12813107e23d61c56b6954d3.tar.gz tcl-2d0c99ac930df51f12813107e23d61c56b6954d3.tar.bz2 | |
Starting with Windows 8 DSK, GetVersionExA is deprecated
Diffstat (limited to 'win/tclWinInit.c')
| -rw-r--r-- | win/tclWinInit.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index 5baf020..81d762f 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -563,7 +563,7 @@ TclpSetVariables( SYSTEM_INFO info; OemId oemId; } sys; - OSVERSIONINFOA osInfo; + OSVERSIONINFOW osInfo; Tcl_DString ds; WCHAR szUserName[UNLEN+1]; DWORD cchUserNameLen = UNLEN; @@ -571,8 +571,8 @@ TclpSetVariables( Tcl_SetVar2Ex(interp, "tclDefaultLibrary", NULL, TclGetProcessGlobalValue(&defaultLibraryDir), TCL_GLOBAL_ONLY); - osInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFOA); - GetVersionExA(&osInfo); + osInfo.dwOSVersionInfoSize = sizeof(OSVERSIONINFOW); + GetVersionExW(&osInfo); GetSystemInfo(&sys.info); |