projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2006-01-06 16:30:17 by simonmar]
[ghc-hetmet.git]
/
ghc
/
compiler
/
cmm
/
CmmLex.x
diff --git
a/ghc/compiler/cmm/CmmLex.x
b/ghc/compiler/cmm/CmmLex.x
index
8515b3e
..
c2efd17
100644
(file)
--- a/
ghc/compiler/cmm/CmmLex.x
+++ b/
ghc/compiler/cmm/CmmLex.x
@@
-227,10
+227,10
@@
tok_decimal span buf len
= return (L span (CmmT_Int $! parseInteger buf len 10 octDecDigit))
tok_octal span buf len
= return (L span (CmmT_Int $! parseInteger buf len 10 octDecDigit))
tok_octal span buf len
- = return (L span (CmmT_Int $! parseInteger (stepOn buf) (len-1) 8 octDecDigit))
+ = return (L span (CmmT_Int $! parseInteger (offsetBytes 1 buf) (len-1) 8 octDecDigit))
tok_hexadecimal span buf len
tok_hexadecimal span buf len
- = return (L span (CmmT_Int $! parseInteger (stepOnBy 2 buf) (len-2) 16 hexDigit))
+ = return (L span (CmmT_Int $! parseInteger (offsetBytes 2 buf) (len-2) 16 hexDigit))
tok_float str = CmmT_Float $! readRational str
tok_float str = CmmT_Float $! readRational str