summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2009-04-03 13:27:31 +0000
committerSimon Marlow <marlowsd@gmail.com>2009-04-03 13:27:31 +0000
commite562d3a5cefc282213f64f2a3111007ef7987c8b (patch)
tree7d3b2d7e1e53566a5ab6f8e2bb37c86ff9e2a1a9
parentff93deac2a5c02111bcc4cf5a3c87aefe4d6dc6c (diff)
downloadhaskell-e562d3a5cefc282213f64f2a3111007ef7987c8b.tar.gz
remove now-unused atomic_modify_mutvar_mutex
-rw-r--r--rts/sm/Storage.c6
1 files changed, 0 insertions, 6 deletions
diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index cfe649ab68..ebb33f4cd4 100644
--- a/rts/sm/Storage.c
+++ b/rts/sm/Storage.c
@@ -69,10 +69,6 @@ step *nurseries = NULL; /* array of nurseries, >1 only if THREADED_RTS *
* simultaneous access by two STG threads.
*/
Mutex sm_mutex;
-/*
- * This mutex is used by atomicModifyMutVar# only
- */
-Mutex atomic_modify_mutvar_mutex;
#endif
@@ -148,7 +144,6 @@ initStorage( void )
#if defined(THREADED_RTS)
initMutex(&sm_mutex);
- initMutex(&atomic_modify_mutvar_mutex);
#endif
ACQUIRE_SM_LOCK;
@@ -297,7 +292,6 @@ freeStorage (void)
freeAllMBlocks();
#if defined(THREADED_RTS)
closeMutex(&sm_mutex);
- closeMutex(&atomic_modify_mutvar_mutex);
#endif
stgFree(nurseries);
}