diff options
Diffstat (limited to 'libraries/base/GHC/Conc/Sync.hs')
| -rw-r--r-- | libraries/base/GHC/Conc/Sync.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/libraries/base/GHC/Conc/Sync.hs b/libraries/base/GHC/Conc/Sync.hs index 38ce56ccbf..d5fb4868df 100644 --- a/libraries/base/GHC/Conc/Sync.hs +++ b/libraries/base/GHC/Conc/Sync.hs @@ -92,8 +92,6 @@ module GHC.Conc.Sync , sharedCAF ) where -#include "MachDeps.h" - import Foreign import Foreign.C @@ -194,11 +192,7 @@ instance Ord ThreadId where -- @since 4.8.0.0 setAllocationCounter :: Int64 -> IO () setAllocationCounter (I64# i) = IO $ \s -> -#if WORD_SIZE_IN_BITS < 64 case setThreadAllocationCounter# i s of s' -> (# s', () #) -#else - case setThreadAllocationCounter# (intToInt64# i) s of s' -> (# s', () #) -#endif -- | Return the current value of the allocation counter for the -- current thread. |