bugfix:hexadecimal ranges 0x00..0x01

This commit is contained in:
Andreas Rumpf
2010-03-09 19:37:26 +01:00
parent 684bb09773
commit fe4cc78294
2 changed files with 9 additions and 1 deletions

View File

@@ -357,7 +357,7 @@ proc GetNumber(L: var TLexer): TToken =
result.base = base16
while true:
case L.buf[pos]
of 'G'..'Z', 'g'..'z', '.':
of 'G'..'Z', 'g'..'z':
lexMessage(L, errInvalidNumber, result.literal)
inc(pos)
of '_':

View File

@@ -0,0 +1,8 @@
type
TArray = array[0x0012..0x0013, int]
var a: TArray
echo a[0] #OUT 0