diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-06-14 09:57:54 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-06-14 09:57:54 (GMT) |
| commit | 99d3f3c9f3dc5752e4887e6dec6661fabd80cd50 (patch) | |
| tree | f86f90ed108e276f6a0f92a39e7b3ccde07b65fe /win | |
| parent | b4024d86d1cb3ece307d3c1b7369f51ad5747da8 (diff) | |
| parent | 0b3a8804eb9bbb738bda998ef6a5c729803f58d3 (diff) | |
| download | tcl-99d3f3c9f3dc5752e4887e6dec6661fabd80cd50.zip tcl-99d3f3c9f3dc5752e4887e6dec6661fabd80cd50.tar.gz tcl-99d3f3c9f3dc5752e4887e6dec6661fabd80cd50.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.c | 11 |
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; |