From: dias@eecs.tufts.edu <unknown>
Date: Wed, 18 Mar 2009 15:13:43 +0000 (+0000)
Subject: Removed a trace
X-Git-Tag: 2009-06-25~465
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=fefeca989f9fb9b3fbf2be146a303b1b481097f7

Removed a trace
---

diff --git a/compiler/codeGen/CgTailCall.lhs b/compiler/codeGen/CgTailCall.lhs
index 3732bab..60a8561 100644
--- a/compiler/codeGen/CgTailCall.lhs
+++ b/compiler/codeGen/CgTailCall.lhs
@@ -387,7 +387,7 @@ tailCallPrimOp op args
 		-- except that *all* the arguments will be in registers.
 		-- Hence the ASSERT( null leftovers )
 	  arg_amodes <- getArgAmodes args
-	; let (arg_regs, leftovers) = pprTrace "prim op" (ppr op) $ assignPrimOpCallRegs arg_amodes
+	; let (arg_regs, leftovers) = assignPrimOpCallRegs arg_amodes
 	      jump_to_primop = jumpToLbl (mkRtsPrimOpLabel op)
 
 	; ASSERT(null leftovers) -- no stack-resident args