[project @ 2005-04-22 17:50:13 by sof]

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

diff --git a/ghc/rts/win32/Ticker.c b/ghc/rts/win32/Ticker.c
index 124cbc8..c1390b7 100644 (file)
--- a/ghc/rts/win32/Ticker.c
+++ b/ghc/rts/win32/Ticker.c
@@ -57,8 +57,13 @@ TimerProc(PVOID param)
       /* tick */
       tickProc(0);
       break;
+    case WAIT_FAILED: {
+       DWORD dw = GetLastError();
+       fprintf(stderr, "TimerProc: wait failed -- error code: %lu\n", dw); fflush(stderr);
+       break; 
+    }
     default:
-      fprintf(stderr, "timer: unexpected result %lu\n", waitRes); fflush(stderr);
+      fprintf(stderr, "TimerProc: unexpected result %lu\n", waitRes); fflush(stderr);
       break;
     }
   }