diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-12-12 04:05:21 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-12-12 04:05:21 +0000 |
| commit | 26028c7efcd8d0ca7484b6ae2852ef777e9bf315 (patch) | |
| tree | a67e164b75fa428694dc5062885210f7e118f4c2 /compiler/vectorise/VectBuiltIn.hs | |
| parent | 107e84293bb60b82233b1177eae66ed33b665af1 (diff) | |
| download | haskell-26028c7efcd8d0ca7484b6ae2852ef777e9bf315.tar.gz | |
Add vectorisation built-ins
Diffstat (limited to 'compiler/vectorise/VectBuiltIn.hs')
| -rw-r--r-- | compiler/vectorise/VectBuiltIn.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/compiler/vectorise/VectBuiltIn.hs b/compiler/vectorise/VectBuiltIn.hs index 289211cd8f..204f2dfca3 100644 --- a/compiler/vectorise/VectBuiltIn.hs +++ b/compiler/vectorise/VectBuiltIn.hs @@ -233,6 +233,13 @@ preludeVars , 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("eq") nDP_PRELUDE_DOUBLE FSLIT("eqV") + , mk nDP_PRELUDE_DOUBLE FSLIT("neq") nDP_PRELUDE_DOUBLE FSLIT("neqV") + , mk nDP_PRELUDE_DOUBLE FSLIT("le") nDP_PRELUDE_DOUBLE FSLIT("leV") + , mk nDP_PRELUDE_DOUBLE FSLIT("lt") nDP_PRELUDE_DOUBLE FSLIT("ltV") + , mk nDP_PRELUDE_DOUBLE FSLIT("ge") nDP_PRELUDE_DOUBLE FSLIT("geV") + , mk nDP_PRELUDE_DOUBLE FSLIT("gt") nDP_PRELUDE_DOUBLE FSLIT("gtV") + -- FIXME: temporary , mk nDP_PRELUDE_PARR FSLIT("fromPArrayP") nDP_PRELUDE_PARR FSLIT("fromPArrayPA") , mk nDP_PRELUDE_PARR FSLIT("toPArrayP") nDP_PRELUDE_PARR FSLIT("toPArrayPA") |