From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Mon, 7 Jun 2010 01:26:42 +0000 (+0000)
Subject: Track changes to DPH libs
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=9d94dcd4dbb3e77d6938f8a7f59187f04663241b

Track changes to DPH libs
---

diff --git a/compiler/vectorise/VectBuiltIn.hs b/compiler/vectorise/VectBuiltIn.hs
index fbc2932..9d1e7a1 100644
--- a/compiler/vectorise/VectBuiltIn.hs
+++ b/compiler/vectorise/VectBuiltIn.hs
@@ -42,7 +42,7 @@ import TysWiredIn      ( unitDataCon,
                          doubleTyCon,
                          boolTyCon, trueDataCon, falseDataCon,
                          parrTyConName )
-import PrelNames       ( word8TyConName, gHC_PARR )
+import PrelNames       ( word8TyConName, gHC_PARR, gHC_CLASSES )
 import BasicTypes      ( Boxity(..) )
 
 import FastString
@@ -459,6 +459,10 @@ preludeVars (Modules { dph_Combinators    = dph_Combinators
     [ mk dph_Prelude_Bool  (fsLit "andP")  dph_Prelude_Bool (fsLit "andPA")
     , mk dph_Prelude_Bool  (fsLit "orP")   dph_Prelude_Bool (fsLit "orPA")
 
+    , mk gHC_CLASSES (fsLit "not")         dph_Prelude_Bool (fsLit "notV")
+    , mk gHC_CLASSES (fsLit "&&")          dph_Prelude_Bool (fsLit "andV")
+    , mk gHC_CLASSES (fsLit "||")          dph_Prelude_Bool (fsLit "orV")
+
     -- FIXME: temporary
     , mk dph_Prelude_PArr (fsLit "fromPArrayP")       dph_Prelude_PArr (fsLit "fromPArrayPA")
     , mk dph_Prelude_PArr (fsLit "toPArrayP")         dph_Prelude_PArr (fsLit "toPArrayPA")
@@ -466,6 +470,7 @@ preludeVars (Modules { dph_Combinators    = dph_Combinators
     , mk dph_Prelude_PArr (fsLit "combineP")          dph_Combinators  (fsLit "combine2PA")
     , mk dph_Prelude_PArr (fsLit "updateP")           dph_Combinators  (fsLit "updatePA")
     , mk dph_Prelude_PArr (fsLit "bpermuteP")         dph_Combinators  (fsLit "bpermutePA")
+    , mk dph_Prelude_PArr (fsLit "indexedP")          dph_Combinators  (fsLit "indexedPA")
     ]
   where
     mk  = (,,,)