Skip to content
Snippets Groups Projects
Commit 12bbc18a authored by Simon Peyton Jones's avatar Simon Peyton Jones Committed by Ian Lynagh
Browse files

Use isNonRuleLoopBreaker where possible, not isLoopBreaker

parent db1f41ac
No related branches found
No related tags found
No related merge requests found
......@@ -38,7 +38,7 @@ module IdInfo (
-- ** The OccInfo type
OccInfo(..),
isDeadOcc, isLoopBreaker,
isDeadOcc, isLoopBreaker, isNonRuleLoopBreaker,
occInfo, setOccInfo,
InsideLam, OneBranch,
......
......@@ -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
---------------
......
......@@ -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)
}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment