diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-10-18 19:01:27 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-10-18 19:01:27 +0100 |
| commit | 2dea11a442e1d14d86fa661804de06a721943bf0 (patch) | |
| tree | 954ab91bab33a309e0b7fe2abd288e0edc65d2b0 /compiler/nativeGen/RegAlloc/Linear | |
| parent | f75f26cc4eed3c3cfc256ebfb9e77b8e82a766fc (diff) | |
| download | haskell-2dea11a442e1d14d86fa661804de06a721943bf0.tar.gz | |
Remove ArchUnknown
It doesn't make sense. If platformArch is ArchUnknown then we don't know
the answer to any questions about the arch. So now if we don't recognise
the arch we just fail, and the new arch will need to be added to the
datatype.
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, 0 insertions, 2 deletions
diff --git a/compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs b/compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs index 809e185d9b..22fc388d0d 100644 --- a/compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs +++ b/compiler/nativeGen/RegAlloc/Linear/FreeRegs.hs @@ -67,5 +67,4 @@ maxSpillSlots platform ArchSPARC -> SPARC.Instr.maxSpillSlots ArchARM _ _ -> panic "maxSpillSlots ArchARM" ArchPPC_64 -> panic "maxSpillSlots ArchPPC_64" - ArchUnknown -> panic "maxSpillSlots ArchUnknown" diff --git a/compiler/nativeGen/RegAlloc/Linear/Main.hs b/compiler/nativeGen/RegAlloc/Linear/Main.hs index fc0bde44a0..2d6508096f 100644 --- a/compiler/nativeGen/RegAlloc/Linear/Main.hs +++ b/compiler/nativeGen/RegAlloc/Linear/Main.hs @@ -186,7 +186,6 @@ linearRegAlloc dflags first_id block_live sccs ArchPPC -> linearRegAlloc' platform (frInitFreeRegs :: PPC.FreeRegs) first_id block_live sccs ArchARM _ _ -> panic "linearRegAlloc ArchARM" ArchPPC_64 -> panic "linearRegAlloc ArchPPC_64" - ArchUnknown -> panic "linearRegAlloc ArchUnknown" linearRegAlloc' :: (FR freeRegs, PlatformOutputable instr, Instruction instr) |