diff options
| -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} |