diff options
| author | Peter Trommler <ptrommler@acm.org> | 2018-12-29 11:29:02 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@well-typed.com> | 2019-01-17 13:39:40 -0500 |
| commit | 2d75174bb430ebf2d2e3919b9b525b503c8d3fa0 (patch) | |
| tree | 4460838ddc43c3360abded1dd75d4b28b9a06747 /compiler | |
| parent | 341aa59120dcc2fb712c94d12b65c886f0d5ae97 (diff) | |
| download | haskell-2d75174bb430ebf2d2e3919b9b525b503c8d3fa0.tar.gz | |
Fix tab and improve whitespace
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/nativeGen/PPC/CodeGen.hs | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/compiler/nativeGen/PPC/CodeGen.hs b/compiler/nativeGen/PPC/CodeGen.hs index 5586e0e958..e4bf5fed9d 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' |