diff options
Diffstat (limited to 'rts/Printer.c')
| -rw-r--r-- | rts/Printer.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index 15404e1205..b0e583d3f2 100644 --- a/rts/Printer.c +++ b/rts/Printer.c @@ -117,7 +117,7 @@ printClosure( const StgClosure *obj ) const StgInfoTable* info = get_itbl(obj); while (IS_FORWARDING_PTR(info)) { - obj = (StgClosure*)UN_FORWARDING_PTR(obj); + obj = (StgClosure*)UN_FORWARDING_PTR(info); debugBelch("(forwarding to %p) ", (void*)obj); info = get_itbl(obj); } |