diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-10-24 13:39:34 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-10-25 13:29:58 +0100 |
| commit | 467e1a623d405440021e92572638be22f0cf5dda (patch) | |
| tree | d061d2ed0a495e1259569f4b52ac94856274a9e1 /rts/Profiling.c | |
| parent | cdf1389865885c190d4b2f0eb81fc659b375fb6f (diff) | |
| download | haskell-467e1a623d405440021e92572638be22f0cf5dda.tar.gz | |
fprintCCS_stderr: untag the exception (#7319)
Diffstat (limited to 'rts/Profiling.c')
| -rw-r--r-- | rts/Profiling.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Profiling.c b/rts/Profiling.c index 1e7003e041..ec38c927c2 100644 --- a/rts/Profiling.c +++ b/rts/Profiling.c @@ -1067,7 +1067,7 @@ fprintCCS_stderr (CostCentreStack *ccs, StgClosure *exception, StgTSO *tso) { char *desc; StgInfoTable *info; - info = get_itbl(exception); + info = get_itbl(UNTAG_CLOSURE(exception)); switch (info->type) { case CONSTR: case CONSTR_1_0: |