summaryrefslogtreecommitdiff
path: root/compiler/codeGen/CgTailCall.lhs
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2008-12-17 17:49:47 +0000
committerIan Lynagh <igloo@earth.li>2008-12-17 17:49:47 +0000
commitb4ca3b65d621bf8c792a41587bc5e10ab25b3350 (patch)
tree70158d7497b1c55ab5f7dbdb72d4d8ddaeaada85 /compiler/codeGen/CgTailCall.lhs
parentba44f8132418e993612171bbaf6a30a38aee67be (diff)
downloadhaskell-b4ca3b65d621bf8c792a41587bc5e10ab25b3350.tar.gz
Remove a little dead code from CgTailCall
Diffstat (limited to 'compiler/codeGen/CgTailCall.lhs')
-rw-r--r--compiler/codeGen/CgTailCall.lhs1
1 files changed, 0 insertions, 1 deletions
diff --git a/compiler/codeGen/CgTailCall.lhs b/compiler/codeGen/CgTailCall.lhs
index 4f890998ae..73030d1d27 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