Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
a41bfc02
Commit
a41bfc02
authored
Dec 13, 2007
by
rl@cse.unsw.edu.au
Browse files
More vectorisation-related built ins
parent
03c36c77
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/vectorise/VectBuiltIn.hs
View file @
a41bfc02
...
...
@@ -221,6 +221,7 @@ preludeVars
,
mk
gHC_PARR
FSLIT
(
"crossMapP"
)
nDP_COMBINATORS
FSLIT
(
"crossMapPA"
)
,
mk
gHC_PARR
FSLIT
(
"singletonP"
)
nDP_COMBINATORS
FSLIT
(
"singletonPA"
)
,
mk
gHC_PARR
FSLIT
(
"concatP"
)
nDP_COMBINATORS
FSLIT
(
"concatPA"
)
,
mk
gHC_PARR
FSLIT
(
"+:+"
)
nDP_COMBINATORS
FSLIT
(
"appPA"
)
,
mk
nDP_PRELUDE_INT
FSLIT
(
"plus"
)
nDP_PRELUDE_INT
FSLIT
(
"plusV"
)
,
mk
nDP_PRELUDE_INT
FSLIT
(
"minus"
)
nDP_PRELUDE_INT
FSLIT
(
"minusV"
)
...
...
@@ -228,10 +229,21 @@ preludeVars
,
mk
nDP_PRELUDE_INT
FSLIT
(
"sumP"
)
nDP_PRELUDE_INT
FSLIT
(
"sumPA"
)
,
mk
nDP_PRELUDE_INT
FSLIT
(
"upToP"
)
nDP_PRELUDE_INT
FSLIT
(
"upToPA"
)
,
mk
nDP_PRELUDE_INT
FSLIT
(
"eq"
)
nDP_PRELUDE_INT
FSLIT
(
"eqV"
)
,
mk
nDP_PRELUDE_INT
FSLIT
(
"neq"
)
nDP_PRELUDE_INT
FSLIT
(
"neqV"
)
,
mk
nDP_PRELUDE_INT
FSLIT
(
"le"
)
nDP_PRELUDE_INT
FSLIT
(
"leV"
)
,
mk
nDP_PRELUDE_INT
FSLIT
(
"lt"
)
nDP_PRELUDE_INT
FSLIT
(
"ltV"
)
,
mk
nDP_PRELUDE_INT
FSLIT
(
"ge"
)
nDP_PRELUDE_INT
FSLIT
(
"geV"
)
,
mk
nDP_PRELUDE_INT
FSLIT
(
"gt"
)
nDP_PRELUDE_INT
FSLIT
(
"gtV"
)
,
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
(
"sumP"
)
nDP_PRELUDE_DOUBLE
FSLIT
(
"sumPA"
)
,
mk
nDP_PRELUDE_DOUBLE
FSLIT
(
"minIndexP"
)
nDP_PRELUDE_DOUBLE
FSLIT
(
"minIndexPA"
)
,
mk
nDP_PRELUDE_DOUBLE
FSLIT
(
"maxIndexP"
)
nDP_PRELUDE_DOUBLE
FSLIT
(
"maxIndexPA"
)
,
mk
nDP_PRELUDE_DOUBLE
FSLIT
(
"eq"
)
nDP_PRELUDE_DOUBLE
FSLIT
(
"eqV"
)
,
mk
nDP_PRELUDE_DOUBLE
FSLIT
(
"neq"
)
nDP_PRELUDE_DOUBLE
FSLIT
(
"neqV"
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment