Fixed a hex lexing error

svn: r291
This commit is contained in:
Kathy Gray 2005-07-01 23:57:13 +00:00
parent 6f16af82f2
commit d94aa9230d

View File

@ -123,7 +123,7 @@
(IntegerTypeSuffix (char-set "lL"))
(DecimalNumeral (re:or #\0
(re:: (re:/ "19") (re:* (re:/ "09")))))
(HexDigit (re:/ "09" "af" "Af"))
(HexDigit (re:/ "09" "af" "AF"))
(HexNumeral (re:: #\0 (char-set "xX") (re:+ HexDigit)))
(OctalNumeral (re:: #\0 (re:+ (re:/ "07"))))
@ -287,10 +287,10 @@
(token-INTEGER_LIT (string->number lexeme 10)))
((re:: DecimalNumeral IntegerTypeSuffix)
(token-LONG_LIT (string->number (trim-string lexeme 0 1) 10)))
(HexNumeral
(token-HEX_LIT (string->number (trim-string lexeme 2 0) 16)))
((re:: HexNumeral IntegerTypeSuffix)
(token-HEXL_LIT (string->number (trim-string lexeme 2 1) 16)))
(HexNumeral
(token-HEX_LIT (string->number (trim-string lexeme 2 0) 16)))
(OctalNumeral
(token-OCT_LIT (string->number (trim-string lexeme 1 0) 8)))
((re:: OctalNumeral IntegerTypeSuffix)