[commit: ghc] ghc-7.6: fprintCCS_stderr: untag the exception (#7319) (acaf240)

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

On branch  : ghc-7.6

http://hackage.haskell.org/trac/ghc/changeset/acaf240f56cf91c3828f25da1d18a91326499818

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

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

    fprintCCS_stderr: untag the exception (#7319)
    
    MERGED from commit 467e1a623d405440021e92572638be22f0cf5dda

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

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

diff --git a/rts/Profiling.c b/rts/Profiling.c
index d43fc6a..6015de9 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: