From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 20 Jun 2006 14:12:19 +0000 (+0000)
Subject: improve a panic message
X-Git-Tag: Before_FC_branch_merge~358
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=dcf747167e9e9b7a7227dd61dc6653ebde55bae1;p=ghc-hetmet.git

improve a panic message
---

diff --git a/compiler/nativeGen/MachCodeGen.hs b/compiler/nativeGen/MachCodeGen.hs
index 7f09c9d..0d8aa4e 100644
--- a/compiler/nativeGen/MachCodeGen.hs
+++ b/compiler/nativeGen/MachCodeGen.hs
@@ -2047,7 +2047,7 @@ getCondCode (CmmMachOp mop [x, y])
       MO_U_Lt rep -> condIntCode LU   x y
       MO_U_Le rep -> condIntCode LEU  x y
 
-      other -> pprPanic "getCondCode(x86,sparc)" (pprMachOp mop)
+      other -> pprPanic "getCondCode(x86,x86_64,sparc)" (ppr (CmmMachOp mop [x,y]))
 
 getCondCode other =  pprPanic "getCondCode(2)(x86,sparc)" (ppr other)