From: simonmar <unknown>
Date: Mon, 24 Mar 2003 16:18:26 +0000 (+0000)
Subject: [project @ 2003-03-24 16:18:26 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1044
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=2e9a75d1d652571a001e8e2529be4e781f1884f0;p=ghc-hetmet.git

[project @ 2003-03-24 16:18:26 by simonmar]
warning elimination
---

diff --git a/ghc/rts/GCCompact.c b/ghc/rts/GCCompact.c
index eaefcb7..65e0335 100644
--- a/ghc/rts/GCCompact.c
+++ b/ghc/rts/GCCompact.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: GCCompact.c,v 1.14 2003/03/24 14:46:54 simonmar Exp $
+ * $Id: GCCompact.c,v 1.15 2003/03/24 16:18:26 simonmar Exp $
  *
  * (c) The GHC Team 2001
  *
@@ -340,7 +340,8 @@ thread_stack(StgPtr p, StgPtr stack_end)
 	    StgRetFun *ret_fun = (StgRetFun *)p;
 	    StgFunInfoTable *fun_info;
 	    
-	    fun_info = itbl_to_fun_itbl(get_threaded_info(ret_fun->fun));
+	    fun_info = itbl_to_fun_itbl(
+		get_threaded_info((StgPtr)ret_fun->fun));
 	         // *before* threading it!
 	    thread((StgPtr)&ret_fun->fun);
 	    p = thread_arg_block(fun_info, ret_fun->payload);
@@ -361,7 +362,7 @@ thread_PAP (StgPAP *pap)
     StgWord bitmap, size;
     StgFunInfoTable *fun_info;
     
-    fun_info = itbl_to_fun_itbl(get_threaded_info(pap->fun));
+    fun_info = itbl_to_fun_itbl(get_threaded_info((StgPtr)pap->fun));
     ASSERT(fun_info->i.type != PAP);
 
     p = (StgPtr)pap->payload;