mark stop event handle as invalid once closed, making shutdowns more graceful.

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

diff --git a/rts/win32/Ticker.c b/rts/win32/Ticker.c
index 9fa40eb..7701a3b 100644 (file)
--- 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,7 +116,10 @@ stopTicker(void)
            }
            if (exitCode != STILL_ACTIVE) {
                tickThread = INVALID_HANDLE_VALUE;
-               CloseHandle(hStopEvent);
+               if ( hStopEvent != INVALID_HANDLE_VALUE ) {
+                   CloseHandle(hStopEvent);
+                   hStopEvent = INVALID_HANDLE_VALUE;
+               }
                return 0;
            }
            TerminateThread(tickThread, 0);