From 630659b5d2fdfebb83859c762a89871fc5536f94 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 11 Sep 2001 09:02:43 +0000
Subject: [PATCH] [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).
---
 ghc/compiler/prelude/primops.txt.pp |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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
 
 ------------------------------------------------------------------------
-- 
1.7.10.4