projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
1d05a82
)
[project @ 2002-05-15 19:46:11 by sof]
author
sof
<unknown>
Wed, 15 May 2002 19:46:11 +0000
(19:46 +0000)
committer
sof
<unknown>
Wed, 15 May 2002 19:46:11 +0000
(19:46 +0000)
Assume the presence of a Bits Int32 instance only
ghc/compiler/parser/Lex.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/parser/Lex.lhs
b/ghc/compiler/parser/Lex.lhs
index
18acecf
..
bdb7e69
100644
(file)
--- a/
ghc/compiler/parser/Lex.lhs
+++ b/
ghc/compiler/parser/Lex.lhs
@@
-890,8
+890,8
@@
lex_id cont exts buf =
case lookupUFM ghcExtensionKeywordsFM lexeme of {
Just (kwd_token, validExts)
- | validExts .&. (I# exts) /= 0 -> cont kwd_token buf';
- _ -> var_token
+ | testBit (toInt32 exts) validExts -> cont kwd_token buf';
+ _ -> var_token
}}}