[commit: ghc] master: Remove an unused bit from the Lexer bitmap (aa2d5b5)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/aa2d5b5957792ad26d0c5d5c663292d1bbf45434

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

commit aa2d5b5957792ad26d0c5d5c663292d1bbf45434
Author: Ian Lynagh <ian at well-typed.com>
Date:   Thu Sep 27 00:55:27 2012 +0100

    Remove an unused bit from the Lexer bitmap

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

 compiler/parser/Lexer.x |    5 -----
 1 files changed, 0 insertions(+), 5 deletions(-)

diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index 91f00ec..aaa4f05 100644
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -1869,8 +1869,6 @@ explicitNamespacesBit :: Int
 explicitNamespacesBit = 29
 lambdaCaseBit :: Int
 lambdaCaseBit = 30
-multiWayIfBit :: Int
-multiWayIfBit = 31
 
 
 always :: Int -> Bool
@@ -1926,8 +1924,6 @@ explicitNamespacesEnabled :: Int -> Bool
 explicitNamespacesEnabled flags = testBit flags explicitNamespacesBit
 lambdaCaseEnabled :: Int -> Bool
 lambdaCaseEnabled flags = testBit flags lambdaCaseBit
-multiWayIfEnabled :: Int -> Bool
-multiWayIfEnabled flags = testBit flags multiWayIfBit
 
 -- PState for parsing options pragmas
 --
@@ -1991,7 +1987,6 @@ mkPState flags buf loc =
                .|. typeLiteralsBit             `setBitIf` xopt Opt_DataKinds flags
                .|. explicitNamespacesBit       `setBitIf` xopt Opt_ExplicitNamespaces flags
                .|. lambdaCaseBit               `setBitIf` xopt Opt_LambdaCase               flags
-               .|. multiWayIfBit               `setBitIf` xopt Opt_MultiWayIf               flags
       --
       setBitIf :: Int -> Bool -> Int
       b `setBitIf` cond | cond      = bit b