From 6029a9e18cfd5f510e2db3bb1fbfcc10f31146e0 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Thu, 6 Dec 2007 04:08:29 +0000 Subject: [PATCH] Vectorisation-related built ins --- compiler/vectorise/VectBuiltIn.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/compiler/vectorise/VectBuiltIn.hs b/compiler/vectorise/VectBuiltIn.hs index 1f35b79..289211c 100644 --- a/compiler/vectorise/VectBuiltIn.hs +++ b/compiler/vectorise/VectBuiltIn.hs @@ -213,11 +213,14 @@ 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("filterP") nDP_COMBINATORS FSLIT("filterPA") + , mk gHC_PARR FSLIT("lengthP") nDP_COMBINATORS FSLIT("lengthPA") , mk gHC_PARR FSLIT("replicateP") nDP_COMBINATORS FSLIT("replicatePA") , mk gHC_PARR FSLIT("!:") nDP_COMBINATORS FSLIT("indexPA") , 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 nDP_PRELUDE_INT FSLIT("plus") nDP_PRELUDE_INT FSLIT("plusV") , mk nDP_PRELUDE_INT FSLIT("minus") nDP_PRELUDE_INT FSLIT("minusV") -- 1.7.10.4