X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fwin32%2FTicker.c;h=9fa40ebe52abf6c42db82a5e96367ccf85d56f05;hb=afef39736dcde6f4947a6f362f9e6b3586933db4;hp=ab791d8dc7463a4c61358948364ddebfaa71f93b;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/rts/win32/Ticker.c b/rts/win32/Ticker.c
index ab791d8..9fa40eb 100644
--- 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);