Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/c7942f9722f1f7a361a4dbf47f44c3d0f4c84b00 >--------------------------------------------------------------- commit c7942f9722f1f7a361a4dbf47f44c3d0f4c84b00 Author: Simon Marlow <[email protected]> Date: Mon Oct 22 15:44:58 2012 +0100 Fix a silly bug that would cause -xc to print less than useful information >--------------------------------------------------------------- rts/Profiling.c | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/rts/Profiling.c b/rts/Profiling.c index d43fc6a..1e7003e 100644 --- a/rts/Profiling.c +++ b/rts/Profiling.c @@ -1078,8 +1078,10 @@ fprintCCS_stderr (CostCentreStack *ccs, StgClosure *exception, StgTSO *tso) case CONSTR_STATIC: case CONSTR_NOCAF_STATIC: desc = GET_CON_DESC(itbl_to_con_itbl(info)); - default: + break; + default: desc = closure_type_names[info->type]; + break; } fprintf(stderr, "*** Exception (reporting due to +RTS -xc): (%s), stack trace: \n ", desc); } _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
