Rewrite usingInconsistentPicReg as a table for clarity

No change in functionality intended

Rewrite usingInconsistentPicReg as a table for clarity
No change in functionality intended
35a341d4 · Gabor Greif · c0fb187b · 35a341d4
Commit 35a341d4 authored Apr 06, 2013 by Gabor Greif 💬
Show whitespace changes
Inline Side-by-side

Showing with 5 additions and 5 deletions

compiler/cmm/CmmPipeline.hs compiler/cmm/CmmPipeline.hs +5 -5

No files found.
--- 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]