- do_let_no_escapes = opt_StgDoLetNoEscapes
- do_verbose_stg2stg = opt_D_verbose_stg2stg
-
-{-
- (do_unlocalising, unlocal_tag)
- = case opt_EnsureSplittableC of
- Just tag -> (True, _PK_ tag)
- Nothing -> (False, panic "tag")
--}
- grp_name = case (opt_SccGroup) of
- Just xx -> _PK_ xx
- Nothing -> module_name -- default: module name
-
- -------------
- stg_linter = if False --LATER: opt_DoStgLinting (ToDo)