diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-07-14 18:17:36 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-07-14 18:17:36 +0100 |
| commit | 9652dab10c20ffbfaa50a56b786d430d62d27411 (patch) | |
| tree | f479fd3fe74cd19d4a57f72e5c6a38dd9f8683f1 /compiler/parser/Lexer.x | |
| parent | 8874e5abb97dea563912ee7c78f4eaac5844bc8d (diff) | |
| download | haskell-9652dab10c20ffbfaa50a56b786d430d62d27411.tar.gz | |
More Lexer.x tidy-ups
Diffstat (limited to 'compiler/parser/Lexer.x')
| -rw-r--r-- | 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 99b91da5de..c043f8bdff 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 |