projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
parseInteger->parseUnsignedInteger to clarify meaning
[ghc-hetmet.git]
/
compiler
/
utils
/
StringBuffer.lhs
diff --git
a/compiler/utils/StringBuffer.lhs
b/compiler/utils/StringBuffer.lhs
index
a1eddb0
..
28a7f67
100644
(file)
--- a/
compiler/utils/StringBuffer.lhs
+++ b/
compiler/utils/StringBuffer.lhs
@@
-33,7
+33,7
@@
module StringBuffer
lexemeToFastString,
-- * Parsing integers
lexemeToFastString,
-- * Parsing integers
- parseInteger,
+ parseUnsignedInteger,
) where
#include "HsVersions.h"
) where
#include "HsVersions.h"
@@
-208,8
+208,8
@@
byteOff (StringBuffer buf _ cur) i =
return (unsafeChr (fromIntegral (w::Word8)))
-- | XXX assumes ASCII digits only (by using byteOff)
return (unsafeChr (fromIntegral (w::Word8)))
-- | XXX assumes ASCII digits only (by using byteOff)
-parseInteger :: StringBuffer -> Int -> Integer -> (Char->Int) -> Integer
-parseInteger buf len radix char_to_int
+parseUnsignedInteger :: StringBuffer -> Int -> Integer -> (Char->Int) -> Integer
+parseUnsignedInteger buf len radix char_to_int
= go 0 0
where
go i x | i == len = x
= go 0 0
where
go i x | i == len = x