Commit 4072cee8 authored by rl@cse.unsw.edu.au's avatar rl@cse.unsw.edu.au
Browse files

New vectorisation built-ins

parent d622593f
......@@ -64,6 +64,7 @@ nDP_INSTANCES = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Instances")
nDP_COMBINATORS = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Combinators")
nDP_PRELUDE_PARR = mkNDPModule FSLIT("Data.Array.Parallel.Prelude.PArr")
nDP_PRELUDE_INT = mkNDPModule FSLIT("Data.Array.Parallel.Prelude.Int")
data Builtins = Builtins {
parrayTyCon :: TyCon
......@@ -206,6 +207,8 @@ preludeVars :: [(Module, FastString, Module, FastString)]
preludeVars
= [
mk nDP_PRELUDE_PARR FSLIT("mapP") nDP_COMBINATORS FSLIT("mapPA")
, mk nDP_PRELUDE_INT FSLIT("plus") nDP_PRELUDE_INT FSLIT("plusV")
, mk nDP_PRELUDE_INT FSLIT("minus") nDP_PRELUDE_INT FSLIT("minusV")
]
where
mk = (,,,)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment