ghc/rts/StoragePriv.h

   1 /* -----------------------------------------------------------------------------
   2  *
   3  * (c) The GHC Team, 1998-2005
   4  *
   5  * Storage manager bits visible to the rest of the RTS only
   6  *
   7  * ---------------------------------------------------------------------------*/
   8
   9 #ifndef STORAGEPRIV_H
  10 #define STORAGEPRIV_H
  11
  12 /*
  13  * Storage manager mutex
  14  */
  15 #if defined(SMP)
  16 extern Mutex sm_mutex;
  17 #define ACQUIRE_SM_LOCK   ACQUIRE_LOCK(&sm_mutex)
  18 #define RELEASE_SM_LOCK   RELEASE_LOCK(&sm_mutex)
  19 #else
  20 #define ACQUIRE_SM_LOCK
  21 #define RELEASE_SM_LOCK
  22 #endif
  23
  24 #endif /* STORAGEPRIV_H */