From 9ab998b352675f578364994658b772985dd82163 Mon Sep 17 00:00:00 2001 From: simonmar Date: Thu, 25 Oct 2001 11:37:49 +0000 Subject: [PATCH] [project @ 2001-10-25 11:37:49 by simonmar] - only generate split markers if we're splitting - remove a couple of unused imports --- ghc/compiler/codeGen/CgConTbls.lhs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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 -- 1.7.10.4