Fix a silly bug that would cause -xc to print less than useful information
authorSimon Marlow <marlowsd@gmail.com>
Mon, 22 Oct 2012 14:44:58 +0000 (15:44 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Tue, 23 Oct 2012 10:13:30 +0000 (11:13 +0100)
rts/Profiling.c

index d43fc6a..1e7003e 100644 (file)
@@ -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);
     }