X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fprelude%2Fprimops.txt.pp;h=39ae85d1af14a66a1f678ce586f670707f8a9d5c;hp=302640d581a703af9591bb85f327a2dd8609cd56;hb=d9f20043f1bff6d3731e62de4db4d98fcff57498;hpb=a5b95b1f569d05b2a04583ff6042add3efaaefc3

diff --git a/compiler/prelude/primops.txt.pp b/compiler/prelude/primops.txt.pp
index 302640d..39ae85d 100644
--- a/compiler/prelude/primops.txt.pp
+++ b/compiler/prelude/primops.txt.pp
@@ -1531,6 +1531,11 @@ primop  NoDuplicateOp "noDuplicate#" GenPrimOp
    with
    out_of_line = True
 
+primop  ThreadStatusOp "threadStatus#" GenPrimOp
+   ThreadId# -> State# RealWorld -> (# State# RealWorld, Int# #)
+   with
+   out_of_line = True
+
 ------------------------------------------------------------------------
 section "Weak pointers"
 ------------------------------------------------------------------------