diff options
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Printer.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index d184423678..46a20762f8 100644 --- a/rts/Printer.c +++ b/rts/Printer.c @@ -624,10 +624,14 @@ printStackChunk( StgPtr sp, StgPtr spBottom ) } } +static void printStack( StgStack *stack ) +{ + printStackChunk( stack->sp, stack->stack + stack->stack_size ); +} + void printTSO( StgTSO *tso ) { - printStackChunk( tso->stackobj->sp, - tso->stackobj->stack+tso->stackobj->stack_size); + printStack( tso->stackobj ); } /* -------------------------------------------------------------------------- |