summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2016-06-14 09:57:54 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2016-06-14 09:57:54 (GMT)
commit4fac9b8d0fb5648943635cf4c956c9518e610921 (patch)
treef86f90ed108e276f6a0f92a39e7b3ccde07b65fe /win
parent8afdb9286632c44763fe2b168b72cc6606ac52d4 (diff)
parentacdd236f96616d9dd6707bc56fffacf95cb81b6a (diff)
downloadtcl-4fac9b8d0fb5648943635cf4c956c9518e610921.zip
tcl-4fac9b8d0fb5648943635cf4c956c9518e610921.tar.gz
tcl-4fac9b8d0fb5648943635cf4c956c9518e610921.tar.bz2
Fix [7393be0be6e7f91cbb2016fa777896e3895929e3|7393be0be6]: Tcl Thread library doesn't work in Debug build on Windows_x64
Diffstat (limited to 'win')
-rw-r--r--win/tclWinThrd.c11
1 files changed, 4 insertions, 7 deletions
diff --git a/win/tclWinThrd.c b/win/tclWinThrd.c
index 1c9d483..ca26f08 100644
--- a/win/tclWinThrd.c
+++ b/win/tclWinThrd.c
@@ -168,7 +168,6 @@ TclWinThreadStart(
* from TclpThreadCreate */
{
WinThread *winThreadPtr = (WinThread *) lpParameter;
- unsigned int fpmask;
LPTHREAD_START_ROUTINE lpOrigStartAddress;
LPVOID lpOrigParameter;
@@ -176,13 +175,11 @@ TclWinThreadStart(
return TCL_ERROR;
}
- fpmask = _MCW_EM | _MCW_RC | _MCW_PC;
-
-#if defined(_MSC_VER) && _MSC_VER >= 1200
- fpmask |= _MCW_DN;
+ _controlfp(winThreadPtr->fpControl, _MCW_EM | _MCW_RC | 0x03000000 /* _MCW_DN */
+#if !defined(_WIN64)
+ | _MCW_PC
#endif
-
- _controlfp(winThreadPtr->fpControl, fpmask);
+ );
lpOrigStartAddress = winThreadPtr->lpStartAddress;
lpOrigParameter = winThreadPtr->lpParameter;