diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-11-14 15:13:33 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-11-14 15:14:09 +0000 |
| commit | e37893cbe8c289dc56cecf6dff5c8b64ed8c3485 (patch) | |
| tree | ee691b3bb6a667e865321f779fa48cc92dc504ba /rts/Profiling.h | |
| parent | 66962374847686e84692ce319a1427e96ac8440c (diff) | |
| download | haskell-e37893cbe8c289dc56cecf6dff5c8b64ed8c3485.tar.gz | |
+RTS -xc: print a the closure type of the exception too
Diffstat (limited to 'rts/Profiling.h')
| -rw-r--r-- | rts/Profiling.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Profiling.h b/rts/Profiling.h index 2ee3311c81..8c365220fb 100644 --- a/rts/Profiling.h +++ b/rts/Profiling.h @@ -35,7 +35,7 @@ void reportCCSProfiling ( void ); void PrintNewStackDecls ( void ); void fprintCCS( FILE *f, CostCentreStack *ccs ); -void fprintCCS_stderr (CostCentreStack *ccs, StgTSO *tso); +void fprintCCS_stderr (CostCentreStack *ccs, StgClosure *exception, StgTSO *tso); #ifdef DEBUG void debugCCS( CostCentreStack *ccs ); |