From 2e9a75d1d652571a001e8e2529be4e781f1884f0 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 24 Mar 2003 16:18:26 +0000
Subject: [PATCH] [project @ 2003-03-24 16:18:26 by simonmar] warning
 elimination

---
 ghc/rts/GCCompact.c |    7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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