Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/333da05ffa28ac0eb95df397be9d48234cb046aa >--------------------------------------------------------------- commit 333da05ffa28ac0eb95df397be9d48234cb046aa Author: Ian Lynagh <[email protected]> Date: Fri Jun 24 14:42:45 2011 +0100 Remove a couple of unused bindings >--------------------------------------------------------------- rts/sm/Sanity.c | 4 ---- 1 files changed, 0 insertions(+), 4 deletions(-) diff --git a/rts/sm/Sanity.c b/rts/sm/Sanity.c index 0ec552c..b6c5926 100644 --- a/rts/sm/Sanity.c +++ b/rts/sm/Sanity.c @@ -45,10 +45,8 @@ static void checkSTACK (StgStack *stack); static void checkSmallBitmap( StgPtr payload, StgWord bitmap, nat size ) { - StgPtr p; nat i; - p = payload; for(i = 0; i < size; i++, bitmap >>= 1 ) { if ((bitmap & 1) == 0) { checkClosureShallow((StgClosure *)payload[i]); @@ -211,14 +209,12 @@ static void checkPAP (StgClosure *tagged_fun, StgClosure** payload, StgWord n_args) { StgClosure *fun; - StgClosure *p; StgFunInfoTable *fun_info; fun = UNTAG_CLOSURE(tagged_fun); ASSERT(LOOKS_LIKE_CLOSURE_PTR(fun)); fun_info = get_fun_itbl(fun); - p = (StgClosure *)payload; switch (fun_info->f.fun_type) { case ARG_GEN: checkSmallBitmap( (StgPtr)payload, _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
