Commit 9c220935 authored by simonpj's avatar simonpj
Browse files

[project @ 2001-07-23 10:48:56 by simonpj]

block/unblockAsynchExns have arity 2
parent 6f83fbc0
-----------------------------------------------------------------------
-- $Id: primops.txt,v 1.21 2001/07/13 11:39:48 rrt Exp $
-- $Id: primops.txt,v 1.22 2001/07/23 10:48:56 simonpj Exp $
--
-- Primitive Operations
--
......@@ -1017,14 +1017,14 @@ primop BlockAsyncExceptionsOp "blockAsyncExceptions#" GenPrimOp
(State# RealWorld -> (# State# RealWorld, a #))
-> (State# RealWorld -> (# State# RealWorld, a #))
with
strictness = { \ arity -> StrictnessInfo [wwLazy] False }
strictness = { \ arity -> StrictnessInfo [wwLazy,wwPrim] False }
out_of_line = True
primop UnblockAsyncExceptionsOp "unblockAsyncExceptions#" GenPrimOp
(State# RealWorld -> (# State# RealWorld, a #))
-> (State# RealWorld -> (# State# RealWorld, a #))
with
strictness = { \ arity -> StrictnessInfo [wwLazy] False }
strictness = { \ arity -> StrictnessInfo [wwLazy,wwPrim] False }
out_of_line = True
------------------------------------------------------------------------
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment