haskell-effectful/effectful
1
1
Fork 0
mirror of https://github.com/haskell-effectful/effectful.git synced 2024-11-26 15:25:46 +03:00
Code Issues Projects Releases Wiki Activity

Correctly import rts_getThreadId in GHC >= 9.4

Browse Source
This commit is contained in:
Andrzej Rybczak 2023-01-18 19:31:36 +01:00
parent d8448f747a
commit a3faef560d
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
effectful-core/src/Effectful/Internal/Utils.hs
View File

@ -33,6 +33,10 @@ import GHC.Conc.Sync (ThreadId(..))
import GHC.Exts (Addr#, Any, ThreadId#, unsafeCoerce#) import GHC.Exts (Addr#, Any, ThreadId#, unsafeCoerce#)
import Unsafe.Coerce (unsafeCoerce) import Unsafe.Coerce (unsafeCoerce)
#if __GLASGOW_HASKELL__ >= 904
import Data.Word
#endif
-- | Get an id of a thread that doesn't prevent its garbage collection. -- | Get an id of a thread that doesn't prevent its garbage collection.
weakThreadId :: ThreadId -> Int weakThreadId :: ThreadId -> Int
weakThreadId (ThreadId t#) = fromIntegral $ rts_getThreadId (threadIdToAddr# t#) weakThreadId (ThreadId t#) = fromIntegral $ rts_getThreadId (threadIdToAddr# t#)
@ -40,7 +44,7 @@ weakThreadId (ThreadId t#) = fromIntegral $ rts_getThreadId (threadIdToAddr# t#)
foreign import ccall unsafe "rts_getThreadId" foreign import ccall unsafe "rts_getThreadId"
#if __GLASGOW_HASKELL__ >= 904 #if __GLASGOW_HASKELL__ >= 904
-- https://gitlab.haskell.org/ghc/ghc/-/merge_requests/6163 -- https://gitlab.haskell.org/ghc/ghc/-/merge_requests/6163
rts_getThreadId :: Addr# -> CULLong rts_getThreadId :: Addr# -> Word64
#elif __GLASGOW_HASKELL__ >= 900 #elif __GLASGOW_HASKELL__ >= 900
-- https://gitlab.haskell.org/ghc/ghc/-/merge_requests/1254 -- https://gitlab.haskell.org/ghc/ghc/-/merge_requests/1254
rts_getThreadId :: Addr# -> CLong rts_getThreadId :: Addr# -> CLong