Commit 2af18952 authored by chak@cse.unsw.edu.au.'s avatar chak@cse.unsw.edu.au.
Browse files

Vectoriser: VECTORISE pragma assumes parallel values

parent 40614d8e
......@@ -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 ->
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment