diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-11-18 03:15:13 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-11-18 03:15:13 +0000 |
| commit | 54948d8f11cb05bcafb1c0cd28f6267f0cc26166 (patch) | |
| tree | 27288fa934528a094543d78167489de49d01670d /compiler/vectorise | |
| parent | 82c472197617c7ede66b90179245311d9ae0fbfa (diff) | |
| download | haskell-54948d8f11cb05bcafb1c0cd28f6267f0cc26166.tar.gz | |
Add vectorisation-related builtin
Diffstat (limited to 'compiler/vectorise')
| -rw-r--r-- | compiler/vectorise/VectBuiltIn.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/vectorise/VectBuiltIn.hs b/compiler/vectorise/VectBuiltIn.hs index 6ce781b884..ec7faa39de 100644 --- a/compiler/vectorise/VectBuiltIn.hs +++ b/compiler/vectorise/VectBuiltIn.hs @@ -71,6 +71,7 @@ data Builtins = Builtins { , parrayBoolPrimTyCon :: TyCon , voidTyCon :: TyCon , wrapTyCon :: TyCon + , enumerationTyCon :: TyCon , 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") + enumerationTyCon <- externalTyCon nDP_REPR FSLIT("Enumeration") 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 + , enumerationTyCon = enumerationTyCon , 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 $ enumerationTyCon bi) nDP_REPR FSLIT("dPR_Enumeration") , mk (tyConName $ closureTyCon bi) nDP_CLOSURE FSLIT("dPR_Clo") -- temporary |