From: simonpj <unknown>
Date: Mon, 23 Jul 2001 10:48:56 +0000 (+0000)
Subject: [project @ 2001-07-23 10:48:56 by simonpj]
X-Git-Tag: Approximately_9120_patches~1483
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9c2209354ec9c513af06549c0e9341f10f7cee83;p=ghc-hetmet.git

[project @ 2001-07-23 10:48:56 by simonpj]
block/unblockAsynchExns have arity 2
---

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