summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-11-20 14:40:38 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-11-20 14:40:38 (GMT)
commitc49d0174a85f5a70a22ed33e9cfe089a3d48e8f8 (patch)
treeaa55d432b3c7f137b048327bd9fd2ce2b2983e83
parent0be4102b2ac1be2e1d9d7960aa33308bdf206b02 (diff)
parentc6900d988e939fafa1b1800ba27302c378d3e3c2 (diff)
downloadtcl-c49d0174a85f5a70a22ed33e9cfe089a3d48e8f8.zip
tcl-c49d0174a85f5a70a22ed33e9cfe089a3d48e8f8.tar.gz
tcl-c49d0174a85f5a70a22ed33e9cfe089a3d48e8f8.tar.bz2
Starting with Windows 8 DSK, GetVersionExA is deprecated
-rw-r--r--win/tclWin32Dll.c6
-rw-r--r--win/tclWinInit.c6
2 files changed, 6 insertions, 6 deletions
diff --git a/win/tclWin32Dll.c b/win/tclWin32Dll.c
index a72b760..634e1d2 100644
--- a/win/tclWin32Dll.c
+++ b/win/tclWin32Dll.c
@@ -181,11 +181,11 @@ void
TclWinInit(
HINSTANCE hInst) /* Library instance handle. */
{
- OSVERSIONINFO os;
+ OSVERSIONINFOW os;
hInstance = hInst;
- os.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
- GetVersionEx(&os);
+ os.dwOSVersionInfoSize = sizeof(OSVERSIONINFOW);
+ GetVersionExW(&os);
platformId = os.dwPlatformId;
/*
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);