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/utils/Platform.hs | |
| 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/utils/Platform.hs')
| -rw-r--r-- | compiler/utils/Platform.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/compiler/utils/Platform.hs b/compiler/utils/Platform.hs index 7446fc1099..b4eb7aad81 100644 --- a/compiler/utils/Platform.hs +++ b/compiler/utils/Platform.hs @@ -36,8 +36,7 @@ data Platform -- about what instruction set extensions an architecture might support. -- data Arch - = ArchUnknown - | ArchX86 + = ArchX86 | ArchX86_64 | ArchPPC | ArchPPC_64 @@ -77,7 +76,6 @@ data ArmISAExt target32Bit :: Platform -> Bool target32Bit p = case platformArch p of - ArchUnknown -> panic "Don't know if ArchUnknown is 32bit" ArchX86 -> True ArchX86_64 -> False ArchPPC -> True @@ -118,7 +116,7 @@ defaultTargetArch = ArchSPARC #elif arm_TARGET_ARCH defaultTargetArch = ArchARM defaultTargetArmISA defaultTargetArmISAExt #else -defaultTargetArch = ArchUnknown +#error Unknown Arch #endif |