summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGabor Greif <ggreif@gmail.com>2013-04-06 19:55:47 +0200
committerGabor Greif <ggreif@gmail.com>2013-04-06 19:59:33 +0200
commit35a341d4e78078d62ae230f18e5d664f0135e4d1 (patch)
tree53455ecbe9bf3a9d540fa447abdf252e3168cd51
parentc0fb187b3cc6722308b4d475151428778502e0dd (diff)
downloadhaskell-35a341d4e78078d62ae230f18e5d664f0135e4d1.tar.gz
Rewrite usingInconsistentPicReg as a table for clarity
No change in functionality intended
-rw-r--r--compiler/cmm/CmmPipeline.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/cmm/CmmPipeline.hs b/compiler/cmm/CmmPipeline.hs
index 78fed222ef..5e9bca30e3 100644
--- a/compiler/cmm/CmmPipeline.hs
+++ b/compiler/cmm/CmmPipeline.hs
@@ -184,11 +184,11 @@ cpsTop hsc_env proc =
|| not (tablesNextToCode dflags)
|| -- Note [inconsistent-pic-reg]
usingInconsistentPicReg
- usingInconsistentPicReg = ( platformArch platform == ArchX86 ||
- platformArch platform == ArchPPC
- )
- && platformOS platform == OSDarwin
- && gopt Opt_PIC dflags
+ usingInconsistentPicReg
+ = case (platformArch platform, platformOS platform, gopt Opt_PIC dflags)
+ of (ArchX86, OSDarwin, pic) -> pic
+ (ArchPPC, OSDarwin, pic) -> pic
+ _ -> False
{- Note [inconsistent-pic-reg]