From e44d2542f3a9c820281bf71d35ec8076e458dd9e Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 27 Jan 1999 16:54:18 +0000
Subject: [PATCH] [project @ 1999-01-27 16:54:18 by simonpj] Undo bogus fix to
 CgCase.lhs

---
 ghc/compiler/codeGen/CgCase.lhs |   11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/codeGen/CgCase.lhs b/ghc/compiler/codeGen/CgCase.lhs
index 1fccb1f..66e5d07 100644
--- a/ghc/compiler/codeGen/CgCase.lhs
+++ b/ghc/compiler/codeGen/CgCase.lhs
@@ -1,7 +1,7 @@
 %
 % (c) The GRASP/AQUA Project, Glasgow University, 1992-1998
 %
-% $Id: CgCase.lhs,v 1.22 1999/01/27 14:51:31 simonpj Exp $
+% $Id: CgCase.lhs,v 1.23 1999/01/27 16:54:18 simonpj Exp $
 %
 %********************************************************
 %*							*
@@ -547,9 +547,12 @@ Tag is held in a temporary.
 \begin{code}
 cgInlineAlts bndr (StgAlgAlts ty alts deflt)
   =	   -- bind the default binder (it covers all the alternatives)
-    (if (isDeadBinder bndr)
-	then nopC
-	else bindNewToReg bndr node mkLFArgument)	`thenC`
+
+	-- ToDo: BUG! bndr isn't bound in the alternatives
+	-- Shows up when compiling Word.lhs
+	--	case cmp# a b of r {
+	--		True  -> f1 r
+	--		False -> f2 r
 
     cgAlgAlts NoGC uniq AbsCNop{-restore_cc-} False{-no semi-tagging-}
 		False{-not poly case-} alts deflt
-- 
1.7.10.4