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:
7331582
)
Add built-ins to vectorisation monad
author
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Wed, 22 Aug 2007 02:11:33 +0000
(
02:11
+0000)
committer
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Wed, 22 Aug 2007 02:11:33 +0000
(
02:11
+0000)
compiler/vectorise/VectMonad.hs
patch
|
blob
|
history
diff --git
a/compiler/vectorise/VectMonad.hs
b/compiler/vectorise/VectMonad.hs
index
aae76c9
..
22b776e
100644
(file)
--- a/
compiler/vectorise/VectMonad.hs
+++ b/
compiler/vectorise/VectMonad.hs
@@
-71,7
+71,10
@@
data Builtins = Builtins {
, embedTyCon :: TyCon
, embedDataCon :: DataCon
, crossTyCon :: TyCon
, embedTyCon :: TyCon
, embedDataCon :: DataCon
, crossTyCon :: TyCon
+ , crossDataCon :: DataCon
, plusTyCon :: TyCon
, plusTyCon :: TyCon
+ , leftDataCon :: DataCon
+ , rightDataCon :: DataCon
, closureTyCon :: TyCon
, mkClosureVar :: Var
, applyClosureVar :: Var
, closureTyCon :: TyCon
, mkClosureVar :: Var
, applyClosureVar :: Var
@@
-91,12
+94,14
@@
initBuiltins
= do
parrayTyCon <- dsLookupTyCon parrayTyConName
paTyCon <- dsLookupTyCon paTyConName
= do
parrayTyCon <- dsLookupTyCon parrayTyConName
paTyCon <- dsLookupTyCon paTyConName
- let paDataCon = case tyConDataCons paTyCon of [dc] -> dc
+ let [paDataCon] = tyConDataCons paTyCon
preprTyCon <- dsLookupTyCon preprTyConName
embedTyCon <- dsLookupTyCon embedTyConName
preprTyCon <- dsLookupTyCon preprTyConName
embedTyCon <- dsLookupTyCon embedTyConName
- let embedDataCon = case tyConDataCons embedTyCon of [dc] -> dc
+ let [embedDataCon] = tyConDataCons embedTyCon
crossTyCon <- dsLookupTyCon crossTyConName
crossTyCon <- dsLookupTyCon crossTyConName
+ let [crossDataCon] = tyConDataCons crossTyCon
plusTyCon <- dsLookupTyCon plusTyConName
plusTyCon <- dsLookupTyCon plusTyConName
+ let [leftDataCon, rightDataCon] = tyConDataCons plusTyCon
closureTyCon <- dsLookupTyCon closureTyConName
mkClosureVar <- dsLookupGlobalId mkClosureName
closureTyCon <- dsLookupTyCon closureTyConName
mkClosureVar <- dsLookupGlobalId mkClosureName
@@
-121,7
+126,10
@@
initBuiltins
, embedTyCon = embedTyCon
, embedDataCon = embedDataCon
, crossTyCon = crossTyCon
, embedTyCon = embedTyCon
, embedDataCon = embedDataCon
, crossTyCon = crossTyCon
+ , crossDataCon = crossDataCon
, plusTyCon = plusTyCon
, plusTyCon = plusTyCon
+ , leftDataCon = leftDataCon
+ , rightDataCon = rightDataCon
, closureTyCon = closureTyCon
, mkClosureVar = mkClosureVar
, applyClosureVar = applyClosureVar
, closureTyCon = closureTyCon
, mkClosureVar = mkClosureVar
, applyClosureVar = applyClosureVar