- CClosureInfoAndCode closure_info body Nothing con_descr
-
- static_code = CClosureInfoAndCode static_ci body Nothing con_descr
-
- cost_centre = mkCCostCentreStack dontCareCCS -- not worried about static data costs
-
- -- For zero-arity data constructors, or, more accurately,
- -- those which only have VoidRep args (or none):
- -- We make the closure too (not just info tbl), so that we can share
- -- one copy throughout.
- closure_maybe = if not zero_arity_con then
- AbsCNop
- else
- CStaticClosure closure_label -- Label for closure
- static_ci -- Info table
- cost_centre
- [{-No args! A slight lie for constrs
- with VoidRep args-}]