diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-05-30 11:55:02 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-05-30 11:59:08 +0300 |
| commit | 929bbe4fb2bc701d4820bcf7a1b1ff074f8d6226 (patch) | |
| tree | 8d65c8eaa7311f8bb80d60ef37de224d6ce5d85f | |
| parent | 12458359c9312b0e2b7332a6b527d7dfa4325667 (diff) | |
| download | haskell-929bbe4fb2bc701d4820bcf7a1b1ff074f8d6226.tar.gz | |
Handle TREC_CHUNK in printClosure
| -rw-r--r-- | rts/Printer.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index 46a20762f8..ae76a4143e 100644 --- a/rts/Printer.c +++ b/rts/Printer.c @@ -412,6 +412,9 @@ printClosure( const StgClosure *obj ) (W_)((StgCompactNFData *)obj)->totalW * (W_)sizeof(W_)); break; + case TREC_CHUNK: + debugBelch("TREC_CHUNK\n"); + break; default: //barf("printClosure %d",get_itbl(obj)->type); |