From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 3 Apr 2009 13:27:31 +0000 (+0000)
Subject: remove now-unused atomic_modify_mutvar_mutex
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=e562d3a5cefc282213f64f2a3111007ef7987c8b

remove now-unused atomic_modify_mutvar_mutex
---

diff --git a/rts/sm/Storage.c b/rts/sm/Storage.c
index cfe649a..ebb33f4 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);
 }