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:
58eb6de
)
Vectorise nullary constructors correctly
author
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Wed, 22 Aug 2007 01:59:30 +0000
(
01:59
+0000)
committer
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Wed, 22 Aug 2007 01:59:30 +0000
(
01:59
+0000)
compiler/vectorise/VectUtils.hs
patch
|
blob
|
history
diff --git
a/compiler/vectorise/VectUtils.hs
b/compiler/vectorise/VectUtils.hs
index
46766ea
..
dbdc38f
100644
(file)
--- a/
compiler/vectorise/VectUtils.hs
+++ b/
compiler/vectorise/VectUtils.hs
@@
-296,6
+296,8
@@
mkClosureApp (vclo, lclo) (varg, larg)
(arg_ty, res_ty) = splitClosureTy (exprType vclo)
buildClosures :: [TyVar] -> [VVar] -> [Type] -> Type -> VM VExpr -> VM VExpr
+buildClosures tvs vars [] res_ty mk_body
+ = mk_body
buildClosures tvs vars [arg_ty] res_ty mk_body
= buildClosure tvs vars arg_ty res_ty mk_body
buildClosures tvs vars (arg_ty : arg_tys) res_ty mk_body