[project @ 2005-10-21 13:10:48 by simonmar]
authorsimonmar <unknown>
Fri, 21 Oct 2005 13:10:48 +0000 (13:10 +0000)
committersimonmar <unknown>
Fri, 21 Oct 2005 13:10:48 +0000 (13:10 +0000)
cmp_thread returns CInt, not Int

libraries/base/Control/Concurrent.hs

index 6f183cb..6fddd7a 100644 (file)
@@ -178,7 +178,7 @@ functions blocks only the thread making the call.
 id2TSO :: ThreadId -> ThreadId#
 id2TSO (ThreadId t) = t
 
-foreign import ccall unsafe "cmp_thread" cmp_thread :: ThreadId# -> ThreadId# -> Int
+foreign import ccall unsafe "cmp_thread" cmp_thread :: ThreadId# -> ThreadId# -> CInt
 -- Returns -1, 0, 1
 
 cmpThread :: ThreadId -> ThreadId -> Ordering