diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-11-10 16:36:39 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-11-11 12:49:48 +0000 |
| commit | 86a26670b809b02209640dd136a29705d72a4966 (patch) | |
| tree | 03eb10044ee085ff0578d6dfa7c1a72c25136302 /rts/win32 | |
| parent | 3b0e507cf061b1c0df6c28086250a6c6de68a937 (diff) | |
| download | haskell-86a26670b809b02209640dd136a29705d72a4966.tar.gz | |
Close the handle for the ticker thread (#5604)
Diffstat (limited to 'rts/win32')
| -rw-r--r-- | 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 929e6f4086..1c45482651 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); |