diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-05-31 15:51:22 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-05-31 15:51:22 +0100 |
| commit | 638583ad2ebe50e42a50fc494744fe516a4e7eac (patch) | |
| tree | 23d7f30545d6b79fe38319f2a01f793a30559d30 /compiler/utils | |
| parent | a87ffbd2eba9a4e351814d35ce1a7cfdeb2d53af (diff) | |
| download | haskell-638583ad2ebe50e42a50fc494744fe516a4e7eac.tar.gz | |
Add an ArchUnknown constructor to the arch type
Fixes build problems on platforms for which we did not have
and Arch constructor.
Diffstat (limited to 'compiler/utils')
| -rw-r--r-- | compiler/utils/Platform.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/utils/Platform.hs b/compiler/utils/Platform.hs index 7b2502d96e..e4f97bdda7 100644 --- a/compiler/utils/Platform.hs +++ b/compiler/utils/Platform.hs @@ -31,7 +31,8 @@ data Platform -- about what instruction set extensions an architecture might support. -- data Arch - = ArchX86 + = ArchUnknown + | ArchX86 | ArchX86_64 | ArchPPC | ArchPPC_64 @@ -80,7 +81,7 @@ defaultTargetArch = ArchPPC_64 #elif sparc_TARGET_ARCH defaultTargetArch = ArchSPARC #else -#error "Platform.buildArch: undefined" +defaultTargetArch = ArchUnknown #endif |