From a27ed15fca045062c389185f774e76f67fe8c5b3 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 9 Jan 2006 14:35:53 +0000
Subject: [PATCH 1/1] [project @ 2006-01-09 14:35:53 by simonmar] Avoid
 "dereferencing type-punned pointer will break
 strict-aliasing rules" warning

---
 ghc/rts/Main.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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