summaryrefslogtreecommitdiff
path: root/compiler/main
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2009-07-05 13:24:20 +0000
committerIan Lynagh <igloo@earth.li>2009-07-05 13:24:20 +0000
commit0c5a05841df790c3d6b8537debc3b18aa8da98c5 (patch)
tree0fd436ab5782f0667169d2697b15e4155a25b4b1 /compiler/main
parent035890658d56bc5233f73b311a1bd08c41752d33 (diff)
downloadhaskell-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.hs2
-rw-r--r--compiler/main/StaticFlagParser.hs1
-rw-r--r--compiler/main/StaticFlags.hs4
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")