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:
7c73741
)
Teach vectorisation about Bool
author
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Sat, 17 Nov 2007 04:27:14 +0000
(
04:27
+0000)
committer
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Sat, 17 Nov 2007 04:27:14 +0000
(
04:27
+0000)
compiler/vectorise/VectBuiltIn.hs
patch
|
blob
|
history
diff --git
a/compiler/vectorise/VectBuiltIn.hs
b/compiler/vectorise/VectBuiltIn.hs
index
3975a19
..
6ce781b
100644
(file)
--- a/
compiler/vectorise/VectBuiltIn.hs
+++ b/
compiler/vectorise/VectBuiltIn.hs
@@
-30,7
+30,9
@@
import OccName
import TypeRep ( funTyCon )
import Type ( Type )
import TysPrim
import TypeRep ( funTyCon )
import Type ( Type )
import TysPrim
-import TysWiredIn ( unitTyCon, tupleTyCon, intTyCon, intTyConName )
+import TysWiredIn ( unitTyCon, tupleTyCon,
+ intTyCon, intTyConName,
+ boolTyCon, boolTyConName )
import Module
import BasicTypes ( Boxity(..) )
import Module
import BasicTypes ( Boxity(..) )
@@
-184,7
+186,7
@@
initBuiltinTyCons bi = (tyConName funTyCon, closureTyCon bi)
: [(tyConName tc, tc) | tc <- defaultTyCons]
defaultTyCons :: [TyCon]
: [(tyConName tc, tc) | tc <- defaultTyCons]
defaultTyCons :: [TyCon]
-defaultTyCons = [intTyCon]
+defaultTyCons = [intTyCon, boolTyCon]
initBuiltinDicts :: [(Name, Module, FastString)] -> DsM [(Name, Var)]
initBuiltinDicts ps
initBuiltinDicts :: [(Name, Module, FastString)] -> DsM [(Name, Var)]
initBuiltinDicts ps
@@
-204,6
+206,7
@@
builtinPAs bi
, mk unitTyConName nDP_INSTANCES FSLIT("dPA_Unit")
, mk intTyConName nDP_INSTANCES FSLIT("dPA_Int")
, mk unitTyConName nDP_INSTANCES FSLIT("dPA_Unit")
, mk intTyConName nDP_INSTANCES FSLIT("dPA_Int")
+ , mk boolTyConName nDP_INSTANCES FSLIT("dPA_Bool")
]
++ tups
where
]
++ tups
where