Fix tab and improve whitespace
authorPeter Trommler <ptrommler@acm.org>
Sat, 29 Dec 2018 10:29:02 +0000 (11:29 +0100)
committerBen Gamari <ben@well-typed.com>
Thu, 17 Jan 2019 18:39:40 +0000 (13:39 -0500)
compiler/nativeGen/PPC/CodeGen.hs

index 5586e0e..e4bf5fe 100644 (file)
@@ -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'