diff options
| author | Esa Ilari Vuokko <ei@vuokko.info> | 2006-08-23 19:46:04 +0000 |
|---|---|---|
| committer | Esa Ilari Vuokko <ei@vuokko.info> | 2006-08-23 19:46:04 +0000 |
| commit | 88b35c172f9434fd98b700f706074d142914a8bb (patch) | |
| tree | 69dad172652bfbb112ab2ef8afc964c0112b662b /rts/Storage.c | |
| parent | 52589e05f86d593bc3e6ea3f1a0b8f6ceae94fe6 (diff) | |
| download | haskell-88b35c172f9434fd98b700f706074d142914a8bb.tar.gz | |
Add closeMutex and use it on clean up
Diffstat (limited to 'rts/Storage.c')
| -rw-r--r-- | rts/Storage.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/rts/Storage.c b/rts/Storage.c index 3594f7197f..0c9c60e580 100644 --- a/rts/Storage.c +++ b/rts/Storage.c @@ -279,6 +279,10 @@ freeStorage (void) stgFree(generations[g].steps); stgFree(generations); freeAllMBlocks(); +#if defined(THREADED_RTS) + closeMutex(&sm_mutex); + closeMutex(&atomic_modify_mutvar_mutex); +#endif } /* ----------------------------------------------------------------------------- |