Make the new functions accessible from the vectorisation monad

diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs
index f91ca48..7bd7538 100644 (file)
--- a/compiler/vectorise/VectMonad.hs
+++ b/compiler/vectorise/VectMonad.hs
@@ -73,6 +73,9 @@ data Builtins = Builtins {
                 , lengthPAVar      :: Var
                 , replicatePAVar   :: Var
                 , emptyPAVar       :: Var
+                , packPAVar        :: Var
+                , combinePAVar     :: Var
+                , intEqPAVar       :: Var
                 , liftingContext   :: Var
                 }
 
@@ -91,6 +94,9 @@ initBuiltins
       lengthPAVar      <- dsLookupGlobalId lengthPAName
       replicatePAVar   <- dsLookupGlobalId replicatePAName
       emptyPAVar       <- dsLookupGlobalId emptyPAName
+      packPAVar        <- dsLookupGlobalId packPAName
+      combinePAVar     <- dsLookupGlobalId combinePAName
+      intEqPAVar       <- dsLookupGlobalId intEqPAName
 
       liftingContext <- liftM (\u -> mkSysLocal FSLIT("lc") u intPrimTy)
                               newUnique
@@ -107,6 +113,9 @@ initBuiltins
                , lengthPAVar      = lengthPAVar
                , replicatePAVar   = replicatePAVar
                , emptyPAVar       = emptyPAVar
+               , packPAVar        = packPAVar
+               , combinePAVar     = combinePAVar
+               , intEqPAVar       = intEqPAVar
                , liftingContext   = liftingContext
                }