summaryrefslogtreecommitdiff
path: root/compiler/GHC/Linker
diff options
context:
space:
mode:
authorMatthew Pickering <matthewtpickering@gmail.com>2021-06-23 10:28:07 +0100
committerMarge Bot <ben+marge-bot@smart-cactus.org>2021-06-24 20:37:42 -0400
commitf926ecfdcdf5468b8539bc8f4aad87404f1e397e (patch)
tree12bdc168c807fa824e9b3af1af05220b33b192fe /compiler/GHC/Linker
parent1c811959187626f33d9b6c9f04f5768155388876 (diff)
downloadhaskell-f926ecfdcdf5468b8539bc8f4aad87404f1e397e.tar.gz
linker: Replace one missed usage of Opt_RPath with useXLinkerRPath
Thanks to @wz1000 for spotting this oversight.
Diffstat (limited to 'compiler/GHC/Linker')
-rw-r--r--compiler/GHC/Linker/Static.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Linker/Static.hs b/compiler/GHC/Linker/Static.hs
index a94fa153f6..cfb83f0575 100644
--- a/compiler/GHC/Linker/Static.hs
+++ b/compiler/GHC/Linker/Static.hs
@@ -111,7 +111,7 @@ linkBinary' staticLink logger tmpfs dflags unit_env o_files dep_units = do
| osMachOTarget (platformOS platform) &&
dynLibLoader dflags == SystemDependent &&
WayDyn `elem` ways dflags &&
- gopt Opt_RPath dflags
+ useXLinkerRPath dflags (platformOS platform)
= let libpath = if gopt Opt_RelativeDynlibPaths dflags
then "@loader_path" </>
(l `makeRelativeTo` full_output_fn)