Commit 630659b5 authored by simonpj's avatar simonpj
Browse files

[project @ 2001-09-11 09:02:43 by simonpj]

--------------------------
	Strictness of blockAsynch
	--------------------------

	MERGE WITH STABLE BRANCH

If we're going to supply strictness info for blockAsynchExceptions#,
it should match its arity (as other State# transformers do).
parent 3ea73c48
-----------------------------------------------------------------------
-- $Id: primops.txt.pp,v 1.5 2001/08/31 15:28:49 apt Exp $
-- $Id: primops.txt.pp,v 1.6 2001/09/11 09:02:43 simonpj Exp $
--
-- Primitive Operations
--
......@@ -1262,14 +1262,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
------------------------------------------------------------------------
......
Supports Markdown
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