diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2009-01-12 05:34:21 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2009-01-12 05:34:21 +0000 |
| commit | 42d87c155aaa9863c40dcdb28af1d23d31b35c9f (patch) | |
| tree | 9df27555e8c2c0040b1c6b3339503b77c5f5f2f9 /rts/Printer.c | |
| parent | 4cc0cf0ce1a313b7cc4999dda36cd7efb5fe0435 (diff) | |
| download | haskell-42d87c155aaa9863c40dcdb28af1d23d31b35c9f.tar.gz | |
Untag closure pointers before trying to print them.
In RTS tracing code, need to untag the pointer before trying
to load the info table in printClosure()
Diffstat (limited to 'rts/Printer.c')
| -rw-r--r-- | rts/Printer.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index 1ad63063f8..2fbe2765a6 100644 --- a/rts/Printer.c +++ b/rts/Printer.c @@ -121,8 +121,9 @@ printThunkObject( StgThunk *obj, char* tag ) void printClosure( StgClosure *obj ) { + obj = UNTAG_CLOSURE(obj); + StgInfoTable *info; - info = get_itbl(obj); switch ( info->type ) { |