X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fcmm%2FPprCmm.hs;h=3c3e9764a496f6b0e79c878ee2345441ddc439fa;hb=faa8d785c64ce394d9f83fb50e547037cd21c594;hp=f38eb30802a3f777d579029306f9dc1a871c5bbc;hpb=78b06ae394b167950fabdf9163f35ee70d3dbca1;p=ghc-hetmet.git

diff --git a/ghc/compiler/cmm/PprCmm.hs b/ghc/compiler/cmm/PprCmm.hs
index f38eb30..3c3e976 100644
--- a/ghc/compiler/cmm/PprCmm.hs
+++ b/ghc/compiler/cmm/PprCmm.hs
@@ -317,7 +317,6 @@ pprExpr9 e =
         CmmReg    reg       -> ppr reg
         CmmRegOff reg off   -> parens (ppr reg <+> char '+' <+> int off)
 	CmmMachOp mop args  -> genMachOp mop args
-	e                   -> parens (pprExpr e)
 
 genMachOp :: MachOp -> [CmmExpr] -> SDoc
 genMachOp mop args
@@ -351,7 +350,6 @@ infixMachOp mop
             MO_Xor    _ -> Just $ char '^'
             MO_Not    _ -> Just $ char '~'
             MO_S_Neg  _ -> Just $ char '-' -- there is no unsigned neg :)
-	    MO_Not    _ -> Just $ char '~'
             _ -> Nothing
 
 -- --------------------------------------------------------------------------
@@ -434,8 +432,6 @@ pprGlobalReg gr
         BaseReg        -> ptext SLIT("BaseReg")
         PicBaseReg     -> ptext SLIT("PicBaseReg")
 
-        _ -> panic $ "PprCmm.pprGlobalReg: unknown global reg"
-
 -- --------------------------------------------------------------------------
 -- data sections
 --