X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FPlatform.hs;h=e4f97bdda7bc4541832ab4930e282cde166da883;hp=7b2502d96e104662a3bbe04662a90f51f9f40168;hb=638583ad2ebe50e42a50fc494744fe516a4e7eac;hpb=a87ffbd2eba9a4e351814d35ce1a7cfdeb2d53af

diff --git a/compiler/utils/Platform.hs b/compiler/utils/Platform.hs
index 7b2502d..e4f97bd 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