Free Win32 Handles on shutdown

[ghc-hetmet.git] / rts / win32 / Ticker.c

diff --git a/rts/win32/Ticker.c b/rts/win32/Ticker.c
index ab791d8..9fa40eb 100644 (file)
--- a/rts/win32/Ticker.c
+++ b/rts/win32/Ticker.c
@@ -115,6 +115,7 @@ stopTicker(void)
            }
            if (exitCode != STILL_ACTIVE) {
                tickThread = INVALID_HANDLE_VALUE;
+               CloseHandle(hStopEvent);
                return 0;
            }
            TerminateThread(tickThread, 0);