------- ways --------------------------------------------------------
, Flag "prof" (NoArg (addWay WayProf)) Supported
+ , Flag "eventlog" (NoArg (addWay WayEventLog)) Supported
, Flag "ticky" (NoArg (addWay WayTicky)) Supported
, Flag "parallel" (NoArg (addWay WayPar)) Supported
, Flag "gransim" (NoArg (addWay WayGran)) Supported
, Flag "dstub-dead-values" (PassFlag addOpt) Supported
-- rest of the debugging flags are dynamic
- --------- Profiling --------------------------------------------------
- , Flag "auto-all" (NoArg (addOpt "-fauto-sccs-on-all-toplevs"))
- Supported
- , Flag "auto" (NoArg (addOpt "-fauto-sccs-on-exported-toplevs"))
- Supported
- , Flag "caf-all" (NoArg (addOpt "-fauto-sccs-on-individual-cafs"))
- Supported
- -- "ignore-sccs" doesn't work (ToDo)
-
- , Flag "no-auto-all" (NoArg (removeOpt "-fauto-sccs-on-all-toplevs"))
- Supported
- , Flag "no-auto" (NoArg (removeOpt "-fauto-sccs-on-exported-toplevs"))
- Supported
- , Flag "no-caf-all" (NoArg (removeOpt "-fauto-sccs-on-individual-cafs"))
- Supported
-
----- Linker --------------------------------------------------------
, Flag "static" (PassFlag addOpt) Supported
, Flag "dynamic" (NoArg (removeOpt "-static")) Supported
isStaticFlag :: String -> Bool
isStaticFlag f =
f `elem` [
- "fauto-sccs-on-all-toplevs",
- "fauto-sccs-on-exported-toplevs",
- "fauto-sccs-on-individual-cafs",
"fscc-profiling",
"fdicts-strict",
"fspec-inline-join-points",