diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-08-24 13:19:25 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-08-24 13:19:25 +0000 |
| commit | bb276c343d6e2257326afa4f742ce5bfbb659567 (patch) | |
| tree | 051d4ea0166174a7a07dcaed63668a916bff7f00 /rts/RtsStartup.c | |
| parent | 03d716b3191301dad808d6ad861bc7343fc409d4 (diff) | |
| download | haskell-bb276c343d6e2257326afa4f742ce5bfbb659567.tar.gz | |
freeProfiling1() needs to be after endProfiling()
Fixes another crash with biographical profiling.
Diffstat (limited to 'rts/RtsStartup.c')
| -rw-r--r-- | rts/RtsStartup.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index 951b07fab2..51047218fe 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -478,9 +478,8 @@ hs_exit_(rtsBool wait_foreign) reportCCSProfiling(); #endif - freeProfiling1(); - endProfiling(); + freeProfiling1(); #ifdef PROFILING // Originally, this was in report_ccs_profiling(). Now, retainer |