diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2021-11-02 18:21:46 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-11-06 07:53:42 -0400 |
| commit | 2800eee24d006cfe5ed224e35e856154ae0cd444 (patch) | |
| tree | 0b885b48cb1d0b31701a97a6532215e4009414f0 /libraries/base/GHC/Conc/Sync.hs | |
| parent | 20956e5784fe43781d156dd7ab02f0bff4ab41fb (diff) | |
| download | haskell-2800eee24d006cfe5ed224e35e856154ae0cd444.tar.gz | |
Make Word64 use Word64# on every architecture
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. |