X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FPlatform.hs;h=7b2502d96e104662a3bbe04662a90f51f9f40168;hb=659f147413af7f4f2d2b500659e7c03f31f16d35;hp=20cb5f5e9685e37d9ae32b5f639306c318c913f2;hpb=470bedbbe60db2b9cc85dccafb6e06d9a841419d;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/Platform.hs b/compiler/nativeGen/Platform.hs
index 20cb5f5..7b2502d 100644
--- a/compiler/nativeGen/Platform.hs
+++ b/compiler/nativeGen/Platform.hs
@@ -31,8 +31,7 @@ data Platform
 --	about what instruction set extensions an architecture might support.
 --
 data Arch
-	= ArchAlpha
-	| ArchX86
+	= ArchX86
 	| ArchX86_64
 	| ArchPPC
 	| ArchPPC_64
@@ -70,9 +69,7 @@ defaultTargetPlatform
 
 -- | Move the evil TARGET_ARCH #ifdefs into Haskell land.
 defaultTargetArch :: Arch
-#if   alpha_TARGET_ARCH
-defaultTargetArch	= ArchAlpha
-#elif i386_TARGET_ARCH
+#if i386_TARGET_ARCH
 defaultTargetArch	= ArchX86
 #elif x86_64_TARGET_ARCH
 defaultTargetArch	= ArchX86_64