From d9049898e07e957bd5c24fb4a0257709b8186959 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Fri, 29 Jun 2007 05:13:16 +0000 Subject: [PATCH] Add vectorise subdirectory and dummy module --- compiler/Makefile | 2 +- compiler/package.conf.in | 1 + compiler/vectorise/Vectorise.hs | 15 +++++++++++++++ 3 files changed, 17 insertions(+), 1 deletion(-) create mode 100644 compiler/vectorise/Vectorise.hs diff --git a/compiler/Makefile b/compiler/Makefile index 5e5504b..dcaf18e 100644 --- a/compiler/Makefile +++ b/compiler/Makefile @@ -367,7 +367,7 @@ SRC_HC_OPTS += -Istage$(stage) ALL_DIRS = \ utils basicTypes types hsSyn prelude rename typecheck deSugar coreSyn \ - specialise simplCore stranal stgSyn simplStg codeGen main \ + vectorise specialise simplCore stranal stgSyn simplStg codeGen main \ profiling parser cprAnalysis ndpFlatten iface cmm # Make sure we include Config.hs even if it doesn't exist yet... diff --git a/compiler/package.conf.in b/compiler/package.conf.in index 806b094..3de7068 100644 --- a/compiler/package.conf.in +++ b/compiler/package.conf.in @@ -277,6 +277,7 @@ import-dirs: FPTOOLS_TOP_ABS"/compiler/stage"STAGE"/utils", FPTOOLS_TOP_ABS"/compiler/stage"STAGE"/deSugar", FPTOOLS_TOP_ABS"/compiler/stage"STAGE"/ghci", FPTOOLS_TOP_ABS"/compiler/stage"STAGE"/coreSyn", + FPTOOLS_TOP_ABS"/compiler/stage"STAGE"/vectorise", FPTOOLS_TOP_ABS"/compiler/stage"STAGE"/specialise", FPTOOLS_TOP_ABS"/compiler/stage"STAGE"/simplCore", FPTOOLS_TOP_ABS"/compiler/stage"STAGE"/stranal", diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs new file mode 100644 index 0000000..720019b --- /dev/null +++ b/compiler/vectorise/Vectorise.hs @@ -0,0 +1,15 @@ +module Vectorise( vectorise ) +where + +#include "HsVersions.h" + +import DynFlags +import HscTypes + +vectorise :: HscEnv -> ModGuts -> IO ModGuts +vectorise hsc_env guts + | not (Opt_Vectorise `dopt` dflags) = return guts + | otherwise = return guts + where + dflags = hsc_dflags hsc_env + -- 1.7.10.4