diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2011-06-30 17:47:05 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2011-06-30 17:47:05 +0100 |
| commit | b9795364120f94affdd6735e2337dbaf650b426d (patch) | |
| tree | 08b580aaddfe22b64e468bc838b6e13343e7f2f1 /compiler/vectorise/Vectorise.hs | |
| parent | aa03ea53028d77c125968b106b4c9b896e8058f2 (diff) | |
| download | haskell-b9795364120f94affdd6735e2337dbaf650b426d.tar.gz | |
Use isNonRuleLoopBreaker where possible, not isLoopBreaker
Diffstat (limited to 'compiler/vectorise/Vectorise.hs')
| -rw-r--r-- | compiler/vectorise/Vectorise.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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) } |