From f2704299116dba4fa25c9c920c4a5150d6a4da34 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Wed, 8 Aug 2007 06:56:21 +0000 Subject: [PATCH] Make the new functions accessible from the vectorisation monad --- compiler/vectorise/VectMonad.hs | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs index f91ca48..7bd7538 100644 --- 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 } -- 1.7.10.4