From 2ee66b7b925ac2dfd825d6ba5ff178411487ccc5 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Tue, 21 Aug 2007 02:44:46 +0000 Subject: [PATCH] Remove packPA and combinePA from vectorisation built-ins for now --- compiler/vectorise/VectMonad.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs index 9a680e7..45e34dc 100644 --- a/compiler/vectorise/VectMonad.hs +++ b/compiler/vectorise/VectMonad.hs @@ -74,8 +74,8 @@ data Builtins = Builtins { , lengthPAVar :: Var , replicatePAVar :: Var , emptyPAVar :: Var - , packPAVar :: Var - , combinePAVar :: Var + -- , packPAVar :: Var + -- , combinePAVar :: Var , intEqPAVar :: Var , liftingContext :: Var } @@ -95,8 +95,8 @@ initBuiltins lengthPAVar <- dsLookupGlobalId lengthPAName replicatePAVar <- dsLookupGlobalId replicatePAName emptyPAVar <- dsLookupGlobalId emptyPAName - packPAVar <- dsLookupGlobalId packPAName - combinePAVar <- dsLookupGlobalId combinePAName + -- packPAVar <- dsLookupGlobalId packPAName + -- combinePAVar <- dsLookupGlobalId combinePAName intEqPAVar <- dsLookupGlobalId intEqPAName liftingContext <- liftM (\u -> mkSysLocal FSLIT("lc") u intPrimTy) @@ -114,8 +114,8 @@ initBuiltins , lengthPAVar = lengthPAVar , replicatePAVar = replicatePAVar , emptyPAVar = emptyPAVar - , packPAVar = packPAVar - , combinePAVar = combinePAVar + -- , packPAVar = packPAVar + -- , combinePAVar = combinePAVar , intEqPAVar = intEqPAVar , liftingContext = liftingContext } -- 1.7.10.4