X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fvectorise%2FVectMonad.hs;h=45e34dceb95244b260d9f2751c413ac36c142119;hb=2ee66b7b925ac2dfd825d6ba5ff178411487ccc5;hp=9a680e714fc3124e24beae6110563fa178064b98;hpb=835609b97d5f392ece196cf2c4b069ffcc4b789f;p=ghc-hetmet.git

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
                }