Commit f2704299 authored by rl@cse.unsw.edu.au's avatar rl@cse.unsw.edu.au

Make the new functions accessible from the vectorisation monad

parent 351a0212
......@@ -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
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment