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:
90d0100
)
[project @ 1999-08-02 09:47:18 by simonmar]
author
simonmar
<unknown>
Mon, 2 Aug 1999 09:47:18 +0000
(09:47 +0000)
committer
simonmar
<unknown>
Mon, 2 Aug 1999 09:47:18 +0000
(09:47 +0000)
oops, 'g' and 'h' aren't hex digits.
ghc/compiler/parser/Lex.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/parser/Lex.lhs
b/ghc/compiler/parser/Lex.lhs
index
173b8a0
..
e1de35a
100644
(file)
--- a/
ghc/compiler/parser/Lex.lhs
+++ b/
ghc/compiler/parser/Lex.lhs
@@
-703,8
+703,8
@@
readNum cont buf is_digit base conv = read buf 0
is_hexdigit c
= is_digit c
- || (c `geChar#` 'a'# && c `leChar#` 'h'#)
- || (c `geChar#` 'A'# && c `leChar#` 'H'#)
+ || (c `geChar#` 'a'# && c `leChar#` 'f'#)
+ || (c `geChar#` 'A'# && c `leChar#` 'F'#)
hex c | is_digit c = ord# c -# ord# '0'#
| otherwise = ord# (to_lower c) -# ord# 'a'# +# 10#