Commit 2e9a75d1 authored by simonmar's avatar simonmar
Browse files

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

warning elimination
parent 25efe5a4
/* -----------------------------------------------------------------------------
* $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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment