diff options
| author | simonmar <unknown> | 2000-09-06 10:21:17 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-09-06 10:21:17 +0000 |
| commit | 3cc69ccd1a3eaaf59f0031673573baf93332c514 (patch) | |
| tree | 99779b9e32b430171300f0eda9d4ab1d47cd0e39 | |
| parent | 040b7deab8dceb8cc98a596c38fdb207c10636f1 (diff) | |
| download | haskell-3cc69ccd1a3eaaf59f0031673573baf93332c514.tar.gz | |
[project @ 2000-09-06 10:21:17 by simonmar]
recode primOpOkForSpeculation in terms of primOpIsCheap and primOpCanFail.
| -rw-r--r-- | ghc/compiler/prelude/PrimOp.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/prelude/PrimOp.lhs b/ghc/compiler/prelude/PrimOp.lhs index e6ced5ade7..9e946d8445 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} |