X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcodeGen%2FCgTailCall.lhs;h=60a856177c41e470c3328e32b7d2613ae11a2807;hb=fefeca989f9fb9b3fbf2be146a303b1b481097f7;hp=3732babc8feb7e5b0b27051da5d683e2be9d918e;hpb=e5e7d10bb9fc69e58a78540a4a4bf34124730f48;p=ghc-hetmet.git

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