[project @ 1997-05-26 01:17:20 by sof]

[ghc-hetmet.git] / ghc / compiler / codeGen / CodeGen.lhs

diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs
index 4a1fed5..4865d4e 100644 (file)
--- a/ghc/compiler/codeGen/CodeGen.lhs
+++ b/ghc/compiler/codeGen/CodeGen.lhs
@@ -27,6 +27,7 @@ import AbsCSyn
 
 import AbsCUtils       ( mkAbstractCs, mkAbsCStmts )
 import Bag             ( foldBag )
+import CgBindery       ( CgIdInfo )
 import CgClosure       ( cgTopRhsClosure )
 import CgCon           ( cgTopRhsCon )
 import CgConTbls       ( genStaticConBits )
@@ -34,9 +35,15 @@ import ClosureInfo   ( mkClosureLFInfo )
 import CmdLineOpts     ( opt_SccProfilingOn, opt_CompilingGhcInternals,
                          opt_EnsureSplittableC, opt_SccGroup
                        )
+import CostCentre       ( CostCentre )
 import CStrings                ( modnameToC )
+import FiniteMap       ( FiniteMap )
+import Id               ( SYN_IE(Id) )
 import Maybes          ( maybeToBool )
+import Name             ( SYN_IE(Module) )
 import PrimRep         ( getPrimRepSize, PrimRep(..) )
+import Type             ( SYN_IE(Type) )
+import TyCon            ( TyCon )
 import Util            ( panic, assertPanic )
 \end{code}
 
@@ -55,11 +62,8 @@ codeGen mod_name (local_CCs, extern_CCs) import_names gen_tycons tycon_specs stg
   = let
        doing_profiling   = opt_SccProfilingOn
        compiling_prelude = opt_CompilingGhcInternals
-       maybe_split       = if maybeToBool (opt_EnsureSplittableC)
-                           then CSplitMarker
-                           else AbsCNop
-
-       cinfo = MkCompInfo mod_name
+       maybe_split       = if opt_EnsureSplittableC then CSplitMarker else AbsCNop
+       cinfo             = MkCompInfo mod_name
     in
     if not doing_profiling then
        mkAbstractCs [
@@ -165,5 +169,5 @@ cgTopRhs name (StgRhsClosure cc bi fvs upd_flag args body)
   = ASSERT(null fvs) -- There should be no free variables
     forkStatics (cgTopRhsClosure name cc bi args body lf_info)
   where
-    lf_info = mkClosureLFInfo True{-top level-} [{-no fvs-}] upd_flag args body
+    lf_info = mkClosureLFInfo True{-top level-} [{-no fvs-}] upd_flag args
 \end{code}