diff options
author | Ian Lynagh <igloo@earth.li> | 2009-07-05 13:24:20 +0000 |
---|---|---|
committer | Ian Lynagh <igloo@earth.li> | 2009-07-05 13:24:20 +0000 |
commit | 0c5a05841df790c3d6b8537debc3b18aa8da98c5 (patch) | |
tree | 0fd436ab5782f0667169d2697b15e4155a25b4b1 /compiler/main | |
parent | 035890658d56bc5233f73b311a1bd08c41752d33 (diff) | |
download | haskell-0c5a05841df790c3d6b8537debc3b18aa8da98c5.tar.gz |
Make -fext-core a dynamic flag (it was a static flag)
Diffstat (limited to 'compiler/main')
-rw-r--r-- | compiler/main/DynFlags.hs | 2 | ||||
-rw-r--r-- | compiler/main/StaticFlagParser.hs | 1 | ||||
-rw-r--r-- | compiler/main/StaticFlags.hs | 4 |
3 files changed, 2 insertions, 5 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 394965a850..e39bff3f6e 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -309,6 +309,7 @@ data DynFlag | Opt_PrintBindContents | Opt_GenManifest | Opt_EmbedManifest + | Opt_EmitExternalCore -- temporary flags | Opt_RunCPS @@ -1740,6 +1741,7 @@ fFlags = [ deprecatedForLanguage "IncoherentInstances" ), ( "gen-manifest", Opt_GenManifest, const Supported ), ( "embed-manifest", Opt_EmbedManifest, const Supported ), + ( "ext-core", Opt_EmitExternalCore, const Supported ), ( "implicit-import-qualified", Opt_ImplicitImportQualified, const Supported ) ] diff --git a/compiler/main/StaticFlagParser.hs b/compiler/main/StaticFlagParser.hs index ae7b00d223..f3d737cbd7 100644 --- a/compiler/main/StaticFlagParser.hs +++ b/compiler/main/StaticFlagParser.hs @@ -167,7 +167,6 @@ isStaticFlag f = "static", "fhardwire-lib-paths", "funregisterised", - "fext-core", "fcpr-off", "ferror-spans", "fPIC", diff --git a/compiler/main/StaticFlags.hs b/compiler/main/StaticFlags.hs index d3b7cb45ab..3660d37561 100644 --- a/compiler/main/StaticFlags.hs +++ b/compiler/main/StaticFlags.hs @@ -68,7 +68,6 @@ module StaticFlags ( opt_HistorySize, opt_OmitBlackHoling, opt_Unregisterised, - opt_EmitExternalCore, v_Ld_inputs, tablesNextToCode, opt_StubDeadValues, @@ -281,9 +280,6 @@ tablesNextToCode :: Bool tablesNextToCode = not opt_Unregisterised && cGhcEnableTablesNextToCode == "YES" -opt_EmitExternalCore :: Bool -opt_EmitExternalCore = lookUp (fsLit "-fext-core") - -- Include full span info in error messages, instead of just the start position. opt_ErrorSpans :: Bool opt_ErrorSpans = lookUp (fsLit "-ferror-spans") |