Commit 552f8910 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Remove a couple of unused variables

parent 03e16814
...@@ -418,10 +418,8 @@ printStackObj( StgPtr sp ) ...@@ -418,10 +418,8 @@ printStackObj( StgPtr sp )
static void static void
printSmallBitmap( StgPtr spBottom, StgPtr payload, StgWord bitmap, nat size ) printSmallBitmap( StgPtr spBottom, StgPtr payload, StgWord bitmap, nat size )
{ {
StgPtr p;
nat i; nat i;
p = payload;
for(i = 0; i < size; i++, bitmap >>= 1 ) { for(i = 0; i < size; i++, bitmap >>= 1 ) {
debugBelch(" stk[%ld] (%p) = ", (long)(spBottom-(payload+i)), payload+i); debugBelch(" stk[%ld] (%p) = ", (long)(spBottom-(payload+i)), payload+i);
if ((bitmap & 1) == 0) { if ((bitmap & 1) == 0) {
...@@ -531,11 +529,9 @@ printStackChunk( StgPtr sp, StgPtr spBottom ) ...@@ -531,11 +529,9 @@ printStackChunk( StgPtr sp, StgPtr spBottom )
{ {
StgFunInfoTable *fun_info; StgFunInfoTable *fun_info;
StgRetFun *ret_fun; StgRetFun *ret_fun;
nat size;
ret_fun = (StgRetFun *)sp; ret_fun = (StgRetFun *)sp;
fun_info = get_fun_itbl(ret_fun->fun); 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); debugBelch("RET_FUN (%p) (type=%d)\n", ret_fun->fun, fun_info->f.fun_type);
switch (fun_info->f.fun_type) { switch (fun_info->f.fun_type) {
case ARG_GEN: case ARG_GEN:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment