[commit: ghc] wip/T15916: Fix tab and improve whitespace (26bd5a2)

git at git.haskell.org git at git.haskell.org
Sun Mar 31 15:09:00 UTC 2019


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/T15916
Link       : http://ghc.haskell.org/trac/ghc/changeset/26bd5a2734183632d904727db7988a3c5990c53a/ghc

>---------------------------------------------------------------

commit 26bd5a2734183632d904727db7988a3c5990c53a
Author: Peter Trommler <ptrommler at acm.org>
Date:   Sat Dec 29 11:29:02 2018 +0100

    Fix tab and improve whitespace


>---------------------------------------------------------------

26bd5a2734183632d904727db7988a3c5990c53a
 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