Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
GHC
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Locked Files
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Iterations
Merge Requests
0
Merge Requests
0
Requirements
Requirements
List
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Security & Compliance
Security & Compliance
Dependency List
License Compliance
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Package Registry
Container Registry
Analytics
Analytics
CI / CD
Code Review
Insights
Issue
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Alex D
GHC
Commits
e1b45af1
Commit
e1b45af1
authored
Jan 16, 2008
by
Clemens Fruhwirth
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add -dynload flag as dynamic flag.
parent
fec69920
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
19 additions
and
0 deletions
+19
-0
compiler/main/DynFlags.hs
compiler/main/DynFlags.hs
+19
-0
No files found.
compiler/main/DynFlags.hs
View file @
e1b45af1
...
...
@@ -29,6 +29,7 @@ module DynFlags (
GhcLink
(
..
),
isNoLink
,
PackageFlag
(
..
),
Option
(
..
),
DynLibLoader
(
..
),
fFlags
,
xFlags
,
-- Configuration of the core-to-core and stg-to-stg phases
...
...
@@ -333,6 +334,7 @@ data DynFlags = DynFlags {
outputFile
::
Maybe
String
,
outputHi
::
Maybe
String
,
dynLibLoader
::
DynLibLoader
,
-- | This is set by DriverPipeline.runPipeline based on where
-- its output is going.
...
...
@@ -459,6 +461,12 @@ defaultObjectTarget
|
cGhcWithNativeCodeGen
==
"YES"
=
HscAsm
|
otherwise
=
HscC
data
DynLibLoader
=
Deployable
|
Wrapped
(
Maybe
String
)
|
SystemDependent
deriving
Eq
initDynFlags
dflags
=
do
-- someday these will be dynamic flags
ways
<-
readIORef
v_Ways
...
...
@@ -505,6 +513,7 @@ defaultDynFlags =
outputFile
=
Nothing
,
outputHi
=
Nothing
,
dynLibLoader
=
Deployable
,
dumpPrefix
=
Nothing
,
dumpPrefixForce
=
Nothing
,
includePaths
=
[]
,
...
...
@@ -601,6 +610,15 @@ setHcSuf f d = d{ hcSuf = f}
setOutputFile
f
d
=
d
{
outputFile
=
f
}
setOutputHi
f
d
=
d
{
outputHi
=
f
}
parseDynLibLoaderMode
f
d
=
case
splitAt
8
f
of
(
"deploy"
,
""
)
->
d
{
dynLibLoader
=
Deployable
}
(
"sysdep"
,
""
)
->
d
{
dynLibLoader
=
SystemDependent
}
(
"wrapped"
,
""
)
->
d
{
dynLibLoader
=
Wrapped
Nothing
}
(
"wrapped:"
,
"hard"
)
->
d
{
dynLibLoader
=
Wrapped
Nothing
}
(
"wrapped:"
,
flex
)
->
d
{
dynLibLoader
=
Wrapped
(
Just
flex
)
}
(
_
,
_
)
->
error
"Unknown dynlib loader"
setDumpPrefixForce
f
d
=
d
{
dumpPrefixForce
=
f
}
-- XXX HACK: Prelude> words "'does not' work" ===> ["'does","not'","work"]
...
...
@@ -993,6 +1011,7 @@ dynamic_flags = [
,
(
"c"
,
NoArg
(
upd
$
\
d
->
d
{
ghcLink
=
NoLink
}
))
,
(
"no-link"
,
NoArg
(
upd
$
\
d
->
d
{
ghcLink
=
NoLink
}
))
-- Dep.
,
(
"shared"
,
NoArg
(
upd
$
\
d
->
d
{
ghcLink
=
LinkDynLib
}
))
,
(
"dynload"
,
HasArg
(
upd
.
parseDynLibLoaderMode
))
------- Libraries ---------------------------------------------------
,
(
"L"
,
Prefix
addLibraryPath
)
...
...
Write
Preview
Markdown
is supported
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