diff options
| author | John Paul Adrian Glaubitz <glaubitz@physik.fu-berlin.de> | 2015-12-19 10:39:25 +0100 |
|---|---|---|
| committer | Sergei Trofimovich <siarheit@google.com> | 2015-12-19 17:15:07 +0000 |
| commit | 59de6e84ff022ddca540724ab1aa0577c6aa2363 (patch) | |
| tree | d427608ebcb428244feabcc3c57c7d36a21a8e40 /compiler/nativeGen/RegAlloc/Linear | |
| parent | b02838405b00bcdeebb44da0a7a9562cd7fda66b (diff) | |
| download | haskell-59de6e84ff022ddca540724ab1aa0577c6aa2363.tar.gz | |
Add sparc64 a known architecture (Ticket #11211)
Explicitly pass "--no-relax" on ArchSPARC64
(as ArchSPARC does) where gcc's default specs
set "-mrelax" which conflicts with "-Wl,-r".
Known architecture will also help extending
sparc NCG support 64-bit ABI.
Signed-off-by: John Paul Adrian Glaubitz <glaubitz@physik.fu-berlin.de>
Signed-off-by: Sergei Trofimovich <siarheit@google.com>
Diffstat (limited to 'compiler/nativeGen/RegAlloc/Linear')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs | 1 | ||||
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Linear/Main.hs | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs b/compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs index 072e448492..9933f5bb49 100644 --- a/compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs +++ b/compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs @@ -74,6 +74,7 @@ maxSpillSlots dflags ArchX86_64 -> X86.Instr.maxSpillSlots dflags ArchPPC -> PPC.Instr.maxSpillSlots dflags ArchSPARC -> SPARC.Instr.maxSpillSlots dflags + ArchSPARC64 -> panic "maxSpillSlots ArchSPARC64" ArchARM _ _ _ -> panic "maxSpillSlots ArchARM" ArchARM64 -> panic "maxSpillSlots ArchARM64" ArchPPC_64 _ -> PPC.Instr.maxSpillSlots dflags diff --git a/compiler/nativeGen/RegAlloc/Linear/Main.hs b/compiler/nativeGen/RegAlloc/Linear/Main.hs index 2d593c626d..9f71158301 100644 --- a/compiler/nativeGen/RegAlloc/Linear/Main.hs +++ b/compiler/nativeGen/RegAlloc/Linear/Main.hs @@ -208,6 +208,7 @@ linearRegAlloc dflags entry_ids block_live sccs ArchX86 -> go $ (frInitFreeRegs platform :: X86.FreeRegs) ArchX86_64 -> go $ (frInitFreeRegs platform :: X86_64.FreeRegs) ArchSPARC -> go $ (frInitFreeRegs platform :: SPARC.FreeRegs) + ArchSPARC64 -> panic "linearRegAlloc ArchSPARC64" ArchPPC -> go $ (frInitFreeRegs platform :: PPC.FreeRegs) ArchARM _ _ _ -> panic "linearRegAlloc ArchARM" ArchARM64 -> panic "linearRegAlloc ArchARM64" |