[commit: ghc] master: Fix a silly bug that would cause -xc to print less than useful information (c7942f9)

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);
     }