X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fprelude%2Fprimops.txt.pp;fp=compiler%2Fprelude%2Fprimops.txt.pp;h=777e83fe74ad20d6c18809ed594bb5cb35cba36a;hp=525a837940453bedcf07b58cbb3d292003a7c62b;hb=59977b6c7cc81777dc6f8266c68945d1ab691aec;hpb=3da491217855adfe4eeace6493c9a625e23965ea

diff --git a/compiler/prelude/primops.txt.pp b/compiler/prelude/primops.txt.pp
index 525a837..777e83f 100644
--- a/compiler/prelude/primops.txt.pp
+++ b/compiler/prelude/primops.txt.pp
@@ -1449,7 +1449,7 @@ primop  NoDuplicateOp "noDuplicate#" GenPrimOp
    has_side_effects = True
 
 primop  ThreadStatusOp "threadStatus#" GenPrimOp
-   ThreadId# -> State# RealWorld -> (# State# RealWorld, Int# #)
+   ThreadId# -> State# RealWorld -> (# State# RealWorld, Int#, Int#, Int# #)
    with
    out_of_line = True
    has_side_effects = True