[commit: ghc] wip/fix-osx-ci: Fix tab and improve whitespace (735a0d9)
git at git.haskell.org
git at git.haskell.org
Thu Jan 17 18:57:01 UTC 2019
Repository : ssh://git@git.haskell.org/ghc
On branch : wip/fix-osx-ci
Link : http://ghc.haskell.org/trac/ghc/changeset/735a0d9acb0355334ebbb4d1aca71a3a07cc8591/ghc
>---------------------------------------------------------------
commit 735a0d9acb0355334ebbb4d1aca71a3a07cc8591
Author: Peter Trommler <ptrommler at acm.org>
Date: Sat Dec 29 11:29:02 2018 +0100
Fix tab and improve whitespace
>---------------------------------------------------------------
735a0d9acb0355334ebbb4d1aca71a3a07cc8591
compiler/nativeGen/PPC/CodeGen.hs | 15 ++++++++-------
1 file changed, 8 insertions(+), 7 deletions(-)
diff --git a/compiler/nativeGen/PPC/CodeGen.hs b/compiler/nativeGen/PPC/CodeGen.hs
index 5586e0e..e4bf5fe 100644
--- a/compiler/nativeGen/PPC/CodeGen.hs
+++ b/compiler/nativeGen/PPC/CodeGen.hs
@@ -1569,13 +1569,14 @@ genCCall target dest_regs argsAndHints
data GenCCallPlatform = GCPLinux | GCPLinux64ELF !Int | GCPAIX
platformToGCP :: Platform -> GenCCallPlatform
-platformToGCP platform = case platformOS platform of
- OSAIX -> GCPAIX
- _ -> case platformArch platform of
- ArchPPC -> GCPLinux
- ArchPPC_64 ELF_V1 -> GCPLinux64ELF 1
- ArchPPC_64 ELF_V2 -> GCPLinux64ELF 2
- _ -> panic "platformToGCP: Not PowerPC"
+platformToGCP platform
+ = case platformOS platform of
+ OSAIX -> GCPAIX
+ _ -> case platformArch platform of
+ ArchPPC -> GCPLinux
+ ArchPPC_64 ELF_V1 -> GCPLinux64ELF 1
+ ArchPPC_64 ELF_V2 -> GCPLinux64ELF 2
+ _ -> panic "platformToGCP: Not PowerPC"
genCCall'
More information about the ghc-commits
mailing list