projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
351a021
)
Make the new functions accessible from the vectorisation monad
author
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Wed, 8 Aug 2007 06:56:21 +0000
(06:56 +0000)
committer
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Wed, 8 Aug 2007 06:56:21 +0000
(06:56 +0000)
compiler/vectorise/VectMonad.hs
patch
|
blob
|
history
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
, lengthPAVar :: Var
, replicatePAVar :: Var
, emptyPAVar :: Var
+ , packPAVar :: Var
+ , combinePAVar :: Var
+ , intEqPAVar :: Var
, liftingContext :: Var
}
, liftingContext :: Var
}
@@
-91,6
+94,9
@@
initBuiltins
lengthPAVar <- dsLookupGlobalId lengthPAName
replicatePAVar <- dsLookupGlobalId replicatePAName
emptyPAVar <- dsLookupGlobalId emptyPAName
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
liftingContext <- liftM (\u -> mkSysLocal FSLIT("lc") u intPrimTy)
newUnique
@@
-107,6
+113,9
@@
initBuiltins
, lengthPAVar = lengthPAVar
, replicatePAVar = replicatePAVar
, emptyPAVar = emptyPAVar
, lengthPAVar = lengthPAVar
, replicatePAVar = replicatePAVar
, emptyPAVar = emptyPAVar
+ , packPAVar = packPAVar
+ , combinePAVar = combinePAVar
+ , intEqPAVar = intEqPAVar
, liftingContext = liftingContext
}
, liftingContext = liftingContext
}