From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Wed, 22 Aug 2007 01:59:30 +0000 (+0000)
Subject: Vectorise nullary constructors correctly
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1ab6d7c30fab9cc0e0936362ada361977d76e9e5;p=ghc-hetmet.git

Vectorise nullary constructors correctly
---

diff --git a/compiler/vectorise/VectUtils.hs b/compiler/vectorise/VectUtils.hs
index 46766ea..dbdc38f 100644
--- 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