projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[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 AbsCUtils ( mkAbstractCs, mkAbsCStmts )
import Bag ( foldBag )
+import CgBindery ( CgIdInfo )
import CgClosure ( cgTopRhsClosure )
import CgCon ( cgTopRhsCon )
import CgConTbls ( genStaticConBits )
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 CmdLineOpts ( opt_SccProfilingOn, opt_CompilingGhcInternals,
opt_EnsureSplittableC, opt_SccGroup
)
+import CostCentre ( CostCentre )
import CStrings ( modnameToC )
import CStrings ( modnameToC )
+import FiniteMap ( FiniteMap )
+import Id ( SYN_IE(Id) )
import Maybes ( maybeToBool )
import Maybes ( maybeToBool )
+import Name ( SYN_IE(Module) )
import PrimRep ( getPrimRepSize, PrimRep(..) )
import PrimRep ( getPrimRepSize, PrimRep(..) )
+import Type ( SYN_IE(Type) )
+import TyCon ( TyCon )
import Util ( panic, assertPanic )
\end{code}
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
= 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 [
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
= 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}
\end{code}