Commit 3d8dbba7 authored by chak@cse.unsw.edu.au.'s avatar chak@cse.unsw.edu.au.
Browse files

Added VectInfo to ModGuts

parent 5b9a21bf
......@@ -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)
}}}
......
......@@ -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:
......@@ -1209,6 +1213,21 @@ noHpcInfo :: HpcInfo
noHpcInfo = NoHpcInfo
\end{code}
%************************************************************************
%* *
\subsection{Vectorisation Support}
%* *
%************************************************************************
\begin{code}
data VectInfo = VectInfo {
vectInfoCCVar :: NameSet
}
noVectInfo :: VectInfo
noVectInfo = VectInfo emptyNameSet
\end{code}
%************************************************************************
%* *
\subsection{Linkable stuff}
......
......@@ -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 ;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment