diff options
author | Fendor <power.walross@gmail.com> | 2021-07-19 11:42:01 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-07-21 02:46:50 -0400 |
commit | 5b157eb2bea7fc4ad654c83258cf1ab6ad0f85f0 (patch) | |
tree | 7efac4ebf4829083e9bfe3d0882e463841b7a3be /compiler/GHC/Driver/Pipeline/Execute.hs | |
parent | 06d1ca856d3374bf8dac952740cfe4cef76a350d (diff) | |
download | haskell-5b157eb2bea7fc4ad654c83258cf1ab6ad0f85f0.tar.gz |
Use Ways API instead of Set specific functions
Diffstat (limited to 'compiler/GHC/Driver/Pipeline/Execute.hs')
-rw-r--r-- | compiler/GHC/Driver/Pipeline/Execute.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/GHC/Driver/Pipeline/Execute.hs b/compiler/GHC/Driver/Pipeline/Execute.hs index 022e8ce1a1..997cddf121 100644 --- a/compiler/GHC/Driver/Pipeline/Execute.hs +++ b/compiler/GHC/Driver/Pipeline/Execute.hs @@ -832,10 +832,10 @@ llvmOptions dflags = Just (LlvmTarget _ mcpu mattr) = lookup target (llvmTargets $ llvmConfig dflags) -- Relocation models - rmodel | gopt Opt_PIC dflags = "pic" - | positionIndependent dflags = "pic" - | WayDyn `elem` ways dflags = "dynamic-no-pic" - | otherwise = "static" + rmodel | gopt Opt_PIC dflags = "pic" + | positionIndependent dflags = "pic" + | ways dflags `hasWay` WayDyn = "dynamic-no-pic" + | otherwise = "static" platform = targetPlatform dflags |