X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FcodeGen%2FStgCmmLayout.hs;h=74bac4310863370495c3bb8dd1b68a8172bba7ce;hb=6bc92166180824bf046d31e378359e3c386150f9;hp=33fd3e8d5a4b74f062704b39fef5ec6ee7e3fc7d;hpb=c62b824e9e8808eb3845ddb1614494b0575eaafd;p=ghc-hetmet.git

diff --git a/compiler/codeGen/StgCmmLayout.hs b/compiler/codeGen/StgCmmLayout.hs
index 33fd3e8..74bac43 100644
--- a/compiler/codeGen/StgCmmLayout.hs
+++ b/compiler/codeGen/StgCmmLayout.hs
@@ -166,9 +166,6 @@ direct_call caller lbl arity args reps
   | otherwise		-- Over-saturated call
   = ASSERT( arity == length initial_reps )
     do	{ pap_id <- newTemp gcWord
-	; let srt = pprTrace "Urk! SRT for over-sat call" 
-			     (ppr lbl) NoC_SRT
-		-- XXX: what if rest_args contains static refs?
 	; withSequel (AssignTo [pap_id] True)
 		     (emitCall Native target fast_args)
 	; slow_call (CmmReg (CmmLocal pap_id))