diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-06-23 10:28:07 +0100 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2021-06-23 10:42:10 +0100 |
commit | dcbc2188eec9183d5ba982f2db070b531aafde3f (patch) | |
tree | d06da7ae3ca09545f451df70ac48e4c263084ae0 | |
parent | 633bbc1fd4762a2bb73ba1c5b9e0c279f1dd3c40 (diff) | |
download | haskell-wip/fix-xlinker.tar.gz |
linker: Replace one missed usage of Opt_RPath with useXLinkerRPathwip/fix-xlinker
Thanks to @wz1000 for spotting this oversight.
-rw-r--r-- | compiler/GHC/Linker/Static.hs | 2 |
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) |