From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Tue, 21 Aug 2007 04:00:34 +0000 (+0000)
Subject: Add a couple of built-ins to the vectorisation monad
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=0bf8c8c73099e927a71e7cb95646648d8a6f0f14

Add a couple of built-ins to the vectorisation monad
---

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