diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-05-08 10:45:51 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-05-08 10:45:51 +0000 |
| commit | 897bcbf84da1b217503e86910ac27255106fc026 (patch) | |
| tree | 3249987a2cf579f8cd6a0c64c53d066ceceaebbf /rts | |
| parent | 7f6c03992744898286d41529200508f775a77e04 (diff) | |
| download | haskell-897bcbf84da1b217503e86910ac27255106fc026.tar.gz | |
FIX: #1227 (biographical profiling broken)
We were freeing the hash table storage with exitHashTable() before
calling endProfiling(), which uses hash tables.
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/RtsStartup.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index 1d0fec5dd7..f0b39d6a0a 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -459,9 +459,6 @@ hs_exit(void) freeThreadLabelTable(); #endif - /* free hash table storage */ - exitHashTable(); - #ifdef RTS_GTK_FRONTPANEL if (RtsFlags.GcFlags.frontpanel) { stopFrontPanel(); @@ -489,6 +486,9 @@ hs_exit(void) shutdownAsyncIO(); #endif + /* free hash table storage */ + exitHashTable(); + // Finally, free all our storage freeStorage(); |