[commit: ghc] master: Vectoriser: VECTORISE pragma assumes parallel values (2af1895)

[Manuel Chakravarty]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/2af18952e741ac475e8dc6b780feaec57a5c83ff

>---------------------------------------------------------------

commit 2af18952e741ac475e8dc6b780feaec57a5c83ff
Author: Manuel M T Chakravarty <chak at cse.unsw.edu.au>
Date:   Wed Dec 12 18:34:45 2012 +1100

    Vectoriser: VECTORISE pragma assumes parallel values

>---------------------------------------------------------------

 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 e6c4b1e..c721414 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         ->