From 8226f00b071ea156753324dc9f2967dabc3cc571 Mon Sep 17 00:00:00 2001 From: Isaac Dupree Date: Sat, 26 May 2007 18:08:00 +0000 Subject: [PATCH] only comments, spacing, alpha-renaming --- compiler/utils/StringBuffer.lhs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/compiler/utils/StringBuffer.lhs b/compiler/utils/StringBuffer.lhs index 8eb6fc2..a1eddb0 100644 --- a/compiler/utils/StringBuffer.lhs +++ b/compiler/utils/StringBuffer.lhs @@ -207,12 +207,14 @@ byteOff (StringBuffer buf _ cur) i = w <- peek (ptr `plusPtr` (cur+i)) return (unsafeChr (fromIntegral (w::Word8))) --- | XXX assumes ASCII digits only +-- | XXX assumes ASCII digits only (by using byteOff) parseInteger :: StringBuffer -> Int -> Integer -> (Char->Int) -> Integer -parseInteger buf len radix to_int +parseInteger buf len radix char_to_int = go 0 0 - where go i x | i == len = x - | otherwise = go (i+1) (x * radix + toInteger (to_int (byteOff buf i))) + where + go i x | i == len = x + | otherwise = go (i+1) + (x * radix + toInteger (char_to_int (byteOff buf i))) -- ----------------------------------------------------------------------------- -- under the carpet -- 1.7.10.4