diff options
author | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2012-12-05 15:28:19 +1100 |
---|---|---|
committer | Manuel M T Chakravarty <chak@cse.unsw.edu.au> | 2012-12-05 15:28:19 +1100 |
commit | b77da25ef0d95e776a43779bbb4843eb01d33552 (patch) | |
tree | 4aeb4d158a5e66d033bca83f2a804b2ce394b5ad /compiler/deSugar | |
parent | 2a7217e3fa39410ac61e17f5c8e2ce3976bec1a9 (diff) | |
download | haskell-b77da25ef0d95e776a43779bbb4843eb01d33552.tar.gz |
Rewrote vectorisation avoidance (based on the HS paper)
* Vectorisation avoidance is now the default
* Types and values from unvectorised modules are permitted in scalar code
* Simplified the VECTORISE pragmas (see http://hackage.haskell.org/trac/ghc/wiki/DataParallel/VectPragma for the spec)
* Vectorisation information is now included in the annotated Core AST
Diffstat (limited to 'compiler/deSugar')
-rw-r--r-- | compiler/deSugar/Desugar.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/Desugar.lhs b/compiler/deSugar/Desugar.lhs index 28b0582076..78c95ceb88 100644 --- a/compiler/deSugar/Desugar.lhs +++ b/compiler/deSugar/Desugar.lhs @@ -432,7 +432,7 @@ the rule is precisly to optimise them: dsVect :: LVectDecl Id -> DsM CoreVect dsVect (L loc (HsVect (L _ v) rhs)) = putSrcSpanDs loc $ - do { rhs' <- fmapMaybeM dsLExpr rhs + do { rhs' <- dsLExpr rhs ; return $ Vect v rhs' } dsVect (L _loc (HsNoVect (L _ v))) |