projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Removed minor bug
[ghc-hetmet.git]
/
compiler
/
vectorise
/
Vectorise
/
Exp.hs
diff --git
a/compiler/vectorise/Vectorise/Exp.hs
b/compiler/vectorise/Vectorise/Exp.hs
index
c3793dc
..
d792fd6
100644
(file)
--- a/
compiler/vectorise/Vectorise/Exp.hs
+++ b/
compiler/vectorise/Vectorise/Exp.hs
@@
-244,7
+244,7
@@
vectScalarLam args body
is_scalar vs e@(Case eC eId ty alts)
= let vs' = extendVarSet vs eId
in -- pprTrace "is_scalar Case" (ppr e) $
- cantbe_parr_expr e
+ cantbe_parr_expr e &&
is_prim_ty ty &&
is_scalar vs' eC &&
(all (is_scalar_alt vs') alts)