diff options
| author | Gabor Greif <ggreif@gmail.com> | 2013-04-06 19:55:47 +0200 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2013-04-06 19:59:33 +0200 |
| commit | 35a341d4e78078d62ae230f18e5d664f0135e4d1 (patch) | |
| tree | 53455ecbe9bf3a9d540fa447abdf252e3168cd51 | |
| parent | c0fb187b3cc6722308b4d475151428778502e0dd (diff) | |
| download | haskell-35a341d4e78078d62ae230f18e5d664f0135e4d1.tar.gz | |
Rewrite usingInconsistentPicReg as a table for clarity
No change in functionality intended
| -rw-r--r-- | compiler/cmm/CmmPipeline.hs | 10 |
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] |