From 3cc69ccd1a3eaaf59f0031673573baf93332c514 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 6 Sep 2000 10:21:17 +0000
Subject: [PATCH] [project @ 2000-09-06 10:21:17 by simonmar] recode
primOpOkForSpeculation in terms of primOpIsCheap and primOpCanFail.
---
ghc/compiler/prelude/PrimOp.lhs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs
index e6ced5ade73c..9e946d8445f5 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}
--
GitLab