From 1aa5b865642c44b41cd6e3acea9c5a0abee3d46c Mon Sep 17 00:00:00 2001 From: "keller@cse.unsw.edu.au" Date: Fri, 2 May 2008 03:19:05 +0000 Subject: [PATCH] sumP on doubles and int --- compiler/vectorise/VectBuiltIn.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/vectorise/VectBuiltIn.hs b/compiler/vectorise/VectBuiltIn.hs index 0bccded..dc56944 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") -- 1.7.10.4