From: simonpj <unknown>
Date: Tue, 11 Sep 2001 09:02:43 +0000 (+0000)
Subject: [project @ 2001-09-11 09:02:43 by simonpj]
X-Git-Tag: Approximately_9120_patches~995
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=630659b5d2fdfebb83859c762a89871fc5536f94;p=ghc-hetmet.git

[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).
---

diff --git a/ghc/compiler/prelude/primops.txt.pp b/ghc/compiler/prelude/primops.txt.pp
index a30eb73..1484732 100644
--- a/ghc/compiler/prelude/primops.txt.pp
+++ b/ghc/compiler/prelude/primops.txt.pp
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------
--- $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
 
 ------------------------------------------------------------------------