diff options
Diffstat (limited to 'compiler/main/StaticFlags.hs')
| -rw-r--r-- | compiler/main/StaticFlags.hs | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs index feb7235ac0..635e8ce38e 100644 --- a/compiler/main/StaticFlags.hs +++ b/compiler/main/StaticFlags.hs @@ -26,8 +26,6 @@ module StaticFlags ( -- optimisation opts opt_NoStateHack, - opt_CprOff, - opt_NestedCprOff, opt_NoOptCoercion, -- For the parser @@ -140,9 +138,7 @@ isStaticFlag f = f `elem` flagsStaticNames flagsStaticNames :: [String] flagsStaticNames = [ "fno-state-hack", - "fno-opt-coercion", - "fcpr-off", - "fnested-cpr-off" + "fno-opt-coercion" ] -- We specifically need to discard static flags for clients of the @@ -155,7 +151,6 @@ discardStaticFlags :: [String] -> [String] discardStaticFlags = filter (\x -> x `notElem` flags) where flags = [ "-fno-state-hack" , "-fno-opt-coercion" - , "-fcpr-off" , "-dppr-debug" , "-dno-debug-output" ] @@ -198,12 +193,6 @@ opt_NoStateHack :: Bool opt_NoStateHack = lookUp (fsLit "-fno-state-hack") -- Switch off CPR analysis in the demand analyser -opt_CprOff :: Bool -opt_CprOff = lookUp (fsLit "-fcpr-off") - -opt_NestedCprOff :: Bool -opt_NestedCprOff = lookUp (fsLit "-fnested-cpr-off") - opt_NoOptCoercion :: Bool opt_NoOptCoercion = lookUp (fsLit "-fno-opt-coercion") |