import StgCmmClosure
import StgCmmProf
-import Cmm
+import CmmExpr
import CLabel
-import MkZipCfgCmm (CmmAGraph, mkNop)
+import MkGraph
import SMRep
import CostCentre
import Module
import PrelInfo
import Outputable
import Util ( lengthIs )
-import StaticFlags ( opt_PIC )
+
import Data.Char
+#if defined(mingw32_TARGET_OS)
+import StaticFlags ( opt_PIC )
+#endif
+
---------------------------------------------------------------
-- Top-level constructors
= do { let (cl_info, args_w_offsets) = layOutDynConstr con (addArgReps args)
-- No void args in args_w_offsets
; (tmp, init) <- allocDynClosure cl_info use_cc blame_cc args_w_offsets
- ; return (regIdInfo binder lf_info tmp, init) }
+ ; regIdInfo binder lf_info tmp init }
where
lf_info = mkConLFInfo con