diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-06-24 23:59:22 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-06-24 23:59:22 +0100 |
| commit | 552f8910ef77b1455f6210220447dcc686894e19 (patch) | |
| tree | 61c6649aa7afa4672a2d0946a992bd126e794392 /rts/Printer.c | |
| parent | 03e168143485873b3f4ccceee2943d5e14b0ac94 (diff) | |
| download | haskell-552f8910ef77b1455f6210220447dcc686894e19.tar.gz | |
Remove a couple of unused variables
Diffstat (limited to 'rts/Printer.c')
| -rw-r--r-- | rts/Printer.c | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index fcc483dce6..008427113a 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: |