X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2FcodeGen%2FCgTailCall.lhs;fp=compiler%2FcodeGen%2FCgTailCall.lhs;h=73030d1d27072911ee2e3c47ff79f556d83e7421;hb=b4ca3b65d621bf8c792a41587bc5e10ab25b3350;hp=4f890998ae186b0e77f0661ee340b21eed249b81;hpb=ba44f8132418e993612171bbaf6a30a38aee67be;p=ghc-hetmet.git

diff --git a/compiler/codeGen/CgTailCall.lhs b/compiler/codeGen/CgTailCall.lhs
index 4f89099..73030d1 100644
--- a/compiler/codeGen/CgTailCall.lhs
+++ b/compiler/codeGen/CgTailCall.lhs
@@ -115,7 +115,6 @@ performTailCall fun_info arg_amodes pending_assts
 	      opt_node_asst | nodeMustPointToIt lf_info = node_asst
 			    | otherwise		        = noStmts
 	; EndOfBlockInfo sp _ <- getEndOfBlockInfo
-	; this_pkg <- getThisPackage
 
 	; case (getCallMethod fun_name fun_has_cafs lf_info (length arg_amodes)) of