From: sewardj <unknown>
Date: Tue, 1 Feb 2000 16:02:12 +0000 (+0000)
Subject: [project @ 2000-02-01 16:02:12 by sewardj]
X-Git-Tag: Approximately_9120_patches~5164
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=08e02e4aa3f2350737bf46fc8deda70b215887c3;p=ghc-hetmet.git

[project @ 2000-02-01 16:02:12 by sewardj]
primOpStrictness(CatchOp): catch# isn't strict in its first arg.
---

diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs
index 0c7461e..305c6f7 100644
--- a/ghc/compiler/prelude/PrimOp.lhs
+++ b/ghc/compiler/prelude/PrimOp.lhs
@@ -933,7 +933,7 @@ primOpStrictness WriteMutVarOp	  = ([wwPrim, wwLazy, wwPrim], False)
 
 primOpStrictness PutMVarOp	  = ([wwPrim, wwLazy, wwPrim], False)
 
-primOpStrictness CatchOp	  = ([wwStrict, wwLazy, wwPrim], False)
+primOpStrictness CatchOp	  = ([wwLazy, wwLazy, wwPrim], False)
 primOpStrictness RaiseOp	  = ([wwLazy], True)	-- NB: True => result is bottom
 primOpStrictness BlockAsyncExceptionsOp    = ([wwLazy], False)
 primOpStrictness UnblockAsyncExceptionsOp  = ([wwLazy], False)