X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcodeGen%2FStgCmmCon.hs;h=beff73e9e0e99b1fa87732a7140ac144c7275bfd;hp=e818bd742c5e6ea08f9e2eeb09f4707d11bf7e4e;hb=5892af0e08fdb890b5a0b9a64346d9f7773a6ed8;hpb=df54e4b621b1d2a8e30b01b3e93494a515d09f48

diff --git a/compiler/codeGen/StgCmmCon.hs b/compiler/codeGen/StgCmmCon.hs
index e818bd7..beff73e 100644
--- a/compiler/codeGen/StgCmmCon.hs
+++ b/compiler/codeGen/StgCmmCon.hs
@@ -210,8 +210,7 @@ bindConArgs (DataAlt con) base args
     bind_arg :: (NonVoid Id, VirtualHpOffset) -> FCode LocalReg
     bind_arg (arg, offset) 
 	= do { emit $ mkTaggedObjectLoad (idToReg arg) base offset tag
-	     ; pprTrace "bind_arg gets tag" (ppr arg <+> ppr tag) $
-               bindArgToReg arg }
+	     ; bindArgToReg arg }
 
 bindConArgs _other_con _base args
   = ASSERT( null args ) return []