Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/467e1a623d405440021e92572638be22f0cf5dda >--------------------------------------------------------------- commit 467e1a623d405440021e92572638be22f0cf5dda Author: Simon Marlow <marlo...@gmail.com> 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: _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
