diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2020-03-13 19:22:43 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-03-14 19:35:24 -0400 |
| commit | 49e9d7395a13584f15798bce1601b8d3a6633f11 (patch) | |
| tree | 6549d4ed5406aef4cd3a490367636453ae9fee29 | |
| parent | 3f116d35a5b028ae2bb22da5063900d2f3d0b476 (diff) | |
| download | haskell-49e9d7395a13584f15798bce1601b8d3a6633f11.tar.gz | |
rts: Fix printClosure when printing fwd ptrs
| -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); } |