diff options
| author | keller@cse.unsw.edu.au <unknown> | 2008-05-02 03:19:05 +0000 |
|---|---|---|
| committer | keller@cse.unsw.edu.au <unknown> | 2008-05-02 03:19:05 +0000 |
| commit | 1aa5b865642c44b41cd6e3acea9c5a0abee3d46c (patch) | |
| tree | 44908ad1879faeedded86503380b2614f6af2870 /compiler/vectorise | |
| parent | 7744453856bd776673d685216b666bb0d7c2f6f6 (diff) | |
| download | haskell-1aa5b865642c44b41cd6e3acea9c5a0abee3d46c.tar.gz | |
sumP on doubles and int
Diffstat (limited to 'compiler/vectorise')
| -rw-r--r-- | compiler/vectorise/VectBuiltIn.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/vectorise/VectBuiltIn.hs b/compiler/vectorise/VectBuiltIn.hs index 0bccdedbad..dc5694440f 100644 --- a/compiler/vectorise/VectBuiltIn.hs +++ b/compiler/vectorise/VectBuiltIn.hs @@ -251,8 +251,8 @@ preludeVars , mk nDP_PRELUDE_INT (fsLit "intDiv") nDP_PRELUDE_INT (fsLit "intDivV") , mk nDP_PRELUDE_INT (fsLit "intMod") nDP_PRELUDE_INT (fsLit "intModV") , mk nDP_PRELUDE_INT (fsLit "intSquareRoot") nDP_PRELUDE_INT (fsLit "intSquareRootV") - , mk gHC_PARR (fsLit "sumP") nDP_PRELUDE_INT (fsLit "sumPA") - , mk gHC_PARR (fsLit "enumFromToP") nDP_PRELUDE_INT (fsLit "enumFromToPA") + , mk nDP_PRELUDE_INT (fsLit "intSumP") nDP_PRELUDE_INT (fsLit "intSumPA") + , mk nDP_PRELUDE_INT (fsLit "enumFromToP") nDP_PRELUDE_INT (fsLit "enumFromToPA") , mk nDP_PRELUDE_INT (fsLit "upToP") nDP_PRELUDE_INT (fsLit "upToPA") , mk nDP_PRELUDE_INT (fsLit "eq") nDP_PRELUDE_INT (fsLit "eqV") @@ -267,7 +267,7 @@ preludeVars , 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 "squareRoot") nDP_PRELUDE_DOUBLE (fsLit "squareRootV") - , mk nDP_PRELUDE_DOUBLE (fsLit "sumP") nDP_PRELUDE_DOUBLE (fsLit "sumPA") + , mk nDP_PRELUDE_DOUBLE (fsLit "doubleSumP") nDP_PRELUDE_DOUBLE (fsLit "doubleSumPA") , mk nDP_PRELUDE_DOUBLE (fsLit "minIndexP") nDP_PRELUDE_DOUBLE (fsLit "minIndexPA") , mk nDP_PRELUDE_DOUBLE (fsLit "maxIndexP") |