projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
52667c2
)
Removed minor bug
author
keller@cse.unsw.edu.au
<unknown>
Wed, 2 Feb 2011 04:08:26 +0000
(
04:08
+0000)
committer
keller@cse.unsw.edu.au
<unknown>
Wed, 2 Feb 2011 04:08:26 +0000
(
04:08
+0000)
compiler/vectorise/Vectorise/Exp.hs
patch
|
blob
|
history
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)