From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Fri, 29 Jun 2007 05:13:16 +0000 (+0000)
Subject: Add vectorise subdirectory and dummy module
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d9049898e07e957bd5c24fb4a0257709b8186959

Add vectorise subdirectory and dummy module
---

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
+