[commit: ghc] master: Remove a couple of unused bindings (333da05)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/333da05ffa28ac0eb95df397be9d48234cb046aa

>---------------------------------------------------------------

commit 333da05ffa28ac0eb95df397be9d48234cb046aa
Author: Ian Lynagh <igloo at earth.li>
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,