diff options
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Profiling.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/rts/Profiling.c b/rts/Profiling.c index d43fc6ad54..1e7003e041 100644 --- a/rts/Profiling.c +++ b/rts/Profiling.c @@ -1078,8 +1078,10 @@ fprintCCS_stderr (CostCentreStack *ccs, StgClosure *exception, StgTSO *tso) case CONSTR_STATIC: case CONSTR_NOCAF_STATIC: desc = GET_CON_DESC(itbl_to_con_itbl(info)); - default: + break; + default: desc = closure_type_names[info->type]; + break; } fprintf(stderr, "*** Exception (reporting due to +RTS -xc): (%s), stack trace: \n ", desc); } |