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 <marlo...@gmail.com> 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: _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
