diff options
Diffstat (limited to 'compiler/vectorise/Vectorise/Exp.hs')
| -rw-r--r-- | compiler/vectorise/Vectorise/Exp.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/vectorise/Vectorise/Exp.hs b/compiler/vectorise/Vectorise/Exp.hs index 368d99a1e3..770adb77de 100644 --- a/compiler/vectorise/Vectorise/Exp.hs +++ b/compiler/vectorise/Vectorise/Exp.hs @@ -1039,13 +1039,13 @@ vectAvoidInfo :: VarSet -> CoreExprWithFVs -> VM CoreExprWithVectInfo vectAvoidInfo pvs ce@(_, AnnVar v) = do { gpvs <- globalParallelVars - ; vi <- if v `elemVarSet` pvs || v `elemVarSet` gpvs + ; vi <- if v `elemVarSet` pvs || v `elemDVarSet` gpvs then return VIParr else vectAvoidInfoTypeOf ce ; viTrace ce vi [] ; when (vi == VIParr) $ traceVt " reason:" $ if v `elemVarSet` pvs then text "local" else - if v `elemVarSet` gpvs then text "global" else text "parallel type" + if v `elemDVarSet` gpvs then text "global" else text "parallel type" ; return ((fvs, vi), AnnVar v) } |