Commit e44d2542 authored by simonpj's avatar simonpj
Browse files

[project @ 1999-01-27 16:54:18 by simonpj]

Undo bogus fix to CgCase.lhs
parent 2c2d3948
% %
% (c) The GRASP/AQUA Project, Glasgow University, 1992-1998 % (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. ...@@ -547,9 +547,12 @@ Tag is held in a temporary.
\begin{code} \begin{code}
cgInlineAlts bndr (StgAlgAlts ty alts deflt) cgInlineAlts bndr (StgAlgAlts ty alts deflt)
= -- bind the default binder (it covers all the alternatives) = -- bind the default binder (it covers all the alternatives)
(if (isDeadBinder bndr)
then nopC -- ToDo: BUG! bndr isn't bound in the alternatives
else bindNewToReg bndr node mkLFArgument) `thenC` -- 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-} cgAlgAlts NoGC uniq AbsCNop{-restore_cc-} False{-no semi-tagging-}
False{-not poly case-} alts deflt False{-not poly case-} alts deflt
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment