diff options
| author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2012-12-12 18:34:45 +1100 |
|---|---|---|
| committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2012-12-12 18:34:45 +1100 |
| commit | 2af18952e741ac475e8dc6b780feaec57a5c83ff (patch) | |
| tree | 455d1cfb3d32071a67797b0fb99bccb5faf9adc5 /compiler/vectorise | |
| parent | 40614d8ee14f712d5585d0ae7e61759c62399b4b (diff) | |
| download | haskell-2af18952e741ac475e8dc6b780feaec57a5c83ff.tar.gz | |
Vectoriser: VECTORISE pragma assumes parallel values
Diffstat (limited to 'compiler/vectorise')
| -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 e6c4b1e0cf..c721414e37 100644 --- a/compiler/vectorise/Vectorise.hs +++ b/compiler/vectorise/Vectorise.hs @@ -156,6 +156,7 @@ vectTopBind b@(NonRec var expr) -- 'VECTORISE' pragma => just use the provided vectorised rhs do { traceVt "VECTORISE" $ ppr var + ; addGlobalParallelVar var ; return $ Just (False, inlineMe, expr') } Nothing -> |