GitHub/haskell-wasm
1
0
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix hex float exponent parsing

Browse Source
This commit is contained in:
Ilya Rezvov
2018-01-19 11:06:38 -08:00
parent 5c4ca137a5
commit 9d6bd7f097
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Language/Wasm/Lexer.x
+4 -2
View File
@@ -41,7 +41,7 @@ $doublequote = \"
@float = @floatfrac | @scientificint | @scientificfloat @float = @floatfrac | @scientificint | @scientificfloat
@hexfloatfrac = "0x" @hexnum "." (@hexnum)? @hexfloatfrac = "0x" @hexnum "." (@hexnum)?
@hexexp = [Pp] $sign? @num @hexexp = [Pp] $sign? @num
@hexscientificint = "0x" @hexnum @exp @hexscientificint = "0x" @hexnum @hexexp
@hexscientificfloat = @hexfloatfrac @hexexp @hexscientificfloat = @hexfloatfrac @hexexp
@hexfloat = @hexfloatfrac | @hexscientificint | @hexscientificfloat @hexfloat = @hexfloatfrac | @hexscientificint | @hexscientificfloat
@nanhex = "nan:0x" @hexnum @nanhex = "nan:0x" @hexnum
@@ -134,7 +134,7 @@ parseDecFloat = token $ \(pos, _, s, _) len ->
parseHexFloat :: AlexAction Lexeme parseHexFloat :: AlexAction Lexeme
parseHexFloat = token $ \(pos, _, s, _) len -> parseHexFloat = token $ \(pos, _, s, _) len ->
let (sign, slen) = parseSign s in let (sign, slen) = parseSign s in
let ('0' : 'x' : str) = filter (/= '_') $ takeChars len $ LBS.drop slen s in let ('0' : 'x' : str) = filter (/= '_') $ takeChars (len - slen) $ LBS.drop slen s in
Lexeme pos $ TFloatLit $ readHexFloat str Lexeme pos $ TFloatLit $ readHexFloat str
startBlockComment :: AlexAction Lexeme startBlockComment :: AlexAction Lexeme
@@ -333,6 +333,8 @@ readHexFloat str =
where where
readHexExp :: String -> Double readHexExp :: String -> Double
readHexExp [] = 1 readHexExp [] = 1
readHexExp ('+' : rest) = readHexExp rest
readHexExp ('-' : rest) = negate $ readHexExp rest
readHexExp expStr = 2 * read expStr readHexExp expStr = 2 * read expStr
readHexFrac :: String -> Double readHexFrac :: String -> Double