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
Shayne Fletcher
Glasgow Haskell Compiler
Commits
1b98179e
Commit
1b98179e
authored
Jan 10, 2008
by
Clemens Fruhwirth
Browse files
Remove -fhardwire-lib-paths in favour of -dynload sysdep
parent
6c54855b
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/main/DriverPipeline.hs
View file @
1b98179e
...
...
@@ -35,7 +35,7 @@ import Module
import
UniqFM
(
eltsUFM
)
import
ErrUtils
import
DynFlags
import
StaticFlags
(
v_Ld_inputs
,
opt_Static
,
opt_HardwireLibPaths
,
WayName
(
..
)
)
import
StaticFlags
(
v_Ld_inputs
,
opt_Static
,
WayName
(
..
)
)
import
Config
import
Panic
import
Util
...
...
@@ -1197,8 +1197,12 @@ linkBinary dflags o_files dep_packages = do
pkg_lib_paths
<-
getPackageLibraryPath
dflags
dep_packages
let
pkg_lib_path_opts
=
concat
(
map
get_pkg_lib_path_opts
pkg_lib_paths
)
get_pkg_lib_path_opts
l
|
opt_HardwireLibPaths
&&
not
opt_Static
=
[
"-L"
++
l
,
"-Wl,-rpath"
,
"-Wl,"
++
l
]
|
otherwise
=
[
"-L"
++
l
]
#
ifdef
linux_TARGET_OS
get_pkg_lib_path_opts
l
|
(
dynLibLoader
dflags
)
==
SystemDependent
&&
not
opt_Static
=
[
"-L"
++
l
,
"-Wl,-rpath"
,
"-Wl,"
++
l
]
|
otherwise
=
[
"-L"
++
l
]
#
else
get_pkg_lib_path_opts
l
=
[
"-L"
++
l
]
#
endif
let
lib_paths
=
libraryPaths
dflags
let
lib_path_opts
=
map
(
"-L"
++
)
lib_paths
...
...
compiler/main/StaticFlags.hs
View file @
1b98179e
...
...
@@ -64,7 +64,6 @@ module StaticFlags (
-- Related to linking
opt_PIC
,
opt_Static
,
opt_HardwireLibPaths
,
-- misc opts
opt_IgnoreDotGhci
,
...
...
@@ -336,7 +335,6 @@ opt_PIC = True
opt_PIC
=
lookUp
FSLIT
(
"-fPIC"
)
#
endif
opt_Static
=
lookUp
FSLIT
(
"-static"
)
opt_HardwireLibPaths
=
lookUp
FSLIT
(
"-fhardwire-lib-paths"
)
opt_Unregisterised
=
lookUp
FSLIT
(
"-funregisterised"
)
-- Derived, not a real option. Determines whether we will be compiling
...
...
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