+-- profiling opts
+opt_AutoSccsOnAllToplevs :: Bool
+opt_AutoSccsOnAllToplevs = lookUp (fsLit "-fauto-sccs-on-all-toplevs")
+opt_AutoSccsOnExportedToplevs :: Bool
+opt_AutoSccsOnExportedToplevs = lookUp (fsLit "-fauto-sccs-on-exported-toplevs")
+opt_AutoSccsOnIndividualCafs :: Bool
+opt_AutoSccsOnIndividualCafs = lookUp (fsLit "-fauto-sccs-on-individual-cafs")
+opt_SccProfilingOn :: Bool
+opt_SccProfilingOn = lookUp (fsLit "-fscc-profiling")
+opt_DoTickyProfiling :: Bool
+opt_DoTickyProfiling = WayTicky `elem` (unsafePerformIO $ readIORef v_Ways)