[commit: ghc] master: Comments only (83440fd)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/83440fdc4f1b52b2f398326e0e86d4583afa433a/ghc

>---------------------------------------------------------------

commit 83440fdc4f1b52b2f398326e0e86d4583afa433a
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Aug 16 11:15:12 2013 +0100

    Comments only


>---------------------------------------------------------------

83440fdc4f1b52b2f398326e0e86d4583afa433a
 compiler/codeGen/StgCmmExpr.hs |    9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/compiler/codeGen/StgCmmExpr.hs b/compiler/codeGen/StgCmmExpr.hs
index 20b65ba..bbb5937 100644
--- a/compiler/codeGen/StgCmmExpr.hs
+++ b/compiler/codeGen/StgCmmExpr.hs
@@ -313,13 +313,20 @@ cgCase (StgOpApp (StgPrimOp op) args _) bndr (AlgAlt tycon) alts
 
 {-
 Note [case on bool]
-
+~~~~~~~~~~~~~~~~~~~
 This special case handles code like
 
   case a <# b of
     True ->
     False ->
 
+-->  case tagToEnum# (a <$# b) of
+        True -> .. ; False -> ...
+
+--> case (a <$# b) of r -> 
+    case tagToEnum# r of
+        True -> .. ; False -> ...
+
 If we let the ordinary case code handle it, we'll get something like
 
  tmp1 = a < b