[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