From: simonmar <unknown>
Date: Thu, 25 Oct 2001 11:37:49 +0000 (+0000)
Subject: [project @ 2001-10-25 11:37:49 by simonmar]
X-Git-Tag: Approximately_9120_patches~702
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9ab998b352675f578364994658b772985dd82163;p=ghc-hetmet.git

[project @ 2001-10-25 11:37:49 by simonmar]
- only generate split markers if we're splitting
- remove a couple of unused imports
---

diff --git a/ghc/compiler/codeGen/CgConTbls.lhs b/ghc/compiler/codeGen/CgConTbls.lhs
index 6666b14..757f93b 100644
--- a/ghc/compiler/codeGen/CgConTbls.lhs
+++ b/ghc/compiler/codeGen/CgConTbls.lhs
@@ -12,7 +12,6 @@ import AbsCSyn
 import CgMonad
 
 import AbsCUtils	( mkAbstractCs, mkAbsCStmts )
-import CostCentre	( subsumedCCS )
 import CgTailCall	( performReturn, mkStaticAlgReturnCode )
 import ClosureInfo	( layOutStaticConstr, layOutDynConstr, ClosureInfo )
 import DataCon		( DataCon, dataConName, dataConRepArgTys, isNullaryDataCon )
@@ -20,7 +19,7 @@ import Name		( getOccName )
 import OccName		( occNameUserString )
 import TyCon		( tyConDataCons, isEnumerationTyCon, TyCon )
 import Type		( typePrimRep )
-import Outputable
+import CmdLineOpts	( opt_EnsureSplittableC )
 \end{code}
 
 For every constructor we generate the following info tables:
@@ -107,7 +106,7 @@ genConInfo :: CompilationInfo -> DataCon -> AbstractC
 
 genConInfo comp_info data_con
   = 	-- Order of things is to reduce forward references
-    mkAbstractCs [CSplitMarker,
+    mkAbstractCs [if opt_EnsureSplittableC then CSplitMarker else AbsCNop,
 		  closure_code,
     	    	  static_code]
   where