diff options
Diffstat (limited to 'compiler/main')
| -rw-r--r-- | compiler/main/StaticFlagParser.hs | 1 | ||||
| -rw-r--r-- | compiler/main/StaticFlags.hs | 6 |
2 files changed, 7 insertions, 0 deletions
diff --git a/compiler/main/StaticFlagParser.hs b/compiler/main/StaticFlagParser.hs index 07eb214f74..e6b0d4cb94 100644 --- a/compiler/main/StaticFlagParser.hs +++ b/compiler/main/StaticFlagParser.hs @@ -192,6 +192,7 @@ isStaticFlag f = "static", "fhardwire-lib-paths", "funregisterised", + "faggressive-primops", "fcpr-off", "ferror-spans", "fPIC", diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs index c2f8674aa9..3c13e08372 100644 --- a/compiler/main/StaticFlags.hs +++ b/compiler/main/StaticFlags.hs @@ -62,6 +62,7 @@ module StaticFlags ( opt_SimplExcessPrecision, opt_NoOptCoercion, opt_MaxWorkerArgs, + opt_AggressivePrimOps, -- Unfolding control opt_UF_CreationThreshold, @@ -321,6 +322,11 @@ opt_NoStateHack = lookUp (fsLit "-fno-state-hack") opt_CprOff :: Bool opt_CprOff = lookUp (fsLit "-fcpr-off") -- Switch off CPR analysis in the new demand analyser + +opt_AggressivePrimOps :: Bool +opt_AggressivePrimOps = lookUp (fsLit "-faggressive-primops") + -- See Note [Aggressive PrimOps] in PrimOp + opt_MaxWorkerArgs :: Int opt_MaxWorkerArgs = lookup_def_int "-fmax-worker-args" (10::Int) |