Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/254f1a6c91d70d59b8731e7c3a8fa3619d8da1db

>---------------------------------------------------------------

commit 254f1a6c91d70d59b8731e7c3a8fa3619d8da1db
Author: Simon Marlow <[email protected]>
Date:   Mon Sep 24 10:58:50 2012 +0100

    whitespace and panic message fixup

>---------------------------------------------------------------

 compiler/nativeGen/X86/CodeGen.hs |   16 ++++++++--------
 1 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/compiler/nativeGen/X86/CodeGen.hs 
b/compiler/nativeGen/X86/CodeGen.hs
index 72dd30f..480de06 100644
--- a/compiler/nativeGen/X86/CodeGen.hs
+++ b/compiler/nativeGen/X86/CodeGen.hs
@@ -1214,22 +1214,22 @@ getCondCode (CmmMachOp mop [x, y])
       MO_F_Lt W64 -> condFltCode LTT x y
       MO_F_Le W64 -> condFltCode LE  x y
 
-      MO_Eq _ -> condIntCode EQQ x y
-      MO_Ne _ -> condIntCode NE  x y
+      MO_Eq _     -> condIntCode EQQ x y
+      MO_Ne _     -> condIntCode NE  x y
 
-      MO_S_Gt _ -> condIntCode GTT x y
-      MO_S_Ge _ -> condIntCode GE  x y
-      MO_S_Lt _ -> condIntCode LTT x y
-      MO_S_Le _ -> condIntCode LE  x y
+      MO_S_Gt _   -> condIntCode GTT x y
+      MO_S_Ge _   -> condIntCode GE  x y
+      MO_S_Lt _   -> condIntCode LTT x y
+      MO_S_Le _   -> condIntCode LE  x y
 
       MO_U_Gt _ -> condIntCode GU  x y
       MO_U_Ge _ -> condIntCode GEU x y
       MO_U_Lt _ -> condIntCode LU  x y
       MO_U_Le _ -> condIntCode LEU x y
 
-      _other -> pprPanic "getCondCode(x86,x86_64,sparc)" (ppr (CmmMachOp mop 
[x,y]))
+      _other -> pprPanic "getCondCode(x86,x86_64)" (ppr (CmmMachOp mop [x,y]))
 
-getCondCode other = pprPanic "getCondCode(2)(x86,sparc)" (ppr other)
+getCondCode other = pprPanic "getCondCode(2)(x86,x96_64)" (ppr other)
 
 
 



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to