oops, initialize atomic_modify_mutvar_mutex

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

+  initMutex(&atomic_modify_mutvar_mutex);

 #endif
 
   ACQUIRE_SM_LOCK;
 #endif
 
   ACQUIRE_SM_LOCK;