From 9aaa2bc98fc2f9ca5428ecb3eed40b8fa4c5f749 Mon Sep 17 00:00:00 2001 From: "keller@cse.unsw.edu.au" Date: Mon, 17 Mar 2008 02:55:53 +0000 Subject: [PATCH] Added double divide and unzipP --- compiler/vectorise/VectBuiltIn.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/compiler/vectorise/VectBuiltIn.hs b/compiler/vectorise/VectBuiltIn.hs index 9d790c6..0ad2bf7 100644 --- 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("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") @@ -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("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") -- 1.7.10.4