diff options
| author | partain <unknown> | 1996-06-26 10:30:32 +0000 |
|---|---|---|
| committer | partain <unknown> | 1996-06-26 10:30:32 +0000 |
| commit | 26741ec416bae2c502ef00a2ba0e79050a32cb67 (patch) | |
| tree | c07e46b823d29a16838533a17659ed3b28e9f328 /ghc/compiler/codeGen/CodeGen.lhs | |
| parent | ae45ff0e9831a0dc862a5d68d03e355d7e323c62 (diff) | |
| download | haskell-26741ec416bae2c502ef00a2ba0e79050a32cb67.tar.gz | |
[project @ 1996-06-26 10:26:00 by partain]
SLPJ 1.3 changes through 96/06/25
Diffstat (limited to 'ghc/compiler/codeGen/CodeGen.lhs')
| -rw-r--r-- | ghc/compiler/codeGen/CodeGen.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs index 590aa9f65e..4a1fed5c3a 100644 --- a/ghc/compiler/codeGen/CodeGen.lhs +++ b/ghc/compiler/codeGen/CodeGen.lhs @@ -31,7 +31,7 @@ import CgClosure ( cgTopRhsClosure ) import CgCon ( cgTopRhsCon ) import CgConTbls ( genStaticConBits ) import ClosureInfo ( mkClosureLFInfo ) -import CmdLineOpts ( opt_SccProfilingOn, opt_CompilingPrelude, +import CmdLineOpts ( opt_SccProfilingOn, opt_CompilingGhcInternals, opt_EnsureSplittableC, opt_SccGroup ) import CStrings ( modnameToC ) @@ -54,7 +54,7 @@ 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_CompilingPrelude + compiling_prelude = opt_CompilingGhcInternals maybe_split = if maybeToBool (opt_EnsureSplittableC) then CSplitMarker else AbsCNop |