Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : ghc-7.2
http://hackage.haskell.org/trac/ghc/changeset/d37083fbb72b586ae7a497d238e4e464065e9f95 >--------------------------------------------------------------- commit d37083fbb72b586ae7a497d238e4e464065e9f95 Author: Ian Lynagh <[email protected]> Date: Thu Jul 14 18:17:36 2011 +0100 More Lexer.x tidy-ups >--------------------------------------------------------------- compiler/parser/Lexer.x | 12 ++++-------- 1 files changed, 4 insertions(+), 8 deletions(-) diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index 99b91da..c043f8b 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -1722,17 +1722,13 @@ setAlrExpectingOCurly :: Maybe ALRLayout -> P () setAlrExpectingOCurly b = P $ \s -> POk (s {alr_expecting_ocurly = b}) () -- for reasons of efficiency, flags indicating language extensions (eg, --- -fglasgow-exts or -XParallelArrays) are represented by a bitmap stored in an unboxed --- integer - --- The "genericsBit" is now unused, available for others --- genericsBit :: Int --- genericsBit = 0 -- {|, |} and "generic" +-- -fglasgow-exts or -XParallelArrays) are represented by a bitmap +-- stored in an unboxed Int ffiBit :: Int -ffiBit= 1 +ffiBit= 0 interruptibleFfiBit :: Int -interruptibleFfiBit = 2 +interruptibleFfiBit = 1 parrBit :: Int parrBit = 3 arrowsBit :: Int _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
