diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-11-20 14:40:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-11-20 14:40:38 (GMT) |
| commit | c49d0174a85f5a70a22ed33e9cfe089a3d48e8f8 (patch) | |
| tree | aa55d432b3c7f137b048327bd9fd2ce2b2983e83 /win/tclWinInit.c | |
| parent | 0be4102b2ac1be2e1d9d7960aa33308bdf206b02 (diff) | |
| parent | c6900d988e939fafa1b1800ba27302c378d3e3c2 (diff) | |
| download | tcl-c49d0174a85f5a70a22ed33e9cfe089a3d48e8f8.zip tcl-c49d0174a85f5a70a22ed33e9cfe089a3d48e8f8.tar.gz tcl-c49d0174a85f5a70a22ed33e9cfe089a3d48e8f8.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 d82944e..7b027c5 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -530,7 +530,7 @@ TclpSetVariables( SYSTEM_INFO info; OemId oemId; } sys; - OSVERSIONINFOA osInfo; + OSVERSIONINFOW osInfo; Tcl_DString ds; TCHAR szUserName[UNLEN+1]; DWORD cchUserNameLen = UNLEN; @@ -538,8 +538,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); |