diff options
-rw-r--r-- | compiler/GHC/Driver/Session.hs | 4 | ||||
-rw-r--r-- | docs/users_guide/expected-undocumented-flags.txt | 2 | ||||
-rw-r--r-- | docs/users_guide/using-optimisation.rst | 4 |
3 files changed, 4 insertions, 6 deletions
diff --git a/compiler/GHC/Driver/Session.hs b/compiler/GHC/Driver/Session.hs index b312747989..c63301fd71 100644 --- a/compiler/GHC/Driver/Session.hs +++ b/compiler/GHC/Driver/Session.hs @@ -2820,9 +2820,9 @@ dynamic_flags_deps = [ , make_ord_flag defFlag "fstg-lift-lams-rec-args-any" (noArg (\d -> d { liftLamsRecArgs = Nothing })) , make_ord_flag defFlag "fstg-lift-lams-non-rec-args" - (intSuffix (\n d -> d { liftLamsRecArgs = Just n })) + (intSuffix (\n d -> d { liftLamsNonRecArgs = Just n })) , make_ord_flag defFlag "fstg-lift-lams-non-rec-args-any" - (noArg (\d -> d { liftLamsRecArgs = Nothing })) + (noArg (\d -> d { liftLamsNonRecArgs = Nothing })) , make_ord_flag defFlag "fstg-lift-lams-known" (noArg (\d -> d { liftLamsKnown = True })) , make_ord_flag defFlag "fno-stg-lift-lams-known" diff --git a/docs/users_guide/expected-undocumented-flags.txt b/docs/users_guide/expected-undocumented-flags.txt index 8791134f11..fdcf1eaee2 100644 --- a/docs/users_guide/expected-undocumented-flags.txt +++ b/docs/users_guide/expected-undocumented-flags.txt @@ -81,8 +81,6 @@ -fspec-constr-recursive -fspecialize -fspecialize-aggressively --fstg-lift-lams-non-rec-args-any --fstg-lift-lams-rec-args-any -fth -ftype-function-depth -funfolding-keeness-factor diff --git a/docs/users_guide/using-optimisation.rst b/docs/users_guide/using-optimisation.rst index 403faa342e..06ac89c0c2 100644 --- a/docs/users_guide/using-optimisation.rst +++ b/docs/users_guide/using-optimisation.rst @@ -1102,7 +1102,7 @@ by saying ``-fno-wombat``. :shortdesc: Create top-level non-recursive functions with at most <n> parameters while performing late lambda lifting. :type: dynamic - :reverse: -fno-stg-lift-lams-non-rec-args-any + :reverse: -fstg-lift-lams-non-rec-args-any :category: :default: 5 @@ -1115,7 +1115,7 @@ by saying ``-fno-wombat``. :shortdesc: Create top-level recursive functions with at most <n> parameters while performing late lambda lifting. :type: dynamic - :reverse: -fno-stg-lift-lams-rec-args-any + :reverse: -fstg-lift-lams-rec-args-any :category: :default: 5 |