X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Frts%2FStorage.c;h=4933854049a353ff5abd43b8fc7b0230f380d730;hb=2322bc9a89a9d8a6132a6818ccff6f665d7ed7f1;hp=ef58c1f9794b5cfbdfcec430607fa9c2c0204c84;hpb=25cc1d1f2d9bf9a83725e49884bd83ab35000e3e;p=ghc-hetmet.git

diff --git a/ghc/rts/Storage.c b/ghc/rts/Storage.c
index ef58c1f..4933854 100644
--- a/ghc/rts/Storage.c
+++ b/ghc/rts/Storage.c
@@ -132,6 +132,7 @@ initStorage( void )
   
 #if defined(THREADED_RTS)
   initMutex(&sm_mutex);
+  initMutex(&atomic_modify_mutvar_mutex);
 #endif
 
   ACQUIRE_SM_LOCK;