diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-10-19 01:58:17 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-10-19 01:58:17 +0100 |
| commit | 5ab74eb767e42a897f16b5872cac9e3462612ee7 (patch) | |
| tree | 4ee881272f86bf58ed5c66e06e3e30f7f6dec6c0 /compiler/utils | |
| parent | 2dea11a442e1d14d86fa661804de06a721943bf0 (diff) | |
| download | haskell-5ab74eb767e42a897f16b5872cac9e3462612ee7.tar.gz | |
Revert "Remove ArchUnknown"
This reverts commit 2dea11a442e1d14d86fa661804de06a721943bf0.
On second thoughts, this does make sense, for unregisterised via-C
arches at least.
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Platform.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/utils/Platform.hs b/compiler/utils/Platform.hs index b4eb7aad81..7446fc1099 100644 --- a/compiler/utils/Platform.hs +++ b/compiler/utils/Platform.hs @@ -36,7 +36,8 @@ data Platform -- about what instruction set extensions an architecture might support. -- data Arch - = ArchX86 + = ArchUnknown + | ArchX86 | ArchX86_64 | ArchPPC | ArchPPC_64 @@ -76,6 +77,7 @@ 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 @@ -116,7 +118,7 @@ defaultTargetArch = ArchSPARC #elif arm_TARGET_ARCH defaultTargetArch = ArchARM defaultTargetArmISA defaultTargetArmISAExt #else -#error Unknown Arch +defaultTargetArch = ArchUnknown #endif |