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

diff --git a/rts/win32/Ticker.c b/rts/win32/Ticker.c
index ab791d8..7701a3b 100644
--- a/rts/win32/Ticker.c
+++ b/rts/win32/Ticker.c
@@ -54,6 +54,7 @@ TimerProc(PVOID param)
       /* event has become signalled */
       tickProc = NULL;
       CloseHandle(hStopEvent);
+      hStopEvent = INVALID_HANDLE_VALUE;
       return 0;
     case WAIT_TIMEOUT:
       /* tick */
@@ -115,6 +116,10 @@ stopTicker(void)
 	    }
 	    if (exitCode != STILL_ACTIVE) {
 		tickThread = INVALID_HANDLE_VALUE;
+		if ( hStopEvent != INVALID_HANDLE_VALUE ) {
+		    CloseHandle(hStopEvent);
+		    hStopEvent = INVALID_HANDLE_VALUE;
+		}
 		return 0;
 	    }
 	    TerminateThread(tickThread, 0);