Vectoriser: VECTORISE pragma assumes parallel values
authorManuel M T Chakravarty <chak@cse.unsw.edu.au>
Wed, 12 Dec 2012 07:34:45 +0000 (18:34 +1100)
committerManuel M T Chakravarty <chak@cse.unsw.edu.au>
Wed, 12 Dec 2012 07:34:45 +0000 (18:34 +1100)
compiler/vectorise/Vectorise.hs

index e6c4b1e..c721414 100644 (file)
@@ -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         ->