Commit 9652dab1 authored by Ian Lynagh's avatar Ian Lynagh

More Lexer.x tidy-ups

parent 8874e5ab
......@@ -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
......
Markdown is supported
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