diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-07-21 12:38:23 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-07-21 12:38:23 +0100 |
| commit | e815d4b125c3804695a2a0b120e1eac142547873 (patch) | |
| tree | af720a5b307d57049e2967d78bd9e7e16c23049f /compiler/vectorise/Vectorise.hs | |
| parent | 6e7a74f339d424379d9c3e724fc710037effa8a5 (diff) | |
| download | haskell-e815d4b125c3804695a2a0b120e1eac142547873.tar.gz | |
Change loop breaker terminology
We used to have "loop breaker" and "non-rule loop breaker", but
the unqualified version in particualr was pretty confusing. So
now we have "strong loop breaker" and "weak loop breaker";
comments in BasicTypes and OccurAnal.
Diffstat (limited to 'compiler/vectorise/Vectorise.hs')
| -rw-r--r-- | compiler/vectorise/Vectorise.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index 85b4e82705..f5795424da 100644 --- a/compiler/vectorise/Vectorise.hs +++ b/compiler/vectorise/Vectorise.hs @@ -21,7 +21,7 @@ import Type import Id import OccName import DynFlags -import BasicTypes ( isLoopBreaker ) +import BasicTypes ( isStrongLoopBreaker ) import Outputable import Util ( zipLazy ) import MonadUtils @@ -273,8 +273,7 @@ vectTopRhs recFs var expr rhs False Nothing -- Case (3) = do { let fvs = freeVars expr ; (inline, isScalar, vexpr) <- inBind var $ - vectPolyExpr (isLoopBreaker $ idOccInfo var) recFs fvs - -- Maybe isNonRuleLoopBreaker? + vectPolyExpr (isStrongLoopBreaker $ idOccInfo var) recFs fvs ; return (inline, isScalar, vectorised vexpr) } |