diff options
| author | partain <unknown> | 1996-04-09 10:28:48 +0000 |
|---|---|---|
| committer | partain <unknown> | 1996-04-09 10:28:48 +0000 |
| commit | b4255f2c320f852d7dfb0afc0bc9f64765aece0c (patch) | |
| tree | 6a7a9f23229fe841f97d52e1faae4a26337d94ac /ghc/compiler/codeGen/CodeGen.lhs | |
| parent | 7b0181919416d8f04324575b7e17031ca692f5b0 (diff) | |
| download | haskell-b4255f2c320f852d7dfb0afc0bc9f64765aece0c.tar.gz | |
[project @ 1996-04-09 10:27:46 by partain]
Sansom 1.3 changes through 960408
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 2b193da6e5..f1a0d30e95 100644 --- a/ghc/compiler/codeGen/CodeGen.lhs +++ b/ghc/compiler/codeGen/CodeGen.lhs @@ -44,7 +44,7 @@ import Util ( panic, assertPanic ) codeGen :: FAST_STRING -- module name -> ([CostCentre], -- local cost-centres needing declaring/registering [CostCentre]) -- "extern" cost-centres needing declaring - -> Bag FAST_STRING -- import names + -> [Module] -- import names -> [TyCon] -- tycons with data constructors to convert -> FiniteMap TyCon [(Bool, [Maybe Type])] -- tycon specialisation info @@ -98,7 +98,7 @@ codeGen mod_name (local_CCs, extern_CCs) import_names gen_tycons tycon_specs stg = let register_ccs = mkAbstractCs (map mk_register ccs) register_imports - = foldBag mkAbsCStmts mk_import_register AbsCNop import_names + = foldr (mkAbsCStmts . mk_import_register) AbsCNop import_names in mkAbstractCs [ CCallProfCCMacro SLIT("START_REGISTER_CCS") [CLitLit (modnameToC (SLIT("_reg") _APPEND_ mod_name)) AddrRep], |