diff options
| -rw-r--r-- | compiler/basicTypes/IdInfo.lhs | 2 | ||||
| -rw-r--r-- | compiler/coreSyn/CoreUtils.lhs | 2 | ||||
| -rw-r--r-- | compiler/vectorise/Vectorise.hs | 1 |
3 files changed, 3 insertions, 2 deletions
diff --git a/compiler/basicTypes/IdInfo.lhs b/compiler/basicTypes/IdInfo.lhs index 2c7572bed2..0da50ad5e0 100644 --- a/compiler/basicTypes/IdInfo.lhs +++ b/compiler/basicTypes/IdInfo.lhs @@ -38,7 +38,7 @@ module IdInfo ( -- ** The OccInfo type OccInfo(..), - isDeadOcc, isLoopBreaker, + isDeadOcc, isLoopBreaker, isNonRuleLoopBreaker, occInfo, setOccInfo, InsideLam, OneBranch, diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs index 26d6cbf038..ea0ebfe56e 100644 --- a/compiler/coreSyn/CoreUtils.lhs +++ b/compiler/coreSyn/CoreUtils.lhs @@ -1391,7 +1391,7 @@ tryEtaReduce bndrs body --------------- fun_arity fun -- See Note [Arity care] - | isLocalId fun && isLoopBreaker (idOccInfo fun) = 0 + | isLocalId fun && isNonRuleLoopBreaker (idOccInfo fun) = 0 | otherwise = idArity fun --------------- diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index 35ddd9d9a8..85b4e82705 100644 --- a/compiler/vectorise/Vectorise.hs +++ b/compiler/vectorise/Vectorise.hs @@ -274,6 +274,7 @@ vectTopRhs recFs var expr = do { let fvs = freeVars expr ; (inline, isScalar, vexpr) <- inBind var $ vectPolyExpr (isLoopBreaker $ idOccInfo var) recFs fvs + -- Maybe isNonRuleLoopBreaker? ; return (inline, isScalar, vectorised vexpr) } |