[project @ 2006-01-09 14:35:53 by simonmar]

Avoid "dereferencing type-punned pointer will break strict-aliasing rules" warning

diff --git a/ghc/rts/Main.c b/ghc/rts/Main.c
index 520a757..6aef280 100644 (file)
--- a/ghc/rts/Main.c
+++ b/ghc/rts/Main.c
@@ -103,7 +103,7 @@ int main(int argc, char *argv[])
     /* ToDo: want to start with a larger stack size */
     { 
        void *cap = rts_lock();
-       cap = rts_evalLazyIO(cap,(HaskellObj)mainIO_closure, NULL);
+       cap = rts_evalLazyIO(cap,(HaskellObj)(void *)mainIO_closure, NULL);
        status = rts_getSchedStatus(cap);
        rts_unlock(cap);
     }