From: Ian Lynagh <igloo@earth.li>
Date: Wed, 17 Dec 2008 18:47:55 +0000 (+0000)
Subject: Remove some dead code from CgCase
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=8b683ed0e271c03f527b99d9152a4ccb55ff34dc

Remove some dead code from CgCase
---

diff --git a/compiler/codeGen/CgCase.lhs b/compiler/codeGen/CgCase.lhs
index 859b220..cb426f5 100644
--- a/compiler/codeGen/CgCase.lhs
+++ b/compiler/codeGen/CgCase.lhs
@@ -317,7 +317,6 @@ cgInlinePrimOp primop args bndr (AlgAlt tycon) live_in_alts alts
 	 	-- Bind the default binder if necessary
 		-- (avoiding it avoids the assignment)
 		-- The deadness info is set by StgVarInfo
-	; this_pkg <- getThisPackage
 	; whenC (not (isDeadBinder bndr))
 		(do { tmp_reg <- bindNewToTemp bndr
 		    ; stmtC (CmmAssign