summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2008-12-17 18:47:55 +0000
committerIan Lynagh <igloo@earth.li>2008-12-17 18:47:55 +0000
commit8b683ed0e271c03f527b99d9152a4ccb55ff34dc (patch)
treebb68e751c79e7c9b3f0ba644ffc1c4efd47d631b
parentcb3a1526b303ac4e098ba107f761430a773c2a55 (diff)
downloadhaskell-8b683ed0e271c03f527b99d9152a4ccb55ff34dc.tar.gz
Remove some dead code from CgCase
-rw-r--r--compiler/codeGen/CgCase.lhs1
1 files changed, 0 insertions, 1 deletions
diff --git a/compiler/codeGen/CgCase.lhs b/compiler/codeGen/CgCase.lhs
index 859b2208fe..cb426f5d2a 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