diff options
| author | Gabriele Keller <keller@cse.unsw.edu.au> | 2012-04-25 14:37:26 +1000 |
|---|---|---|
| committer | Gabriele Keller <keller@cse.unsw.edu.au> | 2012-04-25 20:16:19 +1000 |
| commit | 61e9a6cc3536a28ae3b9d3507d2bda58993c2fe5 (patch) | |
| tree | 7e5a915c34d12f2723f0a1d8a098ff36d700ea5c /compiler/vectorise/Vectorise.hs | |
| parent | 0f8151aa7a713c5b10988636f0a7080cddeb19c2 (diff) | |
| download | haskell-61e9a6cc3536a28ae3b9d3507d2bda58993c2fe5.tar.gz | |
removed superfluous flag for vectScalarFun
Diffstat (limited to 'compiler/vectorise/Vectorise.hs')
| -rw-r--r-- | compiler/vectorise/Vectorise.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index 88fc947242..8f6e32130f 100644 --- a/compiler/vectorise/Vectorise.hs +++ b/compiler/vectorise/Vectorise.hs @@ -361,7 +361,7 @@ vectTopRhs recFs var expr rhs _globalScalar _isDFun (Just (_, expr')) -- Case (1) = return (inlineMe, False, expr') rhs True False Nothing -- Case (2) - = do { expr' <- vectScalarFun True recFs expr + = do { expr' <- vectScalarFun recFs expr ; return (inlineMe, True, vectorised expr') } rhs True True Nothing -- Case (3) |