diff options
Diffstat (limited to 'compiler/vectorise/Vectorise.hs')
| -rw-r--r-- | compiler/vectorise/Vectorise.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index 5e45c977d8..8c9579e621 100644 --- a/compiler/vectorise/Vectorise.hs +++ b/compiler/vectorise/Vectorise.hs @@ -189,9 +189,13 @@ vectTopRhs vectTopRhs var expr = dtrace (vcat [text "vectTopRhs", ppr expr]) $ closedV - $ do (inline, vexpr) <- inBind var + $ do (inline, isScalar, vexpr) <- inBind var + $ pprTrace "vectTopRhs" (ppr var) $ vectPolyExpr (isLoopBreaker $ idOccInfo var) (freeVars expr) + if isScalar + then addGlobalScalar var + else return () return (inline, vectorised vexpr) |