X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FAsmCodeGen.lhs;fp=compiler%2FnativeGen%2FAsmCodeGen.lhs;h=c7ea591ec36ef13f8add7e49ff14ae95a2200a9d;hp=b607434ddff0f4f41fe476d9604ddef788f94f96;hb=638583ad2ebe50e42a50fc494744fe516a4e7eac;hpb=a87ffbd2eba9a4e351814d35ce1a7cfdeb2d53af

diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs
index b607434..c7ea591 100644
--- a/compiler/nativeGen/AsmCodeGen.lhs
+++ b/compiler/nativeGen/AsmCodeGen.lhs
@@ -199,6 +199,8 @@ nativeCodeGen dflags h us cmms
                      }
                  ArchPPC_64 ->
                      panic "nativeCodeGen: No NCG for PPC 64"
+                 ArchUnknown ->
+                     panic "nativeCodeGen: No NCG for unknown arch"
 
 nativeCodeGen' :: (Instruction instr, Outputable instr)
                => DynFlags