diff options
| author | simonpj <unknown> | 1999-01-27 16:54:18 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 1999-01-27 16:54:18 +0000 |
| commit | e44d2542f3a9c820281bf71d35ec8076e458dd9e (patch) | |
| tree | aa870d301b95346a67886172cb0aa47e74b7aa5c /ghc/compiler/codeGen | |
| parent | 2c2d394865dd5c873d125d4d831aa041e814ba2a (diff) | |
| download | haskell-e44d2542f3a9c820281bf71d35ec8076e458dd9e.tar.gz | |
[project @ 1999-01-27 16:54:18 by simonpj]
Undo bogus fix to CgCase.lhs
Diffstat (limited to 'ghc/compiler/codeGen')
| -rw-r--r-- | ghc/compiler/codeGen/CgCase.lhs | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/ghc/compiler/codeGen/CgCase.lhs b/ghc/compiler/codeGen/CgCase.lhs index 1fccb1f488..66e5d075e4 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 |