Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/552f8910ef77b1455f6210220447dcc686894e19 >--------------------------------------------------------------- commit 552f8910ef77b1455f6210220447dcc686894e19 Author: Ian Lynagh <[email protected]> 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: _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
