From 0bf8c8c73099e927a71e7cb95646648d8a6f0f14 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Tue, 21 Aug 2007 04:00:34 +0000 Subject: [PATCH] Add a couple of built-ins to the vectorisation monad --- compiler/vectorise/VectMonad.hs | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs index 45e34dc..0500dc7 100644 --- a/compiler/vectorise/VectMonad.hs +++ b/compiler/vectorise/VectMonad.hs @@ -66,6 +66,11 @@ data Builtins = Builtins { parrayTyCon :: TyCon , paTyCon :: TyCon , paDataCon :: DataCon + , reprTyCon :: TyCon + , embedTyCon :: TyCon + , embedDataCon :: DataCon + , crossTyCon :: TyCon + , plusTyCon :: TyCon , closureTyCon :: TyCon , mkClosureVar :: Var , applyClosureVar :: Var @@ -86,6 +91,11 @@ initBuiltins parrayTyCon <- dsLookupTyCon parrayTyConName paTyCon <- dsLookupTyCon paTyConName let paDataCon = case tyConDataCons paTyCon of [dc] -> dc + reprTyCon <- dsLookupTyCon reprTyConName + embedTyCon <- dsLookupTyCon embedTyConName + let embedDataCon = case tyConDataCons embedTyCon of [dc] -> dc + crossTyCon <- dsLookupTyCon crossTyConName + plusTyCon <- dsLookupTyCon plusTyConName closureTyCon <- dsLookupTyCon closureTyConName mkClosureVar <- dsLookupGlobalId mkClosureName @@ -106,6 +116,11 @@ initBuiltins parrayTyCon = parrayTyCon , paTyCon = paTyCon , paDataCon = paDataCon + , reprTyCon = reprTyCon + , embedTyCon = embedTyCon + , embedDataCon = embedDataCon + , crossTyCon = crossTyCon + , plusTyCon = plusTyCon , closureTyCon = closureTyCon , mkClosureVar = mkClosureVar , applyClosureVar = applyClosureVar -- 1.7.10.4