diff options
| author | Christiaan Baaij <christiaan.baaij@gmail.com> | 2015-08-05 14:22:14 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-08-05 14:45:16 +0200 |
| commit | ecb1752ffa12dfa71053f640e6cce64d15e47e8f (patch) | |
| tree | c8e3abdbceff1f03aec3a2a2d9a9bd4d02ca89af /compiler/main/StaticFlags.hs | |
| parent | 60297486fddd5c9695e2263c2ae46fa90f0feb9e (diff) | |
| download | haskell-ecb1752ffa12dfa71053f640e6cce64d15e47e8f.tar.gz | |
Make -fcpr-off a dynamic flag
Test Plan: validate
Reviewers: austin, goldfire, simonpj, bgamari
Reviewed By: bgamari
Subscribers: rwbarton, thomie
Differential Revision: https://phabricator.haskell.org/D1110
GHC Trac Issues: #10706
Diffstat (limited to 'compiler/main/StaticFlags.hs')
| -rw-r--r-- | compiler/main/StaticFlags.hs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs index e2876a43d3..a89f3c54ab 100644 --- a/compiler/main/StaticFlags.hs +++ b/compiler/main/StaticFlags.hs @@ -27,7 +27,6 @@ module StaticFlags ( -- optimisation opts opt_NoStateHack, - opt_CprOff, opt_NoOptCoercion, -- For the parser @@ -144,8 +143,7 @@ isStaticFlag f = f `elem` flagsStaticNames flagsStaticNames :: [String] flagsStaticNames = [ "fno-state-hack", - "fno-opt-coercion", - "fcpr-off" + "fno-opt-coercion" ] -- We specifically need to discard static flags for clients of the @@ -158,7 +156,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" ] @@ -202,10 +199,6 @@ opt_NoDebugOutput = lookUp (fsLit "-dno-debug-output") opt_NoStateHack :: Bool opt_NoStateHack = lookUp (fsLit "-fno-state-hack") --- Switch off CPR analysis in the new demand analyser -opt_CprOff :: Bool -opt_CprOff = lookUp (fsLit "-fcpr-off") - opt_NoOptCoercion :: Bool opt_NoOptCoercion = lookUp (fsLit "-fno-opt-coercion") |