projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Rename vectorisation-related stuff
[ghc-hetmet.git]
/
compiler
/
vectorise
/
VectMonad.hs
diff --git
a/compiler/vectorise/VectMonad.hs
b/compiler/vectorise/VectMonad.hs
index
45e34dc
..
aae76c9
100644
(file)
--- a/
compiler/vectorise/VectMonad.hs
+++ b/
compiler/vectorise/VectMonad.hs
@@
-3,6
+3,7
@@
module VectMonad (
VM,
noV, tryV, maybeV, traceMaybeV, orElseV, fixV, localV, closedV, initV,
VM,
noV, tryV, maybeV, traceMaybeV, orElseV, fixV, localV, closedV, initV,
+ liftDs,
cloneName, cloneId,
newExportedVar, newLocalVar, newDummyVar, newTyVar,
cloneName, cloneId,
newExportedVar, newLocalVar, newDummyVar, newTyVar,
@@
-66,6
+67,11
@@
data Builtins = Builtins {
parrayTyCon :: TyCon
, paTyCon :: TyCon
, paDataCon :: DataCon
parrayTyCon :: TyCon
, paTyCon :: TyCon
, paDataCon :: DataCon
+ , preprTyCon :: TyCon
+ , embedTyCon :: TyCon
+ , embedDataCon :: DataCon
+ , crossTyCon :: TyCon
+ , plusTyCon :: TyCon
, closureTyCon :: TyCon
, mkClosureVar :: Var
, applyClosureVar :: Var
, closureTyCon :: TyCon
, mkClosureVar :: Var
, applyClosureVar :: Var
@@
-86,6
+92,11
@@
initBuiltins
parrayTyCon <- dsLookupTyCon parrayTyConName
paTyCon <- dsLookupTyCon paTyConName
let paDataCon = case tyConDataCons paTyCon of [dc] -> dc
parrayTyCon <- dsLookupTyCon parrayTyConName
paTyCon <- dsLookupTyCon paTyConName
let paDataCon = case tyConDataCons paTyCon of [dc] -> dc
+ preprTyCon <- dsLookupTyCon preprTyConName
+ embedTyCon <- dsLookupTyCon embedTyConName
+ let embedDataCon = case tyConDataCons embedTyCon of [dc] -> dc
+ crossTyCon <- dsLookupTyCon crossTyConName
+ plusTyCon <- dsLookupTyCon plusTyConName
closureTyCon <- dsLookupTyCon closureTyConName
mkClosureVar <- dsLookupGlobalId mkClosureName
closureTyCon <- dsLookupTyCon closureTyConName
mkClosureVar <- dsLookupGlobalId mkClosureName
@@
-106,6
+117,11
@@
initBuiltins
parrayTyCon = parrayTyCon
, paTyCon = paTyCon
, paDataCon = paDataCon
parrayTyCon = parrayTyCon
, paTyCon = paTyCon
, paDataCon = paDataCon
+ , preprTyCon = preprTyCon
+ , embedTyCon = embedTyCon
+ , embedDataCon = embedDataCon
+ , crossTyCon = crossTyCon
+ , plusTyCon = plusTyCon
, closureTyCon = closureTyCon
, mkClosureVar = mkClosureVar
, applyClosureVar = applyClosureVar
, closureTyCon = closureTyCon
, mkClosureVar = mkClosureVar
, applyClosureVar = applyClosureVar