[project @ 2000-09-06 10:21:17 by simonmar]

recode primOpOkForSpeculation in terms of primOpIsCheap and primOpCanFail.

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}