diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-10-22 15:44:58 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-10-23 11:13:30 +0100 |
| commit | c7942f9722f1f7a361a4dbf47f44c3d0f4c84b00 (patch) | |
| tree | e134e77291d46f0223567027317eceeb89e2f016 /rts | |
| parent | 2c2be637206cb1d58f4fc8a4a2e717e419c9fa5d (diff) | |
| download | haskell-c7942f9722f1f7a361a4dbf47f44c3d0f4c84b00.tar.gz | |
Fix a silly bug that would cause -xc to print less than useful information
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/Profiling.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/rts/Profiling.c b/rts/Profiling.c index d43fc6ad54..1e7003e041 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); } |