projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
090a9b7
)
Added double divide and unzipP
author
keller@cse.unsw.edu.au
<unknown>
Mon, 17 Mar 2008 02:55:53 +0000
(
02:55
+0000)
committer
keller@cse.unsw.edu.au
<unknown>
Mon, 17 Mar 2008 02:55:53 +0000
(
02:55
+0000)
compiler/vectorise/VectBuiltIn.hs
patch
|
blob
|
history
diff --git
a/compiler/vectorise/VectBuiltIn.hs
b/compiler/vectorise/VectBuiltIn.hs
index
9d790c6
..
0ad2bf7
100644
(file)
--- a/
compiler/vectorise/VectBuiltIn.hs
+++ b/
compiler/vectorise/VectBuiltIn.hs
@@
-214,6
+214,7
@@
preludeVars
mk gHC_PARR FSLIT("mapP") nDP_COMBINATORS FSLIT("mapPA")
, mk gHC_PARR FSLIT("zipWithP") nDP_COMBINATORS FSLIT("zipWithPA")
, mk gHC_PARR FSLIT("zipP") nDP_COMBINATORS FSLIT("zipPA")
mk gHC_PARR FSLIT("mapP") nDP_COMBINATORS FSLIT("mapPA")
, mk gHC_PARR FSLIT("zipWithP") nDP_COMBINATORS FSLIT("zipWithPA")
, mk gHC_PARR FSLIT("zipP") nDP_COMBINATORS FSLIT("zipPA")
+ , mk gHC_PARR FSLIT("unzipP") nDP_COMBINATORS FSLIT("unzipPA")
, mk gHC_PARR FSLIT("filterP") nDP_COMBINATORS FSLIT("filterPA")
, mk gHC_PARR FSLIT("lengthP") nDP_COMBINATORS FSLIT("lengthPA")
, mk gHC_PARR FSLIT("replicateP") nDP_COMBINATORS FSLIT("replicatePA")
, mk gHC_PARR FSLIT("filterP") nDP_COMBINATORS FSLIT("filterPA")
, mk gHC_PARR FSLIT("lengthP") nDP_COMBINATORS FSLIT("lengthPA")
, mk gHC_PARR FSLIT("replicateP") nDP_COMBINATORS FSLIT("replicatePA")
@@
-240,6
+241,7
@@
preludeVars
, mk nDP_PRELUDE_DOUBLE FSLIT("plus") nDP_PRELUDE_DOUBLE FSLIT("plusV")
, mk nDP_PRELUDE_DOUBLE FSLIT("minus") nDP_PRELUDE_DOUBLE FSLIT("minusV")
, mk nDP_PRELUDE_DOUBLE FSLIT("mult") nDP_PRELUDE_DOUBLE FSLIT("multV")
, mk nDP_PRELUDE_DOUBLE FSLIT("plus") nDP_PRELUDE_DOUBLE FSLIT("plusV")
, mk nDP_PRELUDE_DOUBLE FSLIT("minus") nDP_PRELUDE_DOUBLE FSLIT("minusV")
, mk nDP_PRELUDE_DOUBLE FSLIT("mult") nDP_PRELUDE_DOUBLE FSLIT("multV")
+ , mk nDP_PRELUDE_DOUBLE FSLIT("divide") nDP_PRELUDE_DOUBLE FSLIT("divideV")
, mk nDP_PRELUDE_DOUBLE FSLIT("sumP") nDP_PRELUDE_DOUBLE FSLIT("sumPA")
, mk nDP_PRELUDE_DOUBLE FSLIT("minIndexP")
nDP_PRELUDE_DOUBLE FSLIT("minIndexPA")
, mk nDP_PRELUDE_DOUBLE FSLIT("sumP") nDP_PRELUDE_DOUBLE FSLIT("sumPA")
, mk nDP_PRELUDE_DOUBLE FSLIT("minIndexP")
nDP_PRELUDE_DOUBLE FSLIT("minIndexPA")