fix a warning

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

diff --git a/ghc/rts/win32/ConsoleHandler.c b/ghc/rts/win32/ConsoleHandler.c
index 413e13c..d7096db 100644 (file)
--- a/ghc/rts/win32/ConsoleHandler.c
+++ b/ghc/rts/win32/ConsoleHandler.c
@@ -182,7 +182,7 @@ void markSignalHandlers (evac_fn evac)
 {
     if (console_handler >= 0) {
        StgPtr p = deRefStablePtr((StgStablePtr)console_handler);
-       evac((StgClosure**)&p);
+       evac((StgClosure**)(void *)&p);
     }
 }