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

diff --git a/compiler/codeGen/CgTailCall.lhs b/compiler/codeGen/CgTailCall.lhs
index 60a8561..3732bab 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) = assignPrimOpCallRegs arg_amodes
+	; let (arg_regs, leftovers) = pprTrace "prim op" (ppr op) $ assignPrimOpCallRegs arg_amodes
 	      jump_to_primop = jumpToLbl (mkRtsPrimOpLabel op)
 
 	; ASSERT(null leftovers) -- no stack-resident args