Commit 35a341d4 authored by Gabor Greif's avatar Gabor Greif 💬
Browse files

Rewrite usingInconsistentPicReg as a table for clarity

No change in functionality intended
parent c0fb187b
...@@ -184,11 +184,11 @@ cpsTop hsc_env proc = ...@@ -184,11 +184,11 @@ cpsTop hsc_env proc =
|| not (tablesNextToCode dflags) || not (tablesNextToCode dflags)
|| -- Note [inconsistent-pic-reg] || -- Note [inconsistent-pic-reg]
usingInconsistentPicReg usingInconsistentPicReg
usingInconsistentPicReg = ( platformArch platform == ArchX86 || usingInconsistentPicReg
platformArch platform == ArchPPC = case (platformArch platform, platformOS platform, gopt Opt_PIC dflags)
) of (ArchX86, OSDarwin, pic) -> pic
&& platformOS platform == OSDarwin (ArchPPC, OSDarwin, pic) -> pic
&& gopt Opt_PIC dflags _ -> False
{- Note [inconsistent-pic-reg] {- Note [inconsistent-pic-reg]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment