From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Thu, 6 Dec 2007 03:25:47 +0000 (+0000)
Subject: Teach vectorisation about some temporary conversion functions
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d053ad2b7ca9e7dc0d0c0ec6559f6fc7ff1e79c2;p=ghc-hetmet.git

Teach vectorisation about some temporary conversion functions
---

diff --git a/compiler/vectorise/VectBuiltIn.hs b/compiler/vectorise/VectBuiltIn.hs
index 05823b5..1f35b79 100644
--- a/compiler/vectorise/VectBuiltIn.hs
+++ b/compiler/vectorise/VectBuiltIn.hs
@@ -232,6 +232,8 @@ preludeVars
 
     -- FIXME: temporary
     , mk nDP_PRELUDE_PARR FSLIT("fromPArrayP") nDP_PRELUDE_PARR FSLIT("fromPArrayPA")
+    , mk nDP_PRELUDE_PARR FSLIT("toPArrayP") nDP_PRELUDE_PARR FSLIT("toPArrayPA")
+    , mk nDP_PRELUDE_PARR FSLIT("fromNestedPArrayP") nDP_PRELUDE_PARR FSLIT("fromNestedPArrayPA")
     ]
   where
     mk = (,,,)