fprintCCS_stderr: untag the exception (#7319)
authorSimon Marlow <marlowsd@gmail.com>
Wed, 24 Oct 2012 12:39:34 +0000 (13:39 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Thu, 25 Oct 2012 12:29:58 +0000 (13:29 +0100)
rts/Profiling.c

index 1e7003e..ec38c92 100644 (file)
@@ -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: