[commit: ghc] master: Remove a couple of unused variables (552f891)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/552f8910ef77b1455f6210220447dcc686894e19

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

commit 552f8910ef77b1455f6210220447dcc686894e19
Author: Ian Lynagh <igloo at earth.li>
Date:   Fri Jun 24 23:59:22 2011 +0100

    Remove a couple of unused variables

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

 rts/Printer.c |    4 ----
 1 files changed, 0 insertions(+), 4 deletions(-)

diff --git a/rts/Printer.c b/rts/Printer.c
index fcc483d..0084271 100644
--- a/rts/Printer.c
+++ b/rts/Printer.c
@@ -418,10 +418,8 @@ printStackObj( StgPtr sp )
 static void
 printSmallBitmap( StgPtr spBottom, StgPtr payload, StgWord bitmap, nat size )
 {
-    StgPtr p;
     nat i;
 
-    p = payload;
     for(i = 0; i < size; i++, bitmap >>= 1 ) {
 	debugBelch("   stk[%ld] (%p) = ", (long)(spBottom-(payload+i)), payload+i);
 	if ((bitmap & 1) == 0) {
@@ -531,11 +529,9 @@ printStackChunk( StgPtr sp, StgPtr spBottom )
 	{
 	    StgFunInfoTable *fun_info;
 	    StgRetFun *ret_fun;
-	    nat size;
 
 	    ret_fun = (StgRetFun *)sp;
 	    fun_info = get_fun_itbl(ret_fun->fun);
-	    size = ret_fun->size;
 	    debugBelch("RET_FUN (%p) (type=%d)\n", ret_fun->fun, fun_info->f.fun_type);
 	    switch (fun_info->f.fun_type) {
 	    case ARG_GEN: