Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
0c5a0584
Commit
0c5a0584
authored
Jul 05, 2009
by
Ian Lynagh
Browse files
Make -fext-core a dynamic flag (it was a static flag)
parent
03589065
Changes
5
Hide whitespace changes
Inline
Side-by-side
compiler/coreSyn/MkExternalCore.lhs
View file @
0c5a0584
...
...
@@ -26,7 +26,6 @@ import Outputable
import Encoding
import ForeignCall
import DynFlags
import StaticFlags
import FastString
import IO
...
...
@@ -34,7 +33,7 @@ import Data.Char
emitExternalCore :: DynFlags -> CgGuts -> IO ()
emitExternalCore dflags cg_guts
|
o
pt_EmitExternalCore
|
dopt O
pt_EmitExternalCore
dflags
= (do handle <- openFile corename WriteMode
hPutStrLn handle (show (mkExternalCore cg_guts))
hClose handle)
...
...
compiler/main/DynFlags.hs
View file @
0c5a0584
...
...
@@ -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
)
]
...
...
compiler/main/StaticFlagParser.hs
View file @
0c5a0584
...
...
@@ -167,7 +167,6 @@ isStaticFlag f =
"static"
,
"fhardwire-lib-paths"
,
"funregisterised"
,
"fext-core"
,
"fcpr-off"
,
"ferror-spans"
,
"fPIC"
,
...
...
compiler/main/StaticFlags.hs
View file @
0c5a0584
...
...
@@ -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"
)
...
...
docs/users_guide/flags.xml
View file @
0c5a0584
...
...
@@ -2054,7 +2054,7 @@
<row>
<entry><option>
-fext-core
</option></entry>
<entry>
Generate
<filename>
.hcr
</filename>
external Core files
</entry>
<entry>
stat
ic
</entry>
<entry>
dynam
ic
</entry>
<entry>
-
</entry>
</row>
</tbody>
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment