diff options
| author | sof <unknown> | 1997-10-19 21:49:12 +0000 |
|---|---|---|
| committer | sof <unknown> | 1997-10-19 21:49:12 +0000 |
| commit | d6de1c958fd66c94fc6a7dca59402983be8d7408 (patch) | |
| tree | 15dc1e9fb53d4dab27eec918c94b551ed2c8e851 /ghc/compiler/codeGen | |
| parent | be8eaf033d0ce56d84b1463d196fd386eed883dc (diff) | |
| download | haskell-d6de1c958fd66c94fc6a7dca59402983be8d7408.tar.gz | |
[project @ 1997-10-19 21:48:43 by sof]
Removed use of opt_CompilingGhcInternals
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CodeGen.lhs | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs index 4865d4ebab..bd164e7495 100644 --- a/ghc/compiler/codeGen/CodeGen.lhs +++ b/ghc/compiler/codeGen/CodeGen.lhs @@ -32,8 +32,8 @@ import CgClosure ( cgTopRhsClosure ) import CgCon ( cgTopRhsCon ) import CgConTbls ( genStaticConBits ) import ClosureInfo ( mkClosureLFInfo ) -import CmdLineOpts ( opt_SccProfilingOn, opt_CompilingGhcInternals, - opt_EnsureSplittableC, opt_SccGroup +import CmdLineOpts ( opt_SccProfilingOn, opt_EnsureSplittableC, + opt_SccGroup ) import CostCentre ( CostCentre ) import CStrings ( modnameToC ) @@ -61,7 +61,6 @@ codeGen :: FAST_STRING -- module name codeGen mod_name (local_CCs, extern_CCs) import_names gen_tycons tycon_specs stg_pgm = let doing_profiling = opt_SccProfilingOn - compiling_prelude = opt_CompilingGhcInternals maybe_split = if opt_EnsureSplittableC then CSplitMarker else AbsCNop cinfo = MkCompInfo mod_name in @@ -80,15 +79,11 @@ codeGen mod_name (local_CCs, extern_CCs) import_names gen_tycons tycon_specs stg -- (The local cost-centres involved in this are passed -- into the code-generator, as are the imported-modules' names.) -- - -- Note: we don't register/etc if compiling Prelude bits. - + -- mkAbstractCs [ - if compiling_prelude - then AbsCNop - else mkAbstractCs [mkAbstractCs (map (CCostCentreDecl True) local_CCs), + mkAbstractCs [mkAbstractCs (map (CCostCentreDecl True) local_CCs), mkAbstractCs (map (CCostCentreDecl False) extern_CCs), - mkCcRegister local_CCs import_names], - + mkCcRegister local_CCs import_names]], genStaticConBits cinfo gen_tycons tycon_specs, initC cinfo (cgTopBindings maybe_split stg_pgm) ] where |