[commit: ghc] master: fprintCCS_stderr: untag the exception (#7319) (467e1a6)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/467e1a623d405440021e92572638be22f0cf5dda

>---------------------------------------------------------------

commit 467e1a623d405440021e92572638be22f0cf5dda
Author: Simon Marlow <[email protected]>
Date:   Wed Oct 24 13:39:34 2012 +0100

    fprintCCS_stderr: untag the exception (#7319)

>---------------------------------------------------------------

 rts/Profiling.c |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/rts/Profiling.c b/rts/Profiling.c
index 1e7003e..ec38c92 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: