diff options
Diffstat (limited to 'rts/Profiling.c')
| -rw-r--r-- | rts/Profiling.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/Profiling.c b/rts/Profiling.c index f6430ae41a..a4fc281967 100644 --- a/rts/Profiling.c +++ b/rts/Profiling.c @@ -1107,9 +1107,9 @@ fprintCCS_stderr (CostCentreStack *ccs, StgClosure *exception, StgTSO *tso) const uint32_t MAX_DEPTH = 10; // don't print gigantic chains of stacks { - char *desc; - StgInfoTable *info; - info = get_itbl(UNTAG_CLOSURE(exception)); + const char *desc; + const StgInfoTable *info; + info = get_itbl(UNTAG_CONST_CLOSURE(exception)); switch (info->type) { case CONSTR: case CONSTR_1_0: |