From 9fd454ab395b70946928ed92c3cb7b28a4d036bc Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Thu, 6 Dec 2007 23:30:15 +0000 Subject: [PATCH 1/1] Fix vectorisation bug --- compiler/vectorise/VectUtils.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/compiler/vectorise/VectUtils.hs b/compiler/vectorise/VectUtils.hs index 5c099c0..533a8e7 100644 --- a/compiler/vectorise/VectUtils.hs +++ b/compiler/vectorise/VectUtils.hs @@ -451,6 +451,11 @@ mkLiftEnv lc [ty] [v] mkLiftEnv lc tys vs = do (env_tc, env_tyargs) <- parrayReprTyCon vty + + bndrs <- if null vs then do + v <- newDummyVar unitTy + return [v] + else return vs let [env_con] = tyConDataCons env_tc env = Var (dataConWrapId env_con) @@ -469,6 +474,3 @@ mkLiftEnv lc tys vs args | null vs = [Var unitDataConId] | otherwise = map Var vs - bndrs | null vs = [mkWildId unitTy] - | otherwise = vs - -- 1.7.10.4