diff options
| author | simonpj <unknown> | 2000-10-31 12:07:44 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2000-10-31 12:07:44 +0000 |
| commit | 5f67848a9c686f64bd4960a40a0e109f286df74b (patch) | |
| tree | 09f73499197b589995ca73fe42fa0fd499ce04a1 /ghc/compiler/codeGen | |
| parent | bad73fe51fe3ab3bb3e2472a5f44ce2afcf216f8 (diff) | |
| download | haskell-5f67848a9c686f64bd4960a40a0e109f286df74b.tar.gz | |
[project @ 2000-10-31 12:07:43 by simonpj]
Improve MkIface; get ready for NameEnv.lhs
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CodeGen.lhs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs index 90bc8f94a1..8eab80e904 100644 --- a/ghc/compiler/codeGen/CodeGen.lhs +++ b/ghc/compiler/codeGen/CodeGen.lhs @@ -38,7 +38,6 @@ import Id ( Id, idName ) import Module ( Module ) import PrimRep ( PrimRep(..) ) import TyCon ( TyCon, isDataTyCon ) -import Class ( Class, classTyCon ) import BasicTypes ( TopLevelFlag(..) ) import UniqSupply ( mkSplitUniqSupply ) import ErrUtils ( dumpIfSet_dyn ) @@ -55,12 +54,12 @@ codeGen :: DynFlags [CostCentre], -- "extern" cost-centres needing declaring [CostCentreStack]) -- Pre-defined "singleton" cost centre stacks -> [Id] -- foreign-exported binders - -> [TyCon] -> [Class] -- Local tycons and classes + -> [TyCon] -- Local tycons, including ones from classes -> [(StgBinding,[Id])] -- Bindings to convert, with SRTs -> IO AbstractC -- Output codeGen dflags mod_name imported_modules cost_centre_info fe_binders - tycons classes stg_binds + tycons stg_binds = mkSplitUniqSupply 'f' >>= \ fl_uniqs -> -- absC flattener let datatype_stuff = genStaticConBits cinfo data_tycons @@ -82,9 +81,7 @@ codeGen dflags mod_name imported_modules cost_centre_info fe_binders return flat_abstractC where - data_tycons = filter isDataTyCon (tycons ++ map classTyCon classes) - -- Generate info tables for the data constrs arising - -- from class decls as well + data_tycons = filter isDataTyCon tycons maybe_split = if opt_EnsureSplittableC then CSplitMarker |