From: simonmar <unknown>
Date: Wed, 6 Sep 2000 10:21:17 +0000 (+0000)
Subject: [project @ 2000-09-06 10:21:17 by simonmar]
X-Git-Tag: Approximately_9120_patches~3791
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3cc69ccd1a3eaaf59f0031673573baf93332c514;p=ghc-hetmet.git

[project @ 2000-09-06 10:21:17 by simonmar]
recode primOpOkForSpeculation in terms of primOpIsCheap and primOpCanFail.
---

diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs
index e6ced5a..9e946d8 100644
--- a/ghc/compiler/prelude/PrimOp.lhs
+++ b/ghc/compiler/prelude/PrimOp.lhs
@@ -365,7 +365,7 @@ See also @primOpIsCheap@ (below).
 primOpOkForSpeculation :: PrimOp -> Bool
 	-- See comments with CoreUtils.exprOkForSpeculation
 primOpOkForSpeculation op 
-  = not (primOpCanFail op || primOpHasSideEffects op || primOpOutOfLine op)
+  = primOpIsCheap op && not (primOpCanFail op)
 \end{code}