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:
82c4721
)
Add vectorisation-related builtin
author
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Sun, 18 Nov 2007 03:15:13 +0000
(
03:15
+0000)
committer
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Sun, 18 Nov 2007 03:15:13 +0000
(
03:15
+0000)
compiler/vectorise/VectBuiltIn.hs
patch
|
blob
|
history
diff --git
a/compiler/vectorise/VectBuiltIn.hs
b/compiler/vectorise/VectBuiltIn.hs
index
6ce781b
..
ec7faa3
100644
(file)
--- a/
compiler/vectorise/VectBuiltIn.hs
+++ b/
compiler/vectorise/VectBuiltIn.hs
@@
-71,6
+71,7
@@
data Builtins = Builtins {
, parrayBoolPrimTyCon :: TyCon
, voidTyCon :: TyCon
, wrapTyCon :: TyCon
, parrayBoolPrimTyCon :: TyCon
, voidTyCon :: TyCon
, wrapTyCon :: TyCon
+ , enumerationTyCon :: TyCon
, sumTyCons :: Array Int TyCon
, closureTyCon :: TyCon
, voidVar :: Var
, sumTyCons :: Array Int TyCon
, closureTyCon :: TyCon
, voidVar :: Var
@@
-122,6
+123,7
@@
initBuiltins
voidTyCon <- externalTyCon nDP_REPR FSLIT("Void")
wrapTyCon <- externalTyCon nDP_REPR FSLIT("Wrap")
voidTyCon <- externalTyCon nDP_REPR FSLIT("Void")
wrapTyCon <- externalTyCon nDP_REPR FSLIT("Wrap")
+ enumerationTyCon <- externalTyCon nDP_REPR FSLIT("Enumeration")
sum_tcs <- mapM (externalTyCon nDP_REPR)
[mkFastString ("Sum" ++ show i) | i <- [2..mAX_NDP_SUM]]
sum_tcs <- mapM (externalTyCon nDP_REPR)
[mkFastString ("Sum" ++ show i) | i <- [2..mAX_NDP_SUM]]
@@
-161,6
+163,7
@@
initBuiltins
, parrayBoolPrimTyCon = parrayBoolPrimTyCon
, voidTyCon = voidTyCon
, wrapTyCon = wrapTyCon
, parrayBoolPrimTyCon = parrayBoolPrimTyCon
, voidTyCon = voidTyCon
, wrapTyCon = wrapTyCon
+ , enumerationTyCon = enumerationTyCon
, sumTyCons = sumTyCons
, closureTyCon = closureTyCon
, voidVar = voidVar
, sumTyCons = sumTyCons
, closureTyCon = closureTyCon
, voidVar = voidVar
@@
-225,6
+228,7
@@
builtinPRs bi =
mk (tyConName unitTyCon) nDP_REPR FSLIT("dPR_Unit")
, mk (tyConName $ voidTyCon bi) nDP_REPR FSLIT("dPR_Void")
, mk (tyConName $ wrapTyCon bi) nDP_REPR FSLIT("dPR_Wrap")
mk (tyConName unitTyCon) nDP_REPR FSLIT("dPR_Unit")
, mk (tyConName $ voidTyCon bi) nDP_REPR FSLIT("dPR_Void")
, mk (tyConName $ wrapTyCon bi) nDP_REPR FSLIT("dPR_Wrap")
+ , mk (tyConName $ enumerationTyCon bi) nDP_REPR FSLIT("dPR_Enumeration")
, mk (tyConName $ closureTyCon bi) nDP_CLOSURE FSLIT("dPR_Clo")
-- temporary
, mk (tyConName $ closureTyCon bi) nDP_CLOSURE FSLIT("dPR_Clo")
-- temporary