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

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

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);
     }