Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/86a26670b809b02209640dd136a29705d72a4966 >--------------------------------------------------------------- commit 86a26670b809b02209640dd136a29705d72a4966 Author: Simon Marlow <[email protected]> Date: Thu Nov 10 16:36:39 2011 +0000 Close the handle for the ticker thread (#5604) >--------------------------------------------------------------- rts/win32/Ticker.c | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/rts/win32/Ticker.c b/rts/win32/Ticker.c index 929e6f4..1c45482 100644 --- a/rts/win32/Ticker.c +++ b/rts/win32/Ticker.c @@ -153,7 +153,8 @@ exitTicker (rtsBool wait) if (!GetExitCodeThread(tickThread, &exitCode)) { return; } - if (exitCode != STILL_ACTIVE) { + CloseHandle(tickThread); + if (exitCode != STILL_ACTIVE) { tickThread = INVALID_HANDLE_VALUE; if ( hStopEvent != INVALID_HANDLE_VALUE ) { CloseHandle(hStopEvent); _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
