From 3d8dbba7d24c9139b800f4ccf31c50b11596fc2e Mon Sep 17 00:00:00 2001
From: Manuel M T Chakravarty <chak@cse.unsw.edu.au>
Date: Fri, 4 May 2007 06:39:40 +0000
Subject: [PATCH] Added VectInfo to ModGuts

---
 compiler/deSugar/Desugar.lhs      |    4 +++-
 compiler/main/HscTypes.lhs        |   23 +++++++++++++++++++++--
 compiler/typecheck/TcRnDriver.lhs |    3 ++-
 3 files changed, 26 insertions(+), 4 deletions(-)

diff --git a/compiler/deSugar/Desugar.lhs b/compiler/deSugar/Desugar.lhs
index 4ca1ddd..731d6ff 100644
--- a/compiler/deSugar/Desugar.lhs
+++ b/compiler/deSugar/Desugar.lhs
@@ -173,7 +173,9 @@ deSugar hsc_env
 		mg_binds     	= ds_binds,
 		mg_foreign   	= ds_fords,
 		mg_hpc_info  	= ds_hpc_info,
-                mg_modBreaks    = modBreaks }
+                mg_modBreaks    = modBreaks,
+                mg_vect_info    = noVectInfo
+              }
         ; return (Just mod_guts)
 	}}}
 
diff --git a/compiler/main/HscTypes.lhs b/compiler/main/HscTypes.lhs
index d385c5f..cbe09bc 100644
--- a/compiler/main/HscTypes.lhs
+++ b/compiler/main/HscTypes.lhs
@@ -63,7 +63,10 @@ module HscTypes (
         HpcInfo(..), noHpcInfo,
 
         -- Breakpoints
-        ModBreaks (..), BreakIndex, emptyModBreaks
+        ModBreaks (..), BreakIndex, emptyModBreaks,
+
+        -- Vectorisation information
+        VectInfo(..), noVectInfo
     ) where
 
 #include "HsVersions.h"
@@ -510,7 +513,8 @@ data ModGuts
 	mg_foreign   :: !ForeignStubs,
 	mg_deprecs   :: !Deprecations,	 -- Deprecations declared in the module
 	mg_hpc_info  :: !HpcInfo,        -- info about coverage tick boxes
-        mg_modBreaks :: !ModBreaks
+        mg_modBreaks :: !ModBreaks,
+        mg_vect_info :: !VectInfo        -- Pool of vectorised declarations
     }
 
 -- The ModGuts takes on several slightly different forms:
@@ -1211,6 +1215,21 @@ noHpcInfo = NoHpcInfo
 
 %************************************************************************
 %*									*
+\subsection{Vectorisation Support}
+%*									*
+%************************************************************************
+
+\begin{code}
+data VectInfo = VectInfo {
+                  vectInfoCCVar :: NameSet
+                }
+
+noVectInfo :: VectInfo
+noVectInfo = VectInfo emptyNameSet
+\end{code}
+
+%************************************************************************
+%*									*
 \subsection{Linkable stuff}
 %*									*
 %************************************************************************
diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index 32dd862..ce98772 100644
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -320,7 +320,8 @@ tcRnExtCore hsc_env (HsExtCore this_mod decls src_binds)
 				mg_deprecs   = NoDeprecs,
 				mg_foreign   = NoStubs,
 				mg_hpc_info  = noHpcInfo,
-                                mg_modBreaks = emptyModBreaks  
+                                mg_modBreaks = emptyModBreaks,
+                                mg_vect_info = noVectInfo
 		    } } ;
 
    tcCoreDump mod_guts ;
-- 
1.7.10.4