From: simonmar <unknown>
Date: Mon, 9 Jan 2006 14:35:53 +0000 (+0000)
Subject: [project @ 2006-01-09 14:35:53 by simonmar]
X-Git-Tag: final_switch_to_darcs,_this_repo_is_now_live~48
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a27ed15fca045062c389185f774e76f67fe8c5b3;p=ghc-hetmet.git

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